UPDPS\    ■  UPDATE   PSN   IN  CETAB 
SUPFSI-J   ■    UPDATE   PSN  DlFINITION 


OOOOOOG 


?!.. 

U00364 

000207 

pi(j 

??n 

■??^ 

■??? 

000366 

000167 

?,"< 

2lk 

000001 

MACRO  V05.03b  Saturday  29-Jun-85  05:55  Page  6-1 

RETURN 
;  ERROR  CONDITIONS 
ioi$:   JMP     .CONER 

.END 


CONSISTENCY  ERROR 
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SYMBOL    CROSS   REFERENCE 


B     2 

PAGE    1 

CRtF        OA.OO 


UPD 
Tab 


SYMBOL 

VAlUE 

REFERENCES 

CS.FLG 

r  ****** 

GX 

6-184 

".NRBD 

-  ****** 

GX 

*6-157 

ONSTR 

UOOOIO 

R 

#5-137 

PVCDF 

000000 

R 

#5-154 

=VCLN 

=  000010 

#5-135 

^VlOWM 

=    **** t  * 

GX 

6-183 

=VSPSZ 

-  t***** 

GX 

6-181 

=V$WS? 

-  n***** 

GX 

6-182 

=$VCT 

3   ****** 

GX 

6-179 

'■'SVFLG 

-  ****** 

GX 

6-184 

^$VLCN 

z   ****** 

GX 

6-178 

PSVNAM 

-  ****** 

GX 

6-170 

PSV'OWN 

-  ****** 

GX 

6-167 

P$VPS2 

-  ****** 

GX 

6-181 

PSVSTA 

-  ****** 

GX 

7-206 

PSVWSZ 

r  ****** 

GX 

6-182 

SETSTA 

000402 

R 

6-180 

$BUFI 

r   ****** 

GX 

6-189 

SMVASC 

-   ****** 

GX 

6-16:> 

$OBUF 

r   ****** 

GX 

*6-166 

SOFDB 

=   ****** 

GX 

*6-157 

SPTNMB 

-   ****** 

GX 

6-173 

SPTNUM 

=   *  *  f.  *  *  * 

GX 

6-178 

SPTOPT 

-      *  *  .«r  ♦  *  * 

GX 

6-181 

$PTR50 

=   ****** 

GX 

6-170 

tUPPVC 

000014 

RG 

#6-156 

SWDATA 

r  ****** 

GX 

6-188 

.BUFF 

3  ****** 

GX 

6-157 

.COMMA 

=     ****** 

GX 

»6-161 

.FLAGS 

~     »*.*** 

fix 

•6-160 

.TEMP 

-  ****** 

GX 

•6-158 

•6-187 
7-209 
5-135 
6-164 


6-175 
6-185 


#7-205 


6-171 
•6-187 
6-174 
6-179 
6-182 
6-177 


6-162 
•6-169 

7-205 


♦6-189 
6-163 


6-174 


•6-172 
•6-1 8<5 
6-184 
6-181 
6-185 
6-183 


6-186 
•7-209 


6-177 


•6-175 


6-182 
6-184 
7-211 


•7-212 


6-185 


UPDPVC 
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C     2 


UP( 


B  3 

UPDREM  -  CFE  UPOATE  REMO't  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:55 
Table  ot  contents 

SUPREM  -  SETUP  REMOTE  DEFIMITION 
SETNAM  -  WRITE  OUT  REMOTE  NODE  NAME 
SETARE  -  WRITE  OUT  AREA 
SETADD  -  WRITE  OUT  REMOTE  NODE  ADDRESS 
UPDLL  -  UPnATE  DOWNLINE  LOAD  DATABASE 


ft- 

1S1 

i- 

,^0,' 

H- 

r'r'K 

y- 

r'S^ 

0- 

in 

UP 
MA 
MA 


IS 
MT 
PR 
ST 

Tf 


C  3 
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r 


UPDREM  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:55 

MACRO  CROSS   REfEREMCE 


B     4 

PAGE   3 

CREF       OA.OO 


UF 
T< 


MACRO  NAME 

REFERENCES 

DBGTPS 

#5-120 

ISUTS 

#^-68 

5-120 

MTRANS 

#5-120 

PRINT 
STATES 

#A-59 
#4-68 

5-123 

#5-126 

#5-129 

#5-132 

#5-135 

#5-138 

#5-U1 

#5-146 

TRhNS 

#4-68 

#5-124 

#5-127 

#5-130 

#5-133 

#5-136 

#5-139 

#5-142 

#5-147 

#5-149 


C     4 


•«FILE'«ID««U°rROU 


UPOSER  -  CFE  UPDATE  REMOTE  CHAR  MACRO 
Table  of  contents 


B  5 

v05.03b  Saturday  29-Jun-85  05:56 


UF 

Tc 


^- 

A7 

s- 

9^ 

f,- 

IS/ 

7- 

14^ 

H- 

?,>? 

9- 

^A4 

MACRO   CALLS   AND  LOCAL   DATA 
SUPSER   -    SETUP  REMOTE    TjEFJNITION 
PUTNOD   -  WRITE    OUT   NODE    ADDRESS 
PUTR50   -   OUTPUT   EX'"FNDED   RAD5U   STRING 
PUTOCT      -  OUTPUT   AM  OCTAL   ■' JMBER 
PUTFLG   -   OUTPUT    FLAGS 


C  5 

UPOSER  -  C^E  UPDATE  REMOTE  CHAR  MACRO  V05.03b  Saturday  29-Jun-85  05:'^6  Page  3 


UPDSLT  -  CFE  UPDATE  SLT  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:56 
fable  ot  content'. 

UPDATE  SLT  DEFINITION 
CHECK  DDI1  PROCESS  NAME 
SETUP  THE  FLAGS  WORD 
CHECK  THE  CONTROLLER  NUMBER 
CHECK  THE  UNIT  NUMBER 
SET  OPTIONAL  COUNTER  TIMER  VALUE 
SET  OPTIONAL  HELLO  TIMER  VALUE 
SET  OPTIONAL  ROUTER  PRIORITY 
SET  BROADCAST  ROUTER  ADJACENC'ES 
-  SET  LINE  TYPE 


UPC 
SET 


h- 

219 

SUPSLT 

/- 

261 

SETNAM 

K- 

287 

SETFLG 

9- 

351 

SETCNT 

10- 

371 

SETUNT 

10- 

392 

SETCTT 

10- 

A08 

SETHTM 

10- 

409 

SET^PR 

10- 

410 

SETBRA 

n- 

A3q 

SETTYP 

Q  6 

UPD:lT  -  CFE  UPDATE  SLT  DEFINIT  MACRO  V05.05b  Saturdav  29-Jun-85  05:56  Page  5 


UPI 
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UPDSLT   -  CFE   UPDATE   SLT   t-EFINIT  MACRO   V05.03b   Saturday  29-Jun-i)3  05:56 
SET'VP     -   ^ET    LINE    TYPE 


Page  11 


UPD 
SET 


m39 

i^O 

4A1 

A42 

';A3 

AAA 

AA5 

AA6 

AA7 

AA8  00077A 

AA9  0007^A 

A50  001000 

A51   001006 

A52  001010 

A53  001012 

ASA  001016 

A55  001022 

A56  00102A 

A57  001026 

A58  001032 

A59  001036 

A60  001 0A2 

A61    0010A6 

A62 

A63  001050 

A6A   00105A 

A65 

A66 


.SBTTL      SETTVP     -   SET   LINE    TYPE 
♦*   SETTYP  -   SET    LINE    TYPE 
INPUT  .TEMP   =   ADDRESS   OF    TEMPLATE 

OUTPUT  IF    PRESENT,    TYPE   FIELD  UPDATED. 


SETTYP: 


016701  OCOOOOG 

032761  OOOOOOG  OOOOOOG 

001A20 

0101A6 

012702  000070' 

105761  OOOOOOG 

001001 

022222 

005067  OOOOOOG        10$: 

012701  000002 

00A767  OOOOOOG 

012667  OOOOOOG 

000207 

005267  OOOOOOG        20$: 
000207 

000001 


MOV 
BIT 
BEO 
MOV 

MOV 

TST8 

BNE 

CMP 

CLR 

MO.' 

CALL 

MOV 

RETURN 


IN':     .COMMA 
RETURN 


.TEMP.RI        ; 

#SL$TYP,C.STS(R1) 

20$ 

R1,-(SP) 

#MA3TER,R2 

S$LTYP(R1) 

10$ 

(R2)+,(R2)t 

.TEMP 

#2,R1 

$PTR50 

(SP)+,.TEMP 


POINT  TO  TEMPLATE 

;  TYPE  SPECIFIED  ? 

IF  EI,  NO 

SAVE  TEMPLATE  ADDRESS 

ASSUME  TYPE  -  KASTER 

CHECK  TYPE 

IF  NE,  MASTER 

ELSE  TYPE  =  SLAVF 

POINT  TO  START  OF  STRINGS 

2  RAD50  WORDS 

OUTPUT  RAD50 

RESTORE  TEMPLATE  ADDRESS 

OPTION  NOT  SELECTED 


.END 


UPDSLT 


C  7 

LFE  UPDATE  SLi  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:56  Page  11-1 


UP( 


UPDSTA  - 
SETAPR  - 

250 
251 
252 
253 
25^. 
255 
256 
257 
258 
259 
260 
261 
262 
263 
26^ 
265 
266 
267 
268 
269 


B  8 

CFE  UPDATE  STATION  DBF  MACRO  V05.03b  Saturday  29-Jun-85  05:57  Page  9 
SET  THE  STATION  ACTIVE  POLLING  RATIO 


UPD 
tUP 


.S8TTL   SETAPR  -  StT  THE  STATION  ACTIVE  POLLING  RATIO 

'.,»  -  SETAPR  -  SET  THE  STATION  ACTIVE  PULLING  RATIO 

INPUTS: 

TEMP  =  TEMPLATE  ADDRESS 

$03UF  =  POINTER  INTO  OUTPUT  BUFFER 

OUTPUTS: 

THE  APR  IS  WRITTEN  TO  THE  OUTPUT  BUFFER 


C00226 

000226  016702  1775A6 

000232  116201  OCOOlO 

000236  016700  OOOOOOG 

000242  004767  OOOOOOG 

000246  010067  OOOOOOG 

000252  000207 


SETAPR: 


MOV 

TEMP,R2 

M0V8 

C.APR(R2) 

MOV 

$06UF,R0 

CALL 

$CNVO 

MOV 

RO.SOBUF 

RETURN 

GET  THE  TEMPLATE  ADDRESS 

GET  THE  STATION  APR 

GET  THE  CURRENT  POSITION  IN  THE  OUTPUT  BUFFER 

CONVERT  THE  NUMBER  TO  DECIMAL  ASCII 

UPDATE  POINTER  INTO  OUTPUT  SUFFER 


C  8 

UPDSTA  -  TFE  UPDATE  SfATlON  DEF  MACRO  V05.03b  Saturday  29-Jun-85  05:57 

cpTFI  r,  -  ^FT  sTATlnW  FIAT.S 


Page  10 


UPl 


B  9 

UPDSVC  -  UPDATE  SWITCHED  VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  6 
tUPSVC  -  UPDATE  SWITCHED  URTUAL  CIRCUIT 


UP 
SE 


1A5 
1A6 
1A7 
1A8 
1A9 
150 
151 
152 
15^ 
15-, 
155 
156 
157 

158  000022 

159  000022 

160  0C002A 

161  000030 

162  000032 

163  000036 
16A  0000A2 

165  OOOOAA 

166  00OOA6 

167  00005A 

168  000056 

169  00006A 

170  000070 

171  000072 

172  000076 

173  00010A 
17A  000110 

175  00011 A 

176  000120 

177  00012A 

178  000130 

179  0001 A2 

180  0001 5A 

181  000160 

182  C0020A 

183  000230 
ISA  0002A2 

185  00025A 

186  000266 

187  00031A 

188  000330 

189  00033A 

190  0003AO 

191  0003AA 
;^2  000350 
193  00035A 
19A 

195  000556 

196  00036A 

197  000366 
198 

199 


.SBTTL 
•*•  -  SUPSVC 
INPUT; 


SUPSVC  -  UPDATE  SWITCHED  VIRTUAL  CIRCUIT 
-  UPDATE  SWITCHED  VIRTUAL  CIRCUIT 


R5  -  TEMPLATE  ADDRESS 


OUTPUT: 


0105A6 
005767 
001152 
005267 
012705 
011505 
001 5AA 
122765 
001372 
012767 
010567 
005725 
010567 
012767 
012700 
012701 
012702 
00A767 
010067 


SUPSVC: 


OOOOOOG 

OOGJOOG 
OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOC 
OOOOOOG 

OOOOOOG 

177776  OOOOOOG 

OOOOOOG 

000000' 

00001A 

OOOOOOG 

OOOOOOG 


005367  OOOOOOG 


016701  OOOOOOG 

162701  OOOOOOG 

010167  OOOOOOC 

00A767  OOOOOOG 

016705  OOOOOOG 
000632 


012767  OOOOOOG  OOOOOOC  20$: 

012605 

000207 

000001 


C-8IT  =  SUCCESS/FAILURE 

SSVUPD  SET  TO  INDICATE  UPDATE  ALREADY  DONE 

ALL  OF  THE  SVCSDF  TEMPLATES  ARE  OUTPUT. 


MOV 
TST 
BNE 

INC 

MOV 

MOV 

BEQ 

CMP8 

BNE 

MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

$PTNUM 

SPTNUM 

DEC 

$PTNUM 

$PTNUM 

$PTNUM 

SPTNUM 

SPTNUM 

$PTR50 

$PTR50 

MOV 

sue 

MOV 
CALL 
MOV 
BR 


R5,-(SP) 

SSVUPD 

20$ 

SSVUPD 

#$TMLST,R5 

(R5),R5 

20$  , 

*CS.SVC,C.STS(R5) 

10$ 

#.BUFF,S0FDB+F.NRBD+2 

R5,.TEMP 

(r5) 


R5, .FLAGS 

#-2,. COMMA 

#.6UFF,R0 

#SVCDF,R1 

#SVCLN,R2 

$MVASC 

R0.S08UF 

#SiVNAM 

#S$VNAMt2 

SOBUF 

*S$VPSZ,,*SV$PSZ 

#S$VWSZ,,*SV$WSZ 

#SSVFLG, OCTAL 

#S$VRCL 

#S$VTIM 

#S$,'»TE,#5,*SVSDTE 

#S$VC:iN,*1 

soeuf ,R1 

(».8UFF,R1 

R1,$CFDB+F.NR8D 

$WDATA 

.TEMP,R5 

10$ 


SAVE  R5 

UPDATED  YET 

IF  NE,  YES  -  ALL  DONE 

MARK  AS  DONE 

ELSE  POINT  OT  LISTHEAD 

NEXT  TEMPLATE 

BR  IF  END  OF  LIST 

;  CHECK  TEMPLATE  TYPE 

BR  IF  NOT  SVCSDF 

SET  NEW  OUTPUT  BUFFER 
SAVE  TEMPLATE  ADDRESS 
POINT  TO  C.STS 
SAVE  ADDRESS  OF  FLAGS  WORD 
SUPPRESS  FIRST  2  COMMAS 
POINT  AT  START  OF  OUTPUT  BUFFER 
POINT  AT  START  OF  SVC  DEFINITION 
GET  LENGTH  OF  SVC  DEFINITION 
MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 
SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 
NAME  (XX  OF  DLM-XX.YY) 
NAME  (YY  OF  DLM-XX.YY) 
BACK  OVER  THE  DECIMAL  POINT 

PACKET  SIZE 

WINDOW  SIZE 
FLAGS 

MAXIMUM  RECALLS 
RECALL  TIMER 

RAD50  DTE  NUMBER 


nAD50  OWNER  OF  SVC 
CALCULATE  LENGTH  OF  BUFFER 

SET  LENGTH  OF  BUFFER 

WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

POINT  TO  TEMPLATE 

CONTINUE 


MOV     #SBUFl,$0FDB+F.NRBDt2  ;  SET  TO  OUTPUT  THE  "END$DF"  LINE 

MOV     (SP)+,R5       ;  RESTORE  R5 

RETURN 

.END 


UPDSVC  -  UPOAi; 


C  9 
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SETCWl  -  SET  THE  CHARACTERISTICS  WORD  1 


Page  9 


239 

240 
241 
242 
245 
2A4 
2A5 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 


.SBTTL   SETCWl  -  SET  THE  CHARACTERISTICS  WORD  1 
SETCWl  -  SET  THE  CONTROLLER  CHARACTERISTICS  WORD 


INPUT: 


.PNUMB  =  CHARACTERISTICS  WORD  1 

.PNUMH  =  CHARACTERISTICS  WORD  1  (HIGH  ORDER) 

.TEMP  =  TEMPLATE  ADDRESS 


000164 

000164  016702  OOOOOOG 

000170  016201  000010 

000174  016700  OOOOOOG 

000200  C04767  OOOOOOG 

000204  010067  OOOOOOG 

000210  000207 


OUTPUT: 


SETCWl: 


MOV 

.TEMP,R2 

MOV 

C.CW1(R2),R1 

MOV 

soeuf ,R0 

CALL 

$CNV0 

MOV 

R0,$08UF 

RETURN 

;  GET  START  OF  TEMPLATE 
GET  CHARACTERISTICS  WORD  1 
POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 
CONVERT  NUMBER  TO  OCTAL 
UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 


C  10 

UPDUNT  -  CFE  UPDATE  UNIT  DEFINI  MACRO  V05.05b  Saturday  29-Jun-85  05:58  Page  10 
ccTTQD  -  QCT  TUP  "jprnMhsBV  r<;R  AnnBf<;'; 
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UPDX2P  -  UPDATE   X.25   LEVEL   2   CH  MACRO  V05.03b   Saturday  29-Jun-85   05:58     Page  ^-t 
MACRO  CALLS   AND  LOCAL    DATA 


1U 

115 

116 

117 

118 

119 

120 

121 

122 

125 

12A 

125 

126  000000 

127 

000000 

128  000000 

129  000002 

130  000004 

131  000006 

132  000012 

133  OOOOU 

134  000016 

155  000020 

136  000022 

137 

000024 

158  000000 

139 

UO  000000 

011 

1A1 

000010 

U2 

U3 

130 


062 


.MACRO 

$PTR50  ors,wc 

MOV 

OfS,R2 

MOV 

WC,R1 

CALL 

$PTR50 

.ENDM 

.SBTTL 

LOCAL  DATA 

;  DEFINE  THE  X. 

25  LEVEL  2  PARAMET 

.ASECT 

.=0 

.BLKW 

1 

.8LKU 

1 

C.LIN 

.BLKW 
.BLKW 

1 
2 

C.WSZ 

.BLKW 

1 

C.8SZ 

.BLKW 

1 

C.RTC 

.BLKW 

1 

C.RTT 

.BLKW 

1 

C.HBT 

.8LKW 

1 

C.LEN 

.PSECT 

.NLIST 

BEX 

X2PDF 

.ASCII 

^|1>/X2P$DF/<11> 

X2FlN= 

-X2PDF 

.LIST 

BEK 

C.LNK 
C.STS 
LINE  ID:  RAD50  PROCESS  NAME, 

CONTROLLER,  bNIT  NUMBERS 
WINDOW  SIZE  (0-7) 
BLOCK  SIZE 
RETRANSMIT  COUNT 
RETRANSMIT  TIMtR  VALUE 
HOLDBACK  TIMER  VALUE 
LENGTH  OF  THE  BLOCK 


c  n 

UPDX2P  -  UPDATE  X.25  LEVEL  2  CH  MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  5 
tilPXPo  -  UPDATE  X.25  LEVEL  2  PROTOCOL  DEFINITION 
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UPDX29  -  UPDATE  X.29  3  CHARACTE  MACRO  V05.05b  Saturday  29-Jun-85  05:59  Page  6-1 
Syrr.bol  table 


F.NRBD=  ».♦••*  GX 

X$9CT  =  »«•»*♦  GX 

X$9MXC=  •••»«*  GX 

X29DF  OOOOOOR 

.  ABs.  ooooc:   000 

000136    001 
Errors  detected:  0 


X29LN  =  000010 
SBUFl  =  **«♦♦•  GX 
$MVASC=  «*••••  GX 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


$08UF  =  ♦•**»•  GX 
$0FD8  =  »**•»»  GX 
$PTNUM=  *«»•*♦  GX 


$UPX29  00001  ORG 
$WDATA=  »*•••*  GX 
.BUFF  =  ***»»*  GX 


.COMMA=  ♦****♦  GX 
.FLAGS=  «♦•*♦•  GX 
.TEMP  =  ******   GX 


Assemble'-  statistics 


Work  file  reads: 
Work  tile  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


0 

0 

8783  Words      (    55   Pages) 

K440  Words      {    55  Pages) 

RSX-11M/PLUS 


SY:UPDX29!v2;[i*32?i3^]UPDX29/CR/-SP  =  SY:[1,l]RSXMCM.SML/ML,[130,110]NETLI8/ML,[132,10]UPDX29 


UPDX29 
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B  13 


•F  1LE«*1D««MLD 


MM      MM 

DDDDDDDD 

MM      MM 

DDDDDDDD 

MMMM  MMMM 

DD      DD 

MMMM  MMMM 

DD      DD 

MM  MM  MM 

DD      DD 

MM  MM  MM 

DD      DD 

MM      MM 

DD      DD 

MM      MM 

DD      DD 

MM      MM 

DD      DD 

MM      MM 

DD      DD 

MM      MM 

DD      DD 

MM      MM 

DD      DD 

MM      MM 

LLLLLLLLLL 

DDDDDDDD 

MM      MM 

LLLLLLLLLL 

DDDDDDDD 

LL 

ssssssss 

TTTTTl 

TTTT 

LL 

ssssssss 

TTTTT 

nil 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

f^LD  -  Microcode  Loaaer 


c  13 

MACRO  V05.03b  Wednesday  28-Aug-85  11:26 


MLD 
DSPDRV 


Microcode  Loader 
Dispatch  to  Device 


br 


B  K 

MACRO  V05.03b  Wednesday  JS-^ug-SS  11:26 
iuer 


Page  10-1 


Ml 


528  0OU666 

529  000672 

530  000676 


016704     001370' 
016704      00136A' 


531  00070? 

010564 

000020 

532  00070D 

016764 

001370'  000016 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543  000714 

016702 

001400' 

544  000720 

016705 

001404' 

545  000724 

C10403 

546  000726 

062703 

000010 

547  000732 

548 

549 

550  000736 

105764 

000011 

551  000742 

001426 

552 

553 

554 

555  000744 

016705 

001364' 

556  000750 

0'5503 

000012 

557  000754 

0'..  iOII 

558  000756 

067764 

177046  000016 

559  000764 

167764 

177040  000020 

560  000772 

003304 

561  000774 

000241 

562  000776 

563 

564  001000 

565 

566 

567 

568 

569 

570 

571  001000 

032703 

077777 

572  001004 

001404 

573  001006 

012702 

000051' 

574  001012 

575 

576  001016 

000261 

577  001020 

10$: 


20$: 


25$: 


MOV 

LD8ADR,R4 

CALL 

aSLXIO 

MOV 

LD8PTR,R4 

MOV 

R5,C.CNT1(R4) 

MOV 

LD8ADR,C.BUF1+2(R4) 

.ENDC 


Get  APR6-biased  LDB  address 

Copy  microcode  to  LDB 

Get  address  of  LDB's  CCB 

Copy  LDB  byte  count  to  CCB 

Recopy  address  if  driver  changed  it 

End  UMR  conditional 


Pick  up  the  information  needed  to  dispatch  to  the  driver  and  perform 
the  dispatch.  Return  to  user  state  after  the  dispatch  -  all  registers 

i   mappings  prior  to  the  switch  into  system  state  are  preserved  across 
I  .e  transi tion. 


Get  driver's  PDV  index 
Get  line  table  address  as  well 
Copy  CCB  address 

Compute  address  of  function  code 
Dispatch  to  driver  at  process  level^ 
and  return  to  user  state  at  "20$' 

Clear  C-bit  and  test  for  halt 
Branch  if  "halt"  CCB,  ignore  status 


MOV 

PDVIDX 

R2 

MOV 

DDMT8L 

R5 

MOV 

R4,R3 

ADD 

#C.FNC 

R3 

CALLR 

aPDSPL 

TST8    C.M0D(R4) 
BEQ     40$ 


30$: 
40t: 


.IF 

MOV 
MOV 
3HE 
ADD 
SUB 
BGT 
CLC 
RETURfJ 

.IFF 

MOV 
BEQ 

.ENDC 

BIT 
BEQ 
MOV 
CALL 

SEC 
RETURM 


DF 


N$$UMR 


LD8PTR,R5 

C.STS(R5),R3 

25$ 

aRD8SZ,C.BUF1+2(R4) 

SRD8SZ,C.CNT1(R4) 

DSPDRV 


C.STS(R4),R3 
40$ 


#''C<CS.ERS>,R3 
30$ 

*DEVERR,R2 
LOGEVT 


If  system  has  UMRs  . . . 

Get  address  of  LDB's  CCB 
Get  driver's  load  status 
Branch  if  error(s)  occurrev. 
Advance  load  buffer  address 
Subtract  enough  data  to  fill  an  LDB 
Branch  if  more  of  buffer  to  load 
Else  clear  C-bit  to  continue  load 
Exit 

I f  system  has  no  UMRs  .  . . 

Else,  get  driver's  completion  status 
Branch  if  loading  is  to  continue 

End  UMR  conditional 

Errors  other  than  logical  data  end? 
Branch  if  not 

Get  "device  error"  string  address 
Go  log  the  event 

Set  C-bit  to  indicate  load  halt 
Exit 


C  U 


MLD 
LOGEVT 


Mic  '•ocode  Loader 
Loo   a  Nietwork   Event 
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FC.Ml.D= 

000026 

FS.S1R= 

001000 

F.STBK= 

000036 

L$$ASG= 

000000 

N.ANM2= 

000021 

FC.PCT= 

000030 

FS.TRM= 

003000 

F.UNIT= 

000136 

L$$DRV= 

000000 

N.DID  = 

000021 

FC.PWR= 

000022 

FS.WLB= 

001000 

F.URBD= 

000020 

L$$P11= 

000001 

N.DVNM= 

000032 

FC.RCE= 

000002 

FS.XKL= 

002000 

F.VBN  = 

000061 

L$$11R- 

000000 

N.FID  = 

000000 

FC.RCP= 

OOOOU 

FS.X0F= 

010000 

F.V8SZ= 

000060 

L.COST 

000015 

N.FNAM= 

000006 

FC.TIM= 

000010 

FS.X0N= 

007000 

G$$TPP= 

000000 

L.CTL 

000012 

N.FFYP:: 

000011 

FC.XCP= 

000012 

FS.ZER= 

002000 

G$$TSS= 

000000 

L.CVA 

177776 

N.FVER= 

000016 

FC.XME= 

000000 

FX.DIR= 

OOOOO'i 

G$$TTK= 

000000 

LDDM 

000002 

N.NEXr= 

000022 

FDB 

OOOUAR 

002  FX.DLN= 

000003 

G$$WRD= 

000000 

L.DDS 

000001 

N.SrAT= 

000020 

FD.RWM= 

••»*••  GX 

FX.[)MX  = 

000002 

IE.EOF= 

***•*•  GX 

L.DLC 

000003 

N.UNIT= 

000031 

FILDEV 

001326R 

002  FX.LEN= 

000000 

I0.UL8= 

*»»•**  GX 

L.DLM 

000006 

OP$INI= 

000000 

FlLDIR 

001354R 

002  F$$LVL= 

000001 

ISAR5 

000002RG 

001  L.DLS 

000010 

OP$TER=^ 

000001 

FILERR 

001310R 

002  F.ACTL= 

000076 

I$$RAR= 

000000 

L.FLG 

000000 

PARHD 

000010RG    001 

FIOERR 

000073R 

002  F.AL0C= 

000010 

I$$RDN= 

000000 

L.KRBA 

000016 

PAR$$$= 

000027 

FO.RD  = 

*♦»«*.  GX 

F.8BFS= 

000062 

KISAR5= 

******   GX 

L.LEN  = 

000022 

PDSPL 

000021RG    001 

FR$BCC= 

000007 

F.BDB  = 

000070 

KSSCNT^ 

177516 

L.MPF 

000022 

PDVIDX 

001100R     002 

FR$CCF= 

000001 

F.BGBC= 

000057 

K$$CSR= 

177516 

L.NMST 

000020 

PDVTA 

000026RG    001 

FR$CDF= 

000002 

F.BKDN= 

000026 

K$$LDC= 

000000 

L.NSTA 

000011 

PH$HDE= 

000001 

FR$DAO= 

000011 

F.BKDS= 

000020 

K$$TPS= 

000071 

L.OWNR 

000021 

PH$LOC= 

000002 

FR$EXC= 

000000 

f.bk;ef  = 

000050 

LDBADR 

001570R 

002  L.UNT 

000013 

PH$MTS= 

000003 

FR$FRM= 

000010 

F.8KP1= 

000051 

LD8GT 

000020RG 

001  MLD 

000036R 

001  PH$UMP= 

000000 

FR$FTL= 

000005 

F.BKST= 

000021 

LD8IAS 

001366R 

002  MLDERR 

OOOOOOR 

002  PH$WCS= 

000001 

FR$OPN= 

OOOOOA 

F.8KVB= 

000061 

LD8PTR 

001361R 

002  MLOAD 

001506R 

001  PURAST 

001152R    001 

FR$RFD= 

000006 

F.CHR  = 

000075 

LD8RT 

000022RG 

001  M0$SAC= 

000016 

P$$P15= 

000000 

FR$SBU= 

000012 

F.CNTG= 

000031 

LD8WTS= 

000001 

MOISPR= 

000012 

P$$WRD= 

000000 

FR$SHO= 

000003 

F.DFMB= 

000016 

LDSLP  = 

000000 

MO$SSV= 

000011 

QRMVF 

000012RG    001 

FR$UBU= 

000013 

F.DSPTr 

000011 

LF.ACT= 

100000 

MO$25A= 

000006 

Q$$0PT= 

000010 

FR$UPT= 

oooou 

F.D»/NM= 

000131 

LF.BRO= 

000100 

MO$25P= 

000002 

RD8SZ 

000030RG    001 

FS.AST= 

000000 

F.EFBK= 

000010 

LF.8UT= 

000007 

MO$25S= 

000001 

RE$ADC= 

000001 

FS.CIB= 

002000 

F.EFN  = 

000050 

LF.ENA= 

002000 

M0$29S= 

000010 

RE$ADF=: 

000017 

FS.CRA= 

001000 

F.E08B= 

000032 

LF.LP8= 

001000 

MXFNLN= 

000006 

RE$ADR= 

000007 

FS.DIS= 

013000 

F.ERR  = 

000052 

LF.MDC= 

000100 

M$HIGH= 

000003 

RE$BLK= 

000010 

FS.DVC= 

001000 

F.EXT  = 

000072 

LF.MFL= 

001000 

M$$CR8= 

000121 

RE$CAF= 

000011 

FS.ENB^ 

012000 

F.FACC= 

000013 

LF.MTP= 

000020 

M$$CRX= 

000000 

REtDAT= 

000001 

F5.EXI= 

001000 

F.FF8Y= 

000011 

LF.PAC= 

000200 

M$$FCS= 

000000 

RE.  DRP= 

000016 

FS.GET= 

006000 

F.FLG  = 

000071 

LF.RDY= 

010000 

M$$MGE= 

000000 

RES  .DT= 

000013 

FS.HLT= 

000000 

F.FNAM= 

000110 

LF.REA= 

010000 

M$$NET= 

000000 

RES',  SN= 

000012 

FS.!NI= 

000000 

F.FNB  = 

000102 

LF.5ER= 

000010 

M$$0VR= 

000000 

RESril  = 

000001 

FS.<IL= 

OOOroO 

F.FTYP:; 

000116 

LF.TIM= 

000010 

M$3100= 

000000 

RES  c^ 

000001 

FS.LCL= 

100000 

F.FVER= 

000120 

LF.UNL= 

020000 

M$3101= 

000001 

RE$L  ^= 

000000 

FS.:rM= 

001000 

F.HIBK= 

000001 

LF.X2P= 

000000 

M$3102= 

000002 

RE$RCV= 

000001 

FS.MNT= 

OOAOOO 

F.LUN  = 

000012 

LN.CLO= 

000000 

M$3103= 

000003 

RE$SED= 

000011 

FS.MSN= 

OUOOO 

F.M8CT= 

000051 

LN.Da'*l= 

000005 

M.KTAE= 

000010 

RE$SKW= 

000006 

F5.REA= 

001000 

F.M8C1= 

000055 

LN.LOA= 

000001 

M.KTEF= 

000002 

RE$STA= 

000002 

FS.RET= 

000000 

F.MBFG= 

000056 

LN.LOO= 

000003 

M.KTMG= 

000001 

RE$SUM= 

000003 

FS.REZ= 

003000 

F.NRaD= 

000021 

LN.OAU= 

000003 

M.KTUN= 

000006 

RE$SYN= 

000000 

FS.RLB= 

0020C0 

F.NREC= 

000030 

LN.OFF= 

000001 

MTUIC 

000006RG 

001  RESTME  ■ 

000021 

FS.RNG= 

onoGO 

F.0VBS= 

000030 

LN.ON  = 

000000 

N$$ACC= 

000001 

RE$TM0= 

000000 

FS.RST= 

000000 

F.RACC= 

000016 

LN.OOP= 

000001 

N$$BUF= 

000001 

RE$TMR= 

000020 

FS.RT»J= 

001000 

F.RATT= 

000001 

LN.OPE= 

000001 

N$$LDV= 

000001 

RE$UPT= 

000002 

FS.SET  = 

005000 

F.RCNM= 

000031 

LN.REF= 

000002 

N$$MCP= 

000001 

RE$URE= 

000003 

fS.SFC= 

005900 

F.RCTL- 

000017 

LN.SE,(  = 

000002 

N$$MLL= 

000001 

RE$VER= 

000005 

fS.SFR= 

C06000 

F.RSIZ= 

000002 

LN.STA= 

000017 

N$$MOV= 

000010 

RE$VRQ= 

000015 

F5.SFS= 

OOiOOO 

F.RTyp= 

000000 

LN.SU8= 

000360 

N$$MCT= 

000001 

RT$INI= 

000002 

FS.SP*= 

O'iOOOO 

F.SEQN= 

000100 

LN.TRI= 

000006 

N$$PEM= 

000001 

RT$OFF= 

000001 

fS.STM= 

000000 

F.SPDV= 

000072 

LOCFIL 

001372R 

001  N$$UMR= 

000001 

RTSON  = 

000000 

FS.S'P= 

002000 

F.SPUN= 

000071 

LOGEVT 

001022R 

001  M.ANM1= 

000002 

R$$DER-- 

000000 
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MMM 

MMM 

ILL 

DDDDDDDDDDDD 

MMM 

MMM 

LLL 

DDDDDDDDDDDD 

MMM 

MMM 
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DDDDDDDDDDDD 

MMMMMM 

MMMMMM 

LLL 

DDD 

DDD 

MMMMM^ 

MMMMMM 

LLL 

DDD 

DDD 

MMMMMf- 

MMMMMM 

LLL 

DDD 

DDD 

MMM 

WM   MMM 

LLL 

DDD 

DDD 

MMM 

*IMM   MMM 

LLL 

DDD 

DDD 

MMM 

mn        MMM 
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1111 
1111 
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1111 
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sss 
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sss 
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sss 
sss 


sssssssss 
sssssssss 
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sss 
sss 
sss 


ssssss 
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ssssss 


1111 
nil 
1111 


nil 
nil 
nil 
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nil 
nil 
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CS.CHN= 

»♦**** 

GX 

CS.TLO= 

******  GX 

CS.CUG= 

****** 

GX 

CS.X2P= 

******  GX 

CS.DSA= 

****** 

GX 

CS.X29= 

******  GX 

CS.DSC= 

****** 

GX 

CS.X3P^ 

******  GX 

CS.DST= 

****** 

GX 

C.FLG 

000012 

CS.DTE= 

****** 

GX 

C.LEN  = 

000020 

rS.FLG= 

****** 

GX 

C.NAM 

000004 

CS.PSN= 

****** 

GX 

C.POR 

000010 

CS.PVC= 

****** 

GX 

C.STS  = 

******  GX 

CS.RDT= 

****** 

GX 

C.THl 

0000- 6 

CS.TH1= 

****** 

GX 

C.TLO 

OOOOU 

.  ABS. 

000020 

000 

(RU,I,GBL,ABS,OVR) 

000372 

001 

(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

DISTBL 

F.NRBD= 

PSNDF 


00001  OR 
******  GX 
OOOOOOR 


PSNLN  =  000010 


SBUFI 
$MVASC= 
$OBUF  = 
SOFDB  = 


******  GX 
******  GX 
****** 
****** 


GX 
GX 


$PSIPT=   *»»•**  GX 
$PTNUM=    **♦*»»   GX 


$PT0Pr= 

****** 

GX 

$PTR50= 

****** 

GX 

$UPCHN= 

****** 

GX 

$UPCUG= 

****** 

GX 

$UPDSA= 

****** 

GX 

$UPDSC= 

****** 

GX 

$UPDST= 

****** 

(,X 

$UP[)TE  = 

****** 

GX 

SUPPSN 

000072RG 

$UPPVC= 

****** 

GX 

$UPRDT= 

****** 

GX 

$UPX2P= 

**+*** 

GX 

$UPX29=: 

****** 

GX 

$UPX3P= 

****** 

GX 

$UDATA= 

****** 

GX 

.BUFF  = 

****** 

GX 

.COMMA= 

****** 

GX 

.CONER= 

****** 

GX 

.FLAGS= 

****  ** 

GX 

.TEMP  = 

****** 

GX 

UPDI 

MACI 

MACI 

EPR 
ERRI 
PRII 
$PTI 
$PTI 
SP' 
ii 


»••   Assembler   statistics 


file 


reads:   0 

0 


Work 

Work      file  writes 
Size   of  work    file: 
Size  cf   core  pool : 
Operating     system: 


8791    Words      (   35  Pages) 
UA40  Words      (    55  Pages) 
RSX-i IM/PLUS 
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OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  REMOTE  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 
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6 

7 
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9 
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12 
13 
H 
15 
16 
^7 
18 
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20 
21 
22 
23 
2'< 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
3'' 
'  0 

A1 

42 
43 

44 
45 
46 
47 
48 
49 
50 
5' 
52 
•^3 
54 


.TITLE  UPDSLT  - 
.IDENT  /V05.00/ 


CFE  UPDATE  SLT  DEFINIHON  IN  CETAB 


COPYRIGHT  (C)  1979,  1O80,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AM'  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  „,rH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAI  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  LINE  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

C    CNET-llM  V3.1 
DcCNET-IIM-PLUS   Vl .1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-M'cro/RSX  Vl.O 


ITS 


UPDSLl 
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Syiibol    table 


-1 


BIT": 

0001 26R 

002 

LF.SER 

=  «****»  GX 

SETFLG 

000242R 

S$LRPR= 

****** 

GX 

CS  SLT= 

».»*»*  (3x 

LF.TIi'*! 

=  ******  GX 

SETHTM 

0006'i2R 

s$Lryp= 

****** 

GX 

C  "H'' 

000010 

LF.X2P 

=  «♦*»**  GX 

SETNAM 

000204R 

$ALPHA= 

000022 

r  CTT 

000012 

LMDC 

000007R 

SETRPR 

000670R 

$ANY  = 

000020 

C.FLG 

000006 

LMDCL 

=  000007 

SETTYP 

00077AR 

$BLANK= 

000006 

I'.LEN  = 

OOOOU 

LMFL 

000025R 

SETUNT 

000566R 

$CAT5  = 

****** 

GX 

t  NAI^ 

00000^ 

LMFLL 

=  000007 

SKIP 

000112R 

UU2 

$CLNUP= 

****** 

GX 

C.STS  = 

»*«♦*.  Gx 

LMTP 

00001 6R 

Slave 

000074R 

$DIGIT= 

000021 

CUNT 

oooon 

LMTPL 

=  000007 

SLTf.TB 

OOOOOORG 

OOi 

$DNUMB= 

OOOOU 

EXIT 

000172R 

002 

LSER 

000061 R 

SLTSTB 

OOOOOORG 

002 

$EOS  = 

000012 

LBRO 

000052R 

LSERL 

=  000007 

SL$BRA= 

******  GX 

$ERROR=: 

****** 

GX 

LBROL  = 

000007 

LTIM 

000034R 

SL$CTM= 

******  GX 

$EX1T  - 

000000 

LENA 

OOOOOOR 

LTIML 

=  000007 

SL$HTM= 

».****  GX 

SFAIL  -= 

177777 

LENAL  -- 

000007 

LX2P 

0000A3R 

SL$RPR= 

******  GX 

$LAMDA= 

000000 

LPS 

00010AR 

002 

LX2PL 

=  000007 

SL$TyP= 

******  GX 

$MOVPT= 

****** 

GX 

LF .BRO= 

»**«**  GX 

MASTER 

000070R 

S$LBRA= 

******  GX 

$MOVST= 

****** 

GX 

LF .ENA- 

»*»»**  GX 

NEXT 

000122R 

002  S$LCTT= 

******  GX 

$MVASC= 

****** 

GX 

Lf .MDC= 

'»»»♦♦  GX 

SETBRA 

000732R 

S$LFLG= 

******  GX 

$NUMBR= 

000002 

LF.MFL= 

******  GX 

SETCNT 

000540R 

S$LHTM= 

******  GX 

$OBUF  = 

****** 

GX 

LF.MTP= 

******  GX 

SETCTT 

0006UR 

.  AB5. 

OOOOU 
001056 

000 
001 

(RW,I, 
(RW,I, 

GBL.ABS.OVR) 
LCL,REL,CON) 

SSTATE 

000200 

002 

(RW,D, 

-CL,REL,CON) 

IK  TAB 

00002A 

003 

fRw.r, 

_CL,REL,C0N) 

SKSTR 

000047 

OOA 

(RW,D, 

_CL,REL,C0N) 

Errors 

detected: 

0 

***  Assembler   statistics 

Wcrl'      file      reads:  0 

Work      file   writes:  0 

Size  of   work    file:  10S08  Words      (   13   Pages) 

Size  of   core  pool:  K440  Words      (   55   Pages) 

Operating      system:  RSX-11M/PLU5 

SyfuPDS.T!v2;[132,131]UPDSLT/CR/-SP=SY:[1,1]RSXMCM.SML/ML,t1?0,110jNETLI8/ML,[132,10]UPDSLT 


UPD 
SET 


$PTNUM= 

****** 

GX 

$PT0PT= 

****** 

GX 

$PTR50= 

****** 

uX 

$RAD50= 

000016 

$STRNG= 

000001 

$SUB\P= 

000010 

$TMLST= 

****** 

GX 

SUPSLT 

000100RG 

$$$FLG= 

U7777 

$$$KEr= 

000011 

$$$STA= 

000000 

$$$TMP= 

000013R 

.C0MMA= 

****** 

G\ 

.CONER= 

****** 

jX 

.FLAGS= 

****** 

GX 

.PNUMB= 

****** 

GX 

.PSTPT= 

****** 

GX 

.TEMP  = 

****** 

GX 

.TPARS= 

****** 

GX 

001 


UPDSLT 
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SETFLG  -   SET    STATION   FLAGS 


271 
272 
273 

+ 

.S8TTL 
SETFLG 

SETFLG  -  SET  STATION  FLAGS 
-  SET  STATION  FLAGS 

274 
275 

INPUTS: 

276 

TEMP  = 

TEMPLATE  ADDRESS 

277 

$08UF  = 

POINTER  INTO  OUTPUT  BUFFER 

278 
279 

OUTPUTS: 

280 
281 
282 
283 
284  000254 

THE  FLAGS  ARE  WRITTEN  TO 

THE  OUTPUT  BUFFER 

5ETFLG: 

285  000254 

010446 

MOV 

R4,-(SP) 

SAVE  R4 

286  000256 

016704 

177516 

MOV 

TEMP,R4 

POINT  AT  TEMPLATE 

287  000262 

016700 

OOOOOOG 

MOV 

$08Uf,R0       , 

POINT  AT  OUTPUT  BUFFER 

288  000266 

052764 

OOOOOOG 

000006 

BIT 

*SF.ENA,C.FLG(R45 

;  IS  THE  STATION  TO  BE  ENABLED  ? 

289  000274 

001406 

BED 

10$ 

IF  EQ,  NO 

290  000276 

012701 

000002' 

MOV 

#SENA,Ri 

GET  ADDRESS  OF  ENABLE  STRING 

291  000302 

012702 

000007 

MOV 

#SENAL,R2 

AND  LENGTH 

292  000306 

293 

294  000312 

004767 

OOOOOOG 

CAIL 

$MVASC 

MOVE  STRING  INTO  OUTPUT  BUFFER 

052764 

OOOOOOG 

000006 

10$: 

BIT 

*SF.SVC,C.FLG(R4 

;  IS  THE  STATION  AN  SVC  ? 

295  000320 

001406 

BEQ 

20$ 

IF  EQ,  NO 

296  000322 

012701 

000020' 

MOV 

#SSVC,R1 

GET  ADDRESS  OF  STRING 

297  000326 

012702 

000007 

MOV 

#SSVCL,R2 

AND  LENGTH 

298  000332 

004767 

OOOOOOG 

CALL 

$MVASC 

MOVE  STRING  INTO  OUTPUT  BUFFER 

299 

500  000336 

052764 

OOOOOOG 

000006 

20$: 

BIT 

#SF.MFL,C.FLG(R4 

;  IS  THE  STATION  MARKED  FOR  LOAD 

301  000344 

001406 

BEQ 

30$ 

IF  EQ,  NO 

302  000346 

012701 

000011' 

MOV 

#SMFL,R1 

GET  ADDRESS  OF  STRING 

303  000352 

012702 

000007 

MOV 

#SMFLL,R2 

AND  LENGTH 

304  000356 

305 

306  000362 

004  767 

OOOOOOG 

CALL 

$MVASC 

MOVE  STRING  INTO  OUTPUT  BUFFER 

052764 

OOOOOOG 

000006 

30$: 

BIT 

#SF.SER,C.FLG(R4 

;  SERVICE  DISABLED  ? 

307  000370 

001406 

BEQ 

35$ 

NO 

308  000372 

012701 

000027' 

MOV 

*SSER,R1 

GET  ADDRESS 

509  000576 

012702 

000007 

MOV 

#SSERL,R2 

LENGTH 

310  000402 

511 

512  000406 

004767 

OOOOOOG 

CALL 

$MVASC 

MOVE  IT 

020067 

OOOOOOG 

35$: 

CMP 

R0,$0BUF 

ANy  STRINGS  ADDED  ? 

515  000412 

001401 

BEQ 

40$ 

IF  EQ,  NO 

514  000414 

105740 

TSTB 

-(RO) 

ELSE,  SKIP  OVER  LAST  "1" 

515  000416 

112720 

000054 

40$: 

MOVB 

#<',>,(R0)<- 

INSERT  DELIMETER 

316  000422 

010067 

OOOOOOG 

MOV 

RO,$08UF 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 

317  000426 

012604 

MOV 

(SP)+,n4 

■  RESTORE  R4 

518  000430 

000207 

RETURN 

UPt 
Syr 

CS, 

C 
F.t 
OFI 
OFI 
ONI 
ON' 


Er 


Wo 
Wo 

Si 
Si 
Op 

El 
SY 
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Symbol  table 


Page  6-1 


UF 
SE 


CS.SVC= 

C.STS  = 

F.NRBD= 

OFFLEN= 

OFFSTA 

ONLEN  = 

CNSTA 


******  I 
000003 
000016R 
000002 

oooruR 


SVCDF   OOOOOOR 

SVCLN  =  00001A 

SV$CiTE  = 

SV$PSZ= 

SV$USZ= 

StVDTE= 

S$VFLG= 


**  *** 

r  *  *  **  * 


GX 
GX 
GX 
GX 
GX 


S$\/NAM= 

****** 

GX 

S$V0UN= 

****** 

GX 

S$VPSZ= 

****** 

GX 

S$VRCL= 

****** 

GX 

S$VT]M= 

****** 

GX 

S$VWS2= 

****** 

GX 

$BUFI  = 

****** 

GX 

$MVASC= 

****** 

GX 

SOBUF  = 

****** 

GX 

SOFDB  = 

****** 

GX 

$PTNUM= 

****** 

GX 

$P10PT= 

****** 

GX 

$PTR5a= 

****** 

GX 

$SVUPD= 

****** 

GX 

$TMLST= 

******  GX 

SUPSVC 

000022RG 

$WDATA= 

******  GX 

.BUFF  = 

******  GX 

.CDMMA= 

******  GX 

.FLAGS= 

******  GX 

.TEMP  =  «♦••»*  GX 


.  ABS.   OCCOOO 
000370 
Error;,  detected: 


000 
OCT 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,;:ON) 


**«  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  tile: 
Size  of  core  pool : 
Operating  system: 


0 

0 

8830  Words      (   35   Pages) 

UAAO  Words      (    55   Pages) 

RSX-11M/PLUS 


SY:UPDSVc'v2;[?32J3°]UPDSVC/CR/-SP  =  SY:ri  J]RSXMCf^.SML/ML,[130J10]NETLIB/ML,[132,10JUPDSVC 


UPDSVC 
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SETCSR  -  SET  THE  SECONDARY  CSR  ADDRESS 


261 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 

272  000212 

273  000236  000207 


INPUT: 


.S8TTL   SETCSR  -  SET  THE  SECONDARY  CSR  ADDRESS 
SETCSR  -  SET  THE  SECONDARY  CSR  ADDRESS 

.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


SETCSR:  SPTNUM  #C . CSR, OCTAL, *UN$SCS 
RETURN 
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UPDX2P 
tuPX2P 


UPDATE 
UPDATE 


U5 
1A6 
1A7 
1^8 
U9 
150 
151 
152 
153 
154 
155 
156 

157  000010 

158  000010 

159  000016 

160  000022 

161  00002A 

162  000030 

163  000036 

164  000042 

165  000046 

166  000052 

167  000056 

168  00006: 

169  000066 

170  000100 

171  000112 

172  000124 

173  000136 

174  000150 

175  000154 

176  000160 

177  000164 

178  000170 

179  000176 


25  LEVEL  2  CH  MACRO  V05.03b  Saturday  29-Jun-85 
25  LEVEL  2  PROTOCOL  DEFINITION 


S5V5 
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.SBTTL  $UPX2P  -  UPDATE  X.25  LEVEL  2  PROTOCOL  DEFINITION 
'•»•  -  $UPX2P  -  UPDATE  X.25  LEVEL  2  PROTOCOL  DEFINITION 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


C-eiT  =  SUCCESS/FAILURE 


$UPX2P: 


012767 

OOOOOOG 

OOOOOOC 

010567 

OOOOOOG 

005725 

010567 

OOOOOOG 

012767 

177777 

OOOOOOG 

012700 

OOOOOOG 

012701 

000000' 

012702 

0000^0 

004767 

OOOOOOG 

010067 

OOOOOOG 

004767 

000112 

016701 
162701 
010167 
004767 
012767 
000207 


OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG  OOOOOOC 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CALL 

$PTNUM 

SPTNUM 

SPTNUM 

SPTNUM 

SPTNUM 

MOV 

SUB 

MOV 

CALL 

MOV 

RETURN 


#.BUFF,$0FDB+F.NRBD+2  ;  SET  NEW  OUTPUT  BUFFER 

R5,.TEMP  ;  SAVE  TEMPLATE  ADDRESS 

(R5)+  ;  POINT  TO  C.STS 

R5,. FLAGS  ;  SAVE  ADDRESS  OF  FLAGS  WORD 

#-1,. COMMA  ;  SUPPRESS  INITIAL  COMMA 

#.BUFF,RO  ;  POINT  AT  START  OF  OUTPUT  BUFFER 

#X2PDF,R1  ;  POINT  AT  START  OF  X2P  DEFINITION 

*X2PLN,R2  ;  GET  LENGTH  OF  X2P  DEFINITION 

SMVASC  ;  MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

RO,$OBUF  ;  SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

SETLIN  ;  LINE  ID 

*C.WSZ  ;  WINDOW  SIZE 

#C.aS2  ;  BLOCK  SIZE 

*C.RTC  ;  RETRANSMIT  COUNT 

*C.RTT  ;  RETRANSMIT  TIMER 

#C.H8T  ;  HOLDBACK  TIMER 

$06UF,R1  ;  CALCULATE  LENGTH  OF  BUFFER 

#.6UFF,R1 

RI.SOFDB+F.NRBD  ;  SET  LENGTH  OF  BUFFER 

SWDATA  ;  WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

*$8UFI,$0FDB+F.NN8D+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  lINE 
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QP-'  I\,  _  CPT  1  IMP  m 


UP0X29 

CREATED  BY 

MACRO     OH  29 

-JUN-85   AT   ( 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

F.NRBD 

- 

ex 

•  6-U2 

♦6-156 

X$9CT 

- 

****** 

GX 

6-153 

x$9Mxr 

r 

****** 

GX 

6-152 

X29DF 

000000 

R 

#5-12^ 

5-125 

X29LN 

r 

000010 

#5-125 

6-1A9 

tBUFI 

r 

****** 

GX 

6-15& 

tMVASC 

- 

****** 

GX 

6-150 

SOBUF 

r 

****** 

GX 

•6-151 

6-15A 

SOFDB 

- 

****** 

GX 

•  6-K2 

•6-156 

SPTNUM 

r 

****** 

GX 

6-152 

6-153 

$UPX29 

000010 

RG 

#6-Kl 

SWDATA 

r 

****** 

GX 

6-157 

.BUFF 

- 

****** 

GX 

fc-lA2 

6-K7 

.COMMA 

z 

****** 

GX 

*6-lA6 

.FLAGS 

= 

****** 

GX 

«6-H5 

.TEMP 

GX 

*6-K3 

C  12 

PAGE    1 

CREF        OA.OO 


•6-158 
6-1A8 

•6-158 
6-155 


UPDX29 
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MlD     -  Microcode  Loader 
Table  or  coi. tents 


C  13 

MACRO  V05.03b  Wednesday  28-Aug-85  11:26 


6-  "^9  Macro  Definitions 

7-  93  Equated  Symbols  and  Literals 

8-  161  Load  Control  Data 

9-  249  MLD     -  Microcode  Loader  Main  Routine 

10-  A71  DSPDRV  -  Dispatch  to  Deuice  Driuer 

11-  579  L06EVT  -  Log  a  Network  Event 

12-  620  PWRAST  -  Powertail  Recovery  AST 
12-  621  ABOAST  -  Abort  Cleanup  AST 

15-  691  FCSERR  -  Input  File  FCS  Error  Handler 

K-  730  LOCFIL  -  Locate  Microcode  File 

15-  772  MLOAD   -  Load  Control  for  RSX-11M  Systems 


MLD 


-  Microcode  Loader 
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c  u 

MLD    -  Microcode  Loader     MACRO  V05.03b  Wednesday  28-Aug-85  11i?5 
LOGEvr  -  Log  a  Network  Event 


Page  11 


579 
580 
581 
582 
585 
584 
585 
586 
587 
588 
58° 
590 
591 
592 
593 
594 
595 
596 
597 
598 

599  00102" 

600  001 OZh 

601  001030 

602  001034 

603  001040 

604  001042 
605 

606  0010^,6 

607  001052 

608  001056 

609  001060 

610  001064 

611  001066 
612 

613  001070 

614  001072 

615  001074 
616 

617  001100 

618  001150 


.SBTIL  LOGEVT 


Func  t ion: 

Call  Format: 
Inputs: 

Outputs: 
Registers  : 


010205 

016746  001402' 

017701  176772 

066701  001400' 

011101 

016146  000004 

012700  001546' 

012701  000000' 
010602 

105020 
022626 

112520 
001376 
162700  001526' 


LOGE'. 


10$: 


MOV 
MOV 
MOV 
ADD 
MOV 
MOV 

MOV 

MOV 

MOV 

CALL 

CLR8 

CMP 

MOVB 

BNE 

SUB 

OIOWSS 
RETURM 


Log  a  Network  Event 
♦••  LOGEVT  •«• 


To  log  microcode  loading  events  to  the  network  using  the 
NM:  network  management  pseudo-device. 


CALL 


LOGEVT 


R2  =  address  of  specific  error  ASCII  string 
PDVIDX  =  PDV  index  tor  device  driver 
CTLNUM  =  device  controller  number 

DECnet  event  is  logged  to  the  event  sink  for  the  node 
this  program  is  running  on. 

RO,  R1  ,  R2  and  R5  destroyed 


R2,R5 

CTLNUM, -(SP) 

aPDVTA.RI 

P[)V:DX,R1 

(R1),R1 

Z.NAM(R1),-(SP) 

*EVT8LKtE$DATA,R0 

*MLDERR,R1 

SP,R2 

SEDMSG 

(R0)  + 

(SP)+,(SP)t 

(R5)+,(R0)f 

10$ 

*EVT8LK,R0 

#I0.WL8,#EVTLUN,*EVTEFL, 


Copy  address  of  input  string 
Put  controller  number  on  stack 
Get  address  of  PDV  table 
Advance  to  PDV  address  of  driver 
Get  driver's  PDV  addresi 
Put  RAD50  process  name  on  stack 

Get  address  of  event  output  data 
Get  $EDMSG  edit  instructions  address 
Get  $EDMSG  argument  block  address 
Form  first  ASCII  string 
Make  it  an  ASCIZ  string 
Clean  off  the  stack 

Append  a  byte  from  input  string 
End  of  string  is  marked  by  zero 
Get  event  buffer  size,  log,  and  exit 

,,<*EVTBLK,RO,#ETYPCL,#0> 
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R$$M1  = 

000001 

S2.BRQ= 

000020 

S6.EI0= 

000400 

T3.ACP= 

100000 

RtSSND= 

000000 

S2.CR  = 

002000 

S6.Rni=- 

100000 

r3.CAL= 

000100 

R$$11M: 

000000 

s2.rro= 

040000 

S6.RLU= 

001000 

T3.CLI= 

001000 

SCtOFF= 

000001 

S2.CTS= 

100000 

TKTCB 

000014RG 

004  T3.GFL= 

S998J,S 

SCSON  = 

000000 

S2.ELF= 

001000 

TMREFL= 

000003 

T3.MCR= 

004000 

srsRsi- 

000003 

S2.FLF= 

000400 

rS.BLK= 

171700 

T3.NET= 

000020 

<;c$SHU= 

000002 

S2.IRQ= 

000200 

rS.CKP= 

000200 

r3.NS[)= 

000200 

SETTMR 

001345R 

002  S2.0BF= 

004000 

TS.CKR= 

000100 

T3.PMD= 

040000 

SF .ACT= 

000200 

S2.0RQ= 

000100 

TS.EXE= 

100000 

T3.PRV= 

010000 

SF .ENA= 

000100 

S2.PCU= 

010000 

TS.HLD= 

002000 

T3.REM= 

020000 

SF.LPB= 

000004 

S2.RCU= 

OOOOOl 

TS.MSG= 

020000 

T3.R0V= 

000040 

SF .MFL= 

000040 

S2.SRQ= 

000040 

TS.NRP= 

010000 

T3.RSr= 

000400 

SF .PAC= 

000020 

S2.WAL= 

000010 

TS.our= 

000400 

T3.SLV^- 

002000 

SF.RFA= 

000010 

S2.WRA= 

000006 

TS.RDN= 

040000 

T3.SWS= 

000002 

SF .SER= 

000001 

S2.WRB= 

000002 

TS.RUN= 

004000 

'JC.ALG= 

000200 

SF  .S\/C  = 

000002 

S3.ACR= 

OOOOOl 

TS.STP= 

001000 

UC.ATr= 

000010 

SF .UNL= 

000040 

S3.CTC= 

000004 

r$$KMG= 

000000 

UC.KU  = 

000004 

SLTMA 

000052RG 

004  S3.FDX= 

000200 

T$$MIN= 

000000 

UC.LGH= 

000003 

STDDM 

000034RG 

004  S3.1CE= 

001000 

T.ACTL 

000052 

UC.NPR= 

000100 

SVSDUM= 

OOOOOl 

53.MHE= 

000400 

T.ASTL 

000016 

UC.PWF= 

000020 

SVSl  0A= 

000000 

S3.NEC= 

000020 

T.ATT 

000062 

UC.QUE= 

000040 

5$$iJRG= 

000000 

S3.PPT= 

020000 

T.CPCB 

000004 

UD.UNS= 

000000 

s$sysz= 

OOr'600 

S3.PTH= 

004000 

T.DPRI 

000040 

UD.160= 

000004 

5.ANM1= 

000014 

S3.RAL= 

000010 

T.EFLG 

000022 

UD.200= 

OOOOOl 

S.ANM?= 

000005 

S3.RES= 

010000 

T.IOC 

000003 

UD.556= 

000002 

S.BFHD= 

000020 

S3.RUB= 

040000 

T.LBN 

000041 

UD.625= 

000005 

S.COST 

OOOOOl 

S3.TAB= 

000002 

T.LDV 

000044 

UD.8K  = 

000006 

S.FATT= 

000016 

S3.TME= 

002000 

T.LMK 

000000 

UD.800= 

000003 

S.FDB  = 

000140 

S3.TSY= 

000040 

T.|Y|XSZ 

000050 

UM.CLI= 

000036 

S.FLG 

000000 

S3.8BC= 

000100 

T.NAM 

000006 

UM.t)SB= 

000200 

S.FNAM= 

000006 

S4.ABD= 

^00000 

T.OFF 

000066 

UM.NBR= 

000400 

S.FNB  = 

000036 

S4.AMI= 

000400 

T.PCB 

000046 

UM.OVR= 

OOOOOl 

S.FNBW= 

000017 

S4.AV0= 

001000 

T.PRl 

000002 

US.ABO= 

OOOOOl 

S.FNTY= 

000004 

S4.BLK-= 

002000 

r.RCVL 

000012 

US.. 13"= 

000002 

S.FTYP= 

000002 

S4.DEC= 

004000 

T.RRFL 

000072 

us.b:y= 

000200 

S.LEN 

000004 

S4.DL0= 

000100 

T.SAST 

000054 

US.FOR= 

000040 

S.NFEM  = 

000020 

S4.EDT= 

010000 

T.SRCT 

000071 

US.FRK= 

000002 

S.NMST 

000002 

S4.HFF= 

000020 

T.STAT 

000032 

US.KPF= 

OOOOOl 

S.OUNR 

000003 

S4.HFL= 

000007 

T.ST2 

000034 

US.LAB= 

000004 

S.TSEF= 

000002 

S4.HHT= 

000040 

T.ST3 

000036 

US.MDE= 

000002 

51.DEC= 

001000 

S4.HSY= 

000200 

T.TC8L 

000030 

US.MDM= 

000020 

31.DPR= 

000400 

S4.RGS= 

020000 

T.TIO 

000057 

US.|V|NT  = 

000100 

S1.DSI= 

004000 

S4.SFC= 

040000 

T.ri'.SZ 

000060 

US.OFL= 

OOOOOl 

S1.ESC= 

000002 

S4.VFL= 

000010 

T.UCB 

000026 

US.PUB= 

000004 

S1.ISF= 

002000 

S5.ABP= 

100000 

T2.A80= 

000100 

US.PUF= 

000010 

S1 .  IBY  = 

000200 

S5.BCC-- 

O'OOCO 

T2.AST= 

100000 

US.RED= 

000002 

51.0BV= 

000100 

S5.DA0= 

040000 

r2.CAF= 

000400 

US.SHR= 

OOOOOl 

SI .PTH= 

000010 

S5.HPC= 

000014 

T2.CHK= 

020000 

US.SPU= 

000002 

SI .RES= 

010000 

S5.HP0= 

000020 

T2.CKD= 

010000 

US.UMD= 

000010 

S1.RNE- 

000020 

S5.IT1= 

000100 

T2.DST= 

040000 

US.VV  = 

OOOOOl 

S1  .R\'F  = 

020000 

S5.0XF= 

000040 

T2.FXD= 

002000 

US.UCK= 

000010 

SI .RSP= 

000004 

S5.RP0= 

002000 

T2.HLr= 

000200 

UU.ABO= 

000400 

S1.RST= 

000^01 

S5.SW1= 

OOOOOl 

T2.REX= 

001000 

UU.ATN= 

000100 

$1 .TME; 

040000 

?5.rMM= 

000002 

T2.SEF= 

004000 

|.IU.AVN= 

000004 

S1.TSV= 

000040 

S5.VER= 

010000 

T2.SPN= 

000004 

UU.GUS= 

000010 

S1.JSI= 

100000 

S5.X0F= 

000004 

T2.STP= 

000020 

UU.IOS= 

002000 

S2.BEl= 

02C000 

S5.X0N-- 

000010 

T2.WFP= 

OOOOOl 

UU.ONL= 

r.0020 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.S10= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKr= 

U.BUF 

U.CBF  = 

U.CLI 

U.CNT 

U.COTQ 

U.CTTB 

U.CTl 

U.CTYP 

U.CWl 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.MLUN= 

U.MUP 

U.OWN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

J.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 


000002 
000200 
OOOOOl 
001000 
000040 
000062 
000032 
000066 
000064 
000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
00010'' 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
177776 
000112 
000113 
000110 
000002 
000034 
000020 
000076 
000074 
000036 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000055 
000047 
000100 
000P26 
000054 
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CREF   04. OC 


••F 


SYMBOL  VALUE 


CS.CHN 

CS.CUG 

CS.DSA 

CS.DSC 

CS.DST 

CS.DTE 

CS.FLG 

CS.PSN 

CS.PVC 

CS.RDT 

CS.THI 

CS.TLO 

CS.X2P 

CS.X29 

CS.X3P 

C.FLG 

C.LEN 

C.NAM 

C.POR 

C.STS 

C.THI 

C.TLO 

DISTBL 

F.NRBD 

PSNDF 

PSNLN 

SBUFl 

SMVASC 

SQBUF 

SOFDB 

SPSIPT 

SPTNUM 

SPTOPT 

$PTR50 

SUPCHN 

SUPCUG 

IUPD5A 

SUPDSC 

SUPDST 

SUPDTE 

SUPPSN 

SUPPVC 

SUPRDT 

$UPX2P 

$LIPX29 

$UPX3P 

SWDATA 

.BUFF 

.rOMMA 

.CONER 

.FLAG3 

.TEMP 


=  ****** 
=  ****** 
~  ****** 
=  ****** 
=  ****** 
=  ****** 
r  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 

r  ****** 

000012 

=  000020 

000004 

000010 

=  ****** 

000016 
OOOOU 
OOOCiO 

=  ****** 

000000 
=  000010 

r  ****** 

r  ****** 

=  ****** 

r  ****** 

r  ****** 

=  ****** 

=  ****** 

=  ****** 

-  ****** 

-  ****** 
r  ****** 

-  ****** 
=  ****** 

-  ****** 

000072 

-  ****** 
=   ****** 

r  ****** 

-  ****** 

-  ****** 

-  ****** 

-  ****** 

-  ****** 
r  *♦♦*♦* 

-  ****** 

-  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 


GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
RG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

5-H8 

5-150 

5-152 

5-153 

5-151 

5-U7 

6-193 

5-K5 

5-K9 

5-154 

6-195 

6-194 

5-155 

5-157 

5-146 
#5-133 
#5-136 
#5-131 
#5-132 

6-206 
#5-135 
#5-134 
#5-144 
*6-184 
#5-139 
#5-140 

6-217 

6-187 
*6-188 
*6-134 

6-178 

6-192 

6-193 

6-191 

5-148 

5-150 

5-152 

5-153 

5-151 

5-147 

5-145 

5-149 

5-154 

5-155 

5-157 

5-146 

6-202 

6-183 
♦6-190 

6-222 
♦6-182 
♦6-180 


6-193 

6-191 
6-192 

6-195 
6-194 
6-205 
♦6-201 
5-140 
6-186 


6-199 
♦6-201 

6-193 
6-194 


#6-177 


6-200 


6-203 


.J 

UU 

l)U 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UUU 

UUL 


♦6-217 
6-185 


♦6-217 

6-194 
6-195 


6-195 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLl 

LLl 
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55 

•  **** 

56 

■  LOCAL 

MACROS 

57 
58 
59 

;  *  *  *  * 

.MACRO 

PRINT   TEXT 

60 

MOV 

TEXT.RO 

61 

CALL 

SPRINT 

62 

.ENDM 

PRINT 

63 

64 

■  ***■* 

65 

;  MACRO 

CALLS 

66 
67 
68 

;***  » 

.MCALL 

ISTATS, STATES, TRA 

69 

70 

■**** 

71 

;  LOCAL 

DATA 

72 

;  *  *  *  * 

73 

74 

000074 

LA  =  '< 

75 

000076 

RA  =  '> 

76  000000 

TEMP: 

.BLKU 

1            Jk 

77  000002 

074 

130 

130 

REMDEF: 

.ASCIZ 

/<XXXXXX>,000,000 

000005 

130 

130 

130 

000010 

130 

076 

054 

000013 

060 

060 

060 

000016 

054 

060 

060 

000021 

060 

000 

78 

000020 

REMLEN= 

<.-ftEMDEF>-1 

79  C00023 

Oil 

122 

105 

REMPr : 

.ASCII 

<11>/REM$DF/<11> 

000026 

115 

044 

104 

000031 

106 

Oil 

80 

000010 

REMLN=. 

-REMDF 

81  000033 

BUFF: 

.BLKB 

80. 

82 
83 
84 
85 
86  000000 

.EVEN 

;  DEFINE  REMOTE 

TEMPLATE 

' 

.ASECT 

87 

000000 

.=0 

88  000000 

.BLKW 

1             ; 

89  000002 

.BLKW 

1 

90  000004 

C.NAM: 

.BLKU 

2 

91  000010 

C.ADD: 

.BLKW 

1 

92 

000012 

C.LEN=. 

93  000154 

94 

95 

96 

97  000012 

.PSECT 

;  DEFINE  SERSDF 

TEMPLATE 

' 

.ASECT 

98 

000000 

.  =  0 

99  000000 

.BLKU 

1 

100  000002 

.BLKW 

1             ; 

101  000004 

S$FlG: 

.1LKW 

1 

102  000006 

SSADD: 

.JLKW 

1 

103  000010 

S$HST: 

.BLKU 

1 

104  000012 

S$HAD: 

Pi  "y 

4 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  BRACKET 
ADDRESS  OF  REMOTE  TEMPLATE 


OUTPUT  BUFFER 


C.LNK 

C.STS 

REMOTE  NODE  NAME 

REMOTE  ADDRESS 


C.LNK 
C.FLG 

option  flags 
Target  node  address 
Host  node  address 
Hardware  address 


(16  bit  node  address) 
(16  bit  node  address) 
(RAD50) 
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able  ot  contents 


UF 

m; 


160 
20A 


SUPROU  -  SETUP  ROUTING  DEFINITION 
SETNUM  -  SET  THE  NEXT  NUMBER 
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Ul 

48 

49 

50 

51 

5? 

53 

54 

55  000000 

on 

12^ 

56 

000010 

57  C00010 

123 

106 

58 

59 

60 

61 

62 

63 

64  000000 

65 

000000 

66  000000 

67  000002 

68  000004 

69  000006 

70  JOOOIO 

71  000012 

72  000022 

73  000052 

74  000034 

75  000050 

76  000054 

77 

000056 

78  000020 

79 

80 

81 

82 

000001 

83 

000002 

84 

000004 

85 

000010 

86 

000020 

87 

000040 

88 

000100 

89 

000200 

90 

000400 

91 

105 
056 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
.MCALL  SAVRG.RESRG 


;  LOCAL  DATA 

.NLIST 

BEX 

SERDF. 

.ASCII 

<11>/SERtDF/<11> 

SERLN=. 

-SERDF 

PH3TXT 

:  .ASCIZ 
.EVEN 

/SF.PH3!/ 

.LIST 

BEX 

':   DEFINE  SERSDF 

TEMPLATE 

.ASECT 

.  =  0 

.BLKW 

.BLKW 

S$FLG 

.8LKW 

SSADD 

.BLKW 

S$HST 

.BLKW 

SSHAD 

.BLKW 

S$CIR 

.BLKW 

SSDEV 

.BLKW 

SSPSS 

.BLKW 

S$DPA 

.BLKW 

SSDPC 

.BLKW 

S$LEN 

.PSECT 

;  Fla 

js  definitions: 

SF.AD 

)  =  1 

SF.HS 

■  =  2 

SF.HA 

)  =  4 

SF.CI 

^  =  10 

SF.DE 

/  =  20 

SF.PS 

S  =  40 

SF.DP 

\  -   100 

SF.DP 

:  =  200 

5F.PH 

3  =  400 

C.LNK 
C.FLG 

option  flags 
Target  node  address 
Host  node  address 
Hardware  address 
Service  circuit 
Service  device 
Service  password 
Dump  address 
Dump  count 


(16  bit  node  address) 
(16  bit  node  address) 
(RAD50) 

(extended  RAD5'i) 
(extended  RAD5>/) 
(RAD50) 

(octal,  binary) 
(in  k  bytes) 


Target  address  specified 
Host  address  specified 
Hardware  address  specified 
Service  circuit  specified 
Service  device  specified 
Service  password  specified 
Dump  address  specified 
Dump  count  specified 
Service  node  type  is  Phase  3 
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56 
57 
58 
59 
60 
61 
62 
63 
M 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 

87  000000 

88  000000 
89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 

101  000000 
102 

103  000007 
104 

105  000016 
106 

107  000025 
108 

109  000034 
110 

111  000043 
112 


LOCAL  MACROS 
**** 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  BUFFER 


.MACRO  $$$PTN 
.MACRO  'ROU 
.IF  NB  <OPT> 
MOV     0PT,R2 
CALL    SPTOPT 
BCS     L 
.IFTF 

MOV     0FS,R2 
.IF  N8  <OCTL> 


ROU 
OFS,OCTL,0PT,?L 


MOV 
.IFF 
CLR 

.ENDC  ; 
CALL 
.IFT  ; 

.ENDC  ; 
.ENDM  ; 
.ENDM  ; 

$$$PTN 
t'SPTN 


**** 
MACRO 


CALLS 
.MCALL 


SP,R1 

R1 

IF  N8  <OCTL> 

'ROU 

IF  NB  <OPT> 

IF  NB  <OPT> 

'ROU 

$$$PTN 

SPTNUM 
SPTNMB 


ISTATS, STATES, TRANS 


LOCAL  DATA 


1U 
000007 

1U 
000007 

114 

00000 r 

114 
000007 

114 
000007 

114 
000007 


106 
106 
106 
106 
106 
106 


056 
056 
056 
056 
056 
056 


LENA 
LMDC 
LMTP 
LMFL 
LTIM 
LX2P 


.NLIST  BEX 
.ASCII   /LF.ENAl/ 
LENAL=.-LENA 
.ASCII   /LF.MDCI/ 
LMDCL=.-LMDC 
.ASCII   /LF.MTPI/ 
LMTPL=.-LMTP 

.ASCII  /lf.mfl:/ 

LMFLL=.-LMFL 
.ASCII   /LF.TIM!/ 
'  TIML=.-LTIM 
.ASCII   /LF.X2PI/ 
LX2PL=.-LX2P 


LINE  ENABLE  SETTING 

LINE  NEEDS  MODEM  CONTROL 

LINE  IS  MULT-POINT 

LINE  IS  MARKED  FOR  LOAD 

LINE  NEEDS  TIMER  SUPPORT 

LINE  SUPPORTS  X.25  LEVEL  2 
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CREF        0^.00 


UPC 
SEl 


000010 
000012 
000006 

=  OOOOU 
OOOOOA 

=  ****** 

000011 
000052 
=  000007 
000000 
=  000007 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 


=  ****** 


SYMBOL  VALUE 


CS.SLT 

..CNT 

C.CTT 

C.FLG 

C.LEN 

C.NAM 

C.STS 

CUNT 

LBRO 

LBROL 

LENA 

LENAL 

LF.BRO 

LF.ENA 

LF.MDC 

LF.MFL 

LF.MTP 

LF.SER 

LF.TIM 

LF.X2P 

LMDC 

LMDCL 

LMFL 

LHFLL 

LMTP 

LMTPL 

LSER 

LSERL 

LTIM 

LTIML 

LX2P 

LX2PL 

MASTER 

SET8RA 

SETCNT 

SETCTT 

SETFLG 

SETHTM 

SETNAM 

SETRPR 

SETTYP 

SETUNT 

SLAVE 

SLTKT9 

SLTSTB 

SLSBRA 

SLSCIM 

SLSHTM 

SlSRPR 

SLSTYP 

SSLBRA 

SSLCTT 


GX 


GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
000007 
000007 
000025 
000007 
000016  R 
000007 
000061  R 
000007 
00003A  R 
000007 
000043  R 
000007 
000070  R 
000732  R 
0005A0  R 
00061A  R 
000242  R 
000642  R 
000204  R 
000670  R 
000774  R 
000566  R 
000074  R 
000000  RG 
000000  RG 


z:  ****** 


****** 


=     ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

6-236 

#4-131 

#4-133 

#4-130 

#4-134 

#4-129 
6-236 

#4-132 

#4-113 

#4-114 

#4-101 

#4-102 
8-333 
8-318 
8-303 
8-313 
8-308 
8-338 
8-323 
8-328 

#4-103 

#4-104 

#4-107 

#4-108 

#4-105 

#4-106 

#4-115 

#4-116 

#4-109 

#4-110 

#4-111 

#4-112 

#4-118 

#10-432 

#9-363 

#10-405 

#8-299 

#10-423 

#7-276 

#10-426 

#11-448 

#10-384 

#4-119 

#5-141 

#5-141 
10-435 
10-405 
10-423 
10-429 
11-450 
10-435 
10-405 


9-366 

8-303 

7-282 

11-450 

10-387 

4-114 

8-336 

4-102 

8-321 

10-427 


4-104 
8-306 
4-108 
8-316 
4-106 
8-311 
4-116 
8-341 
4-110 
8-326 
4-112 
8-331 
11-453 


6-249 
6-250 


8-308 

8-335 
8-320 
10-433 


8-305 
8-315 
8-310 
8-340 
8-325 
8-330 


8-313 


8-318 


8-323 


8-328 


8-333 


8-338 


UPDSLT 
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320 
321 
322 
323 
32A 
325 
326 
327 
328 
329 
330 
331 
332 

333  000A32 

334  000432 

335  000436 

336  000444 

337  000446 

338  000452 

339  000456 

340  000462 

341  000466 

342  000472 
343 

344 


.S8TTL  SETHTM  -  SET  THE  HELLO  TIMER 

«»♦  -  SETHTM  -  SE^  THE  HELLO  TIMER 

INPUTS: 

TEMP  =  TEMPLATE  ADDRESS 

SOBUF  =  POINTER  INTO  OUTPUT  BUFFER 

OUTPUTS: 

THE  HELLO  TIMER  IS  WRITTEN  TO  THE  OUTPUT  BUFFER 


016702 
032762 
001412 
016201 
016700 
112720 
004767 
010067 
000207 

000001 


177342 

OOOOOOG  OOOOOOG 

000012 

OOOOOOG 

000054 

OOOOOOG 

OOOOOOG 


SETHTM: 


10$: 


MOV 

BIT 

BEQ 

MOV 

MOV 

MOVB 

CALL 

MOV 

RETURN 

.END 


TEMP,R2        ; 

*ST$HTM,C.STS(R2) 

10$ 

C.HTH(R2),R1 

$OBUF,R0 

#<•,>, (RO)t 

$CNVD 

R0,$OBUF 


GET  THE  TEMPLATE  ADDRESS 

;  OPTION  SELECTED  ? 

IF  EQ,  NOPE 

GET  THE  HELLO  TIMER  ^   ^^^„ 

GET  THE  CURRENT  POSITION  IN  THE  OUTPUT  BUFFER 

INSERT  COMMA  IN  BUFFER 

CONVERT  THE  NUMBER  TO  DECIMAL  ASCII 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


\~^  E  8 
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CREF       OA.OO 


ui 

SI 


SYMBOL 

VALUE 

REFERENCES 

CS.SVC 

; 

****** 

GX 

6-166 

C.STS 

- 

****** 

GX 

6-' 66 

F.NRBD 

- 

****** 

GX 

♦6-' 68 

♦6-190 

♦6-195 

OFFLEN 

r 

000003 

#5-139 

OFFSTA 

000016 

R 

#5-138 

5-139 

ONLEN 

r: 

000002 

#5-137 

ONSTA 

OOOOU 

R 

#5-136 

5-137 

SVCDF 

000000 

R 

#5-13A 

5-135 

6-1 74 

SVCLN 

- 

OOOOU 

#5-135 

6-175 

SVSDTE 

= 

It*1t*-k1c 

GX 

6-186 

SVSPSZ 

- 

****** 

GX 

6-181 

SVSWSZ 

- 

*♦♦*♦♦ 

GX 

6-182 

SSVDTE 

- 

****** 

GX 

6-186 

SSVFLG 

- 

****** 

GX 

6-183 

SSVNAM 

= 

****** 

GX 

6-178 

6-179 

SSVOWN 

= 

****** 

GX 

6-187 

SSVPSZ 

r 

****** 

GX 

6-181 

SSVRCL 

= 

****** 

GX 

6-184 

SSVTIM 

r 

****** 

GX 

6-185 

SSVUSZ 

= 

****** 

GX 

6-182 

SBUFI 

= 

****** 

GX 

6-195 

SMVASC 

- 

****** 

GX 

6-176 

$OBUF 

- 

****** 

GX 

*6-177 

♦6-180 

6-188 

SOFDB 

= 

****** 

GX 

♦6-168 

♦6-190 

♦6-195 

tPTNUM 

r 

****** 

GX 

6-178 

6-179 

6-181 

tPTOPT 

= 

****** 

GX 

6-181 

6-182 

6-186 

SPTR50 

= 

****** 

GX 

6-186 

6-187 

SSVUPS 

r 

****** 

GX 

6-160 

♦6-162 

STMLST 

- 

****** 

GX 

6-163 

SUPSVC 

000022 

RG 

#6-158 

SWDATA 

= 

****** 

GX 

6-191 

.BUFF 

= 

****** 

GX 

6-168 

6-173 

6-189 

.COMMA 

= 

****** 

GX 

♦6-172 

.FLAGS 

= 

****** 

GX 

♦6-171 

.TEMP 

= 

****** 

GX 

♦6-169 

6-192 

6-182 


6-183 


6-184 


6-185 


UPDSVC 
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SETCST  -  SET  THE  LINE  COST 


275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 

286  000240 

287  000264  000207 


.S8TTL   SETCST  -  SET  THE  LINE  COST 
***  -  SETCST  -  SET  THE  LINE  COST 
INPUT: 


.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


SETCST:  SPTNUM  #C. CST,  ,*UN$CST 
i<ETURN 


UPDUNT  -  CFE  UPDATE  UNIT  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85 

CCTTiDD      _      CCT      TUC      1     IMC      nCAfl      Dm    I     IMC,      OATIfl 
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181 
182 
183 
184 
185 
186 
187 
188 
189 
190 

191  000200 

192  0002H 

193  000222 
19A  000226 
19';  000232 

196  000244 

197  000252 

198  000254 

199  000262 

200  000266 

201  000272 

202  000304 
203 

204 
205 


.SBTTL  SETLIN  -  SET  LINE  ID 
'**  SETLIN  -  SET  LINE  ID 
INPUT:        CURRENT  TEMPLATE. 
OUTPUT:      VALUE  LOADED  INTO  OUTPUT  BUFFER. 


112777 
005267 
00';367 

032777 
001414 
112777 
00526^ 
005367 

000 ?07 


0CO0O1 


000055  OOOOCOG 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

000055  OOOOOOG 

OOOOOOG 

OOOOOOG 


SETLIN: 


10$: 


$PTR50 

#C.LIN,#1 

MOVE 

#'-,a$OBUF 

INC 

soauF 

DEC 

.COMMA 

JPTNUM 

#C.LIN+2, OCTAL 

BIT 

*CS. UNI, a. FLAGS 

BEG 

10$ 

MOVd 

#'-,a$OBUF 

INC 

$08UF 

DEC 

.COMMA 

SPTNUM 

*C.LIN+4, OCTAL 

RETURN 

DDM  NAME 

SEPARATOR 

INCREMENT  BUFFER  POINTER 

SUPPRESS  COMMAS 

CONTROLLER 

UNIT  NUMBER  IN  LINE  ID  ? 

IF  EQ,  NONE 

ELSE  BUFFER  SEPARATOR, 

BUMP  BUFFER  POINTER 

SUPPRESS  COMMAS 

OUTPUT  UNIT  NUMBER 


.END 


UPDX29     CREATED  BY 
MACRO  CROSS  REFERENCE 
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CREF   0^.00 


MACRO  NAME 

REFERENCES 

EPRINT 

#A-78 

ERRORS 

#(,-67 

PRINT 

#A-62 

SPTNMB 

#A-111 

tPTNUM 

#A-no 

6-152 

6-153 

$PTR50 

#A-115 

$$$PTN 

#4-90 

4-110 

4-111 

♦•FILE**1D«»UPDX3P 
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1 
2 
3 

^ 
5 
6 
7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
Al 
42 
43 
44 
45 
46 
47 


.ENA8L  LC 

.NLIST  BEX 

.TITLE  MLD 

.IDENT  /V05.00/ 


Microcode  Loader 


Copyright  (C)  1982,  1983,  1984,  1985  by 
Digital  Equipment  Corporation,  Maynard,  Mass. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copieo  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  .or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  b/   DEC. 

Module  Description 

DECnet/RSX  Microcode  Loader 

Distribute.^  Systems  Software  Engineering 

Ident  History: 

1.00  5-0ct-82       R.  Levesque 
Original  development 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00     22-JLIL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus   V3.0 
DECnet-Micro/RSX   Vl.O 
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i*.0  -   Microcode  Loader     MACRO 

Pwr^AST  -  Powertail  Re'ouery  AST 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

6'.0 

641 

642 

643 

644 

645 

646 

647 

648  001152 

6'.9  001152 

650 

651  001152 

652 

653 

654 

655  001162 

656 

657 

658 

659  001  ■:66 

660  001172 

661  001174 
662 

663  001200 
664 

665  001200 

666  001204 
667 

668  001206 

669  001212 

670  001216 

671  001222 

672  001224 
673 

674  001226 

675  001232 

676  001234 
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.SBTTL  PURAST  -  Powerfail  Recovery  AST 
.SBTTL  ABOAST  -  Abort  Cleanup  AST 


016704  001364' 
001402 


016704  001376' 
001010 

017700  176602 
062700  000012 

103421 
010104 


010403 

062703  000012 


function 

Call  Format: 

Inputs: 

Outputs: 

Registers: 
Notes: 


.*•  PWRAST/ABOAST  »»• 

To  perform  any  termination  and  cleanup  of  in-progress  or  queued 
load  requests  at  the  time  of  a  system  powerfail  or  a  task  abort 
from  a  privileged  terminal. 

Not  applicable 

No  explicit  inputs 

Current  load  sequence  ended,  load  request  listhead  in  AUX  is 
emptied  with  a  halt  load"  dispatch  for  each  CCB  dequeued. 

RO  through  R5  destroyed 

When  RSX  systems  recover  from  powerfail,  any  active  tasks 
with  powerfail  ASTs  are  dispatched  to  before  any  device 
drivers  are  dispatched  to  at  their  powerfail  recovery 
entry  points. 

MLD  stays  in  system  state  until  all  load  requests  have  been 
terminated.  This  is  so  that  AUX  will  not  queue  more  CCBs 
while  MLD  is  trying  to  clean  up  and  exit. 


;;  If  system  is  RSX-11M  ... 

;;  Close  the  microcode  file 

;;  For  any  operating  system  ... 

;;  Switch  to  system  state 

; ;  If  system  has  UMRs  . . . 

;;  Get  address  of  CCB/LDB 

;;  Branch  if  none 

;;  Return  the  CCB  and  LDB  to  pool 

;;  End  UMR  conditional 

;;  Get  address  of  current  CCB 

;;  Branch  if  none 

;;  Get  our  TCB  address 

;;  Advance  to  receive  listhead 

;;  Dequeue  a  load  request 

;;  Branch  if  none  left 

;;  Copy  CCB  address 

; ;  Get  PDV  index  and  line  table  address 

;;  Copy  CCB  address 

;;  Advance  to  status  field 


PWRAST: 
ABOAST: 

.IFT 

CL0SE$ 

#FDB 

.IFTF 

CALL 

$SWSTK,40$ 

.IF 

DF      N$$UMR 

MOV 
BEQ 
CALL 

LDBPTR,R4 

5$ 

aLDBRT 

5$: 

.ENDC 

MOV 
BNE 

CURQST,R4 
20$ 

10$: 

MOV 

ADD 

CALL 

BCS 

MOV 

aTKTCB.RO 

#T.RCVL,RO 

aORMVF 

30$ 

R1,R4 

20$: 

CALL 

MOV 

ADD 

aSTDDM 

R4,R3 

#C.STS,R3 

E  H. 
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MLD    -  Microcode  Loader 
Symbol  table 
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U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U  UNFL= 

'..UNIT 

J.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL  = 

U.VCB  = 

U.VSER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJl= 

U2.DZ1= 

U2.E5C= 

ABS. 

MLDDAT 
$$FSR1 
MLDCOD 


000056 
000050 
000046 
00002A 
000107 
OOOOU 
000052 
000006 
0001U 
000060 
000106 
000036 
00003A 
000120 
000070 
000020 
002000 
100000 
OAOOOO 
000100 
001000 

177776 
000000 
002006 
000000 
001634 


u2.HFr= 
U2.HLD= 
U2.L0G= 
U2.LWC= 
U2.L3S= 
U2.L8S= 
U2.NEC= 
U2.PRV= 
U2.RMT= 
U2.R04= 
U2.SCS= 
U2.SLV= 
U2.VT5= 
U2.7CH= 
U3.0PA^ 
U3.PAR= 

U3.UPC: 

U4.CR  = 

v$$crR: 

WAIT 
WORKSP 


010000 

000040 

000400 

000001 

000004 

010000 

004000 

000010 

020000 

100000 

000004 

000200 

000002 

010000 

100000 

040000 

020000 

000100 

001000 

001360R 

001406R 


X$$DBT= 
ZF.COU= 
ZF.DDM= 
ZF.DIA= 
ZF.DLC= 
ZF.DVP= 
ZF.IN1= 
ZF.KMX= 
ZF.LLC= 
ZF.LMC= 
ZF.MAN= 
ZF.MFL= 
7F.MTM= 
ZF.MUX= 
ZF.PSE= 
ZF.SL1= 
ZF.TIM= 
ZF.X3P= 
ZS.ASN= 
002  ZS.BSY= 
002  Z.AVL 


000000 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
140000 
OOOOH 


Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

$BLXIO= 

$C8TA  = 

$CCBRT= 

$DIV  = 

$EDMSG= 

$LDBGT= 

$LDSRT= 

$NTUIC= 

$PARHD= 

$PDSPL= 

$PDVTA= 


000016 
000000 
000010 
000016 
000006 
000020 
000004 
000012 
000007 
«***«* 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


Errors  detected: 


000 
001 
002 
005 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,RFL,C0N) 
(RW,D,LCL,REL,0VR) 
{RW,D,GBL,REL,OVR) 
(RO,I,LCL,REL,OVR) 


*♦»  Assembler   statistics 


Work      file     reads:  147 

Work      f i  le  wri tes :  114 

Size  of   work   tile:  24854  Words      (   98  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-1  IM/PLiJS 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


$QRHVF= 

****** 

GX 

$RD8SZ= 

****** 

GX 

$SLTMA= 

****** 

GX 

$STDDM= 

****** 

GX 

$TKTC8= 

*♦♦«** 

GX 

$$$   = 

000062 

$$$ARG= 

000002 

$$$OST= 

000004 

$S$T1  = 

000067 

.CLOSE= 

****** 

G 

.FINIT= 

****** 

G 

.FSRCB= 

****** 

G 

.OPEN  = 

****** 

G 

.PPASC= 

****** 

GX 

.READ  = 

****** 

G 

.WAIT  = 

****** 

G 

.$$$$.= 

000034 

...PC1= 

000144R    002 

...PC2= 

000304R    002 

...TPC= 

000020 

0B2:MLD.T54!n32;°34]MLD/CR/-SP=DB2:C1  J]RSXMCM.SML/ML,[130JlO]NETL]B/ML,[130J0]RSXMCM/PA:1,[132J0]T34,M 
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MLO     -  Microcode  Loader     MACRO  V05.05b  Wednesday  ?8-Aug-85  11:31 
Table  ot  contents 

6-  49    Macro  Definitions 

7-  93    Equated  Symbols  and  Literals 

8-  161    Load  Control  Data 

9-  249    MLD     -  Microcode  Loader  Main  Routine 

10-  471    OSPDRV  -  Dispatch  to  Device  Driver 

11-  579    L0GEV1  -  Log  a  Network  Event 

12-  620    PWRAST  -  Powerfail  Recovery  AST 
12-  621    AB0A5T  -  Abort  Cleanup  AST 

16-  813    LOCPAR  -  Locate  Microcode  Partition 

17-  891    SRNAM   -  Search  For  ivamed  Partition 

18-  931    SLOAD   -  Load  Control  for  RSX-11S  Systems 


E  16 

MLD     -  Microcode  Loader     MACRO  V05.03b  Wednesday  28-Aug-85  11:31  Page  5 


UPDPSN  CREATED  BY     MACRO     ON  29-JUN-85   AT  05:55 
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E     1 

PAGi:   2 

CREF       OA.OO 


UPD 

Tab 


MACRO  NAME 

REFERENCES 

EPRINT 

#4-78 

:RROR$ 

#4-67 

^RINT 

#4-6? 

SPTNMB 

#4-111 

SPTNUM 

#4-110 

6-192 

6-193 

$PTR50 

#4-115 

6-191 

$$SPTN 

#4-90 

4-110 

4-111 

6-194 


6-195 


**F1LE'*ID»»UPDPVC 


F     1 


UPt 


UPDRDT  -  UPDATE  REMOTE  DTE  DEFI  MACRO  Vu'^.03b  Saturday  29-Jun-85 
Table  of  contents 

4-  57    MACRO  CALLS  AND  LOCAL  DATA 
i,-        58    MACRO  DEFINITIONS 

5-  130    LOCAL  DATA 

6-  150    SUPROT  -  UPDATE  DESTINATION  DESCRIPTOR 


^5:^ 


55 


UP 


L 


F 
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UF 
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105  000022 

106  000032 

107  000034 

108  000050 

109  00005A 
110 

111  0001 5A 

112 

113 


000056 


S$CIR 

.BLKW 

k 

S$DEV 

.BUW 

1 

S$PSS 

.BLKW 

6 

S$DPA 

.BLKW 

2 

S$DPC 

.BLKW 

1 

SJLEN 

Seruice  circuit 
Service  device 
Seruice  password 
Dump  address 
Dump  count 


(extended  RAD50) 
(extended  RAD50) 
(RAD50) 

(octal  binary) 
(in  k  bytes) 


.PSECT 
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2 
5 

^ 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
A1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE 
.JDENT 


UPDROU  -  CFE  UPDATE  ROUTING  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  ROUTING  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  V1.0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.l 

4.00  07-N0V-83 

p:cnet-iim  V4.0 

DFi\'tT-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Mi'cro/RSX  VI. 0 
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tUPSER  -  SETUP  REMOTE  DEFINITION 
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95 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
^0'^ 

105  000020 

106  000020 

107  00002A 

108  000030 

109  000036 

110  000042 

111  000046 

112  000052 

113  000056 

114  000062 

115  000066 

116  000072 
117 

118  000076 

119  000102 
120 

121  000106 

122  000112 
123 

124  000116 

125  000122 
126 

127  000130 

128  000134 
129 

130  000142 

131  000146 
132 

133  000154 

134  000160 
000166 

135 

136  000170 

137  000174 
000202 

138 

139  000204 

140  000210 
141 

142  000216 

143  000222 

144  000226 
145 

146  000230 

147  000234 


004567 
016746 
012767 
010567 
062705 
010567 
012700 
012^01 
>  'j2 
UU4  767 
010067 

004567 
000006 

004567 
000010 

004567 
000022 

004567 
000032 

004567 
000034 

004567 
000050 
000100 

004567 
000054 
000200 

004567 
000012 

004567 

000010' 

COOOCO 

016701 
124127 


.SBTTL 
*»*  -  SUPSER 
INPUT: 


SUPSER  -  SETUP  REMOTE  HEflNITION 
-  SETUP  REMOTE  DEFINIIION 


R=^ 


OUTPUT 


-  TEMPLATE  ADDRESS 
C-B;T  =  SUCCESS/FAILURE 


OOOOOOG 

OOOOOOC 

OOOOOOG  OOOOOOC 

OOOOOOG 

000004 

OOOOOOG 

OOOOOOG 

nooono' 

000010 

OOOOOOG 

OOOOOOG 

000164 
000001 

000154 
0C0002 

000244 

000004     000010 

000232 

000001     000020 

000220 

000006     000040 

000262 

060210     000004 


000246 

060110     000002 


000156 

000004     000004 

000266 
000400 


SUPSER: 


OOOOOOG 
000054 


10$: 


JSR 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

JSR 
.WORD 

JSR 
.WORD 

JSR 
.WORD 

JSR 
.WORD 

JSR 
.WORD 

JSR 
.WORD 


JSR 
.  WORD 


JSR 
.WORD 

JSR 

.WORD 

.WORD 

MOV 
CMP8 


;  SAVE  R3-R5 

,-(SP);  SAVE  OUTPUT  BUFFER 

,NR8D+2  ;  SET  NEW  OUTPUT  BUFFER 
SAVE  TEMPLATE  ADDRESS 
POINT  TO  FLAGS 
SAVE  ADDRESS  OF  FLAGS  WORD 
POINT  AT  START  OF  OUTPUT  BUFFER 
POINT  Al  START  OF  SER  DEFINITION 
GET  LENGTH  OF  SER  DEFINITION 
MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 
SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

OUTP'JT  REMOTE  NODE  ADDRESS 


R5,$SAVRG 

$0FD8+F.NRBD+2 

*.BUfF,$OFDB+F 

R5,.TEMP 

#S$FLG,R5 

R5, .FLAGS 

#.BUFF,RO 

#SERDF,R1 

#SERLN,R2 

SMVASC 

RO.SOBUF 

R5,PUTN0D 
SSADD.SF.ADD 

RS.PUTNOD 
SSHST,SF.HST 

R5,PUTR50 
SSCIR,4,SF.CIR 

R5,PUTR50 
SSDEV,1,SF.DEV 

R5,PUTR50 
SSPSS,6,SF.PSS  ; 


R5,PUT0CT       ;  DUMP  ADDRESS 
SSDPA,8.+<40*4>-k4000«14>,4,SF.DPA 


R5,PUT0CT       ;  DUMP  COUNT 
S$DPC,8.t<40*2>+<4000*14>,2,SF.DPC 


OUTPUT  HOST  NODE  ADDRESS 
OUTPUT  SERVICE  CIRCUIT 
SERVICE  DEVICE 
PASSWORD 


R5,PUTR50 
SSHAD,4,SF.HAD 

R5,PUTFLG 

PH3TXT,SF.PH3 

0 

SOBUF.Rl 
-(Rl),#<',> 


;  HARDWARE  ADDRESS 


OPTIONAL  FLAGS 

PHASE  3  TARGET  NODE  VERSION 

THAT'S  ALL,  FOLKS 

CALCULATE  LENGTH  OF  BUFFER 
TRAILING  COMMA  ? 
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113  000052 

114 

106 

056 

LBRO: 

.ASCII 

/LF.BRO!/ 

1H 

000007 

L8R0L=. 

-LBRO 

115  000061 

114 

106 

05o 

LSER: 

.ASCII 

/LF.SER!/ 

116 

000007 

LSERL=. 

-LSER 

117 

.EVEN 

IIS  000070 

050573 

076732 

MASTER 

:  .RAD50 

/MASTER/ 

119  000074 

074241 

105110 

SLAVE 

.RAD50 

/SLAVE/ 

120 

.EVEN 

121 
122 
123 

.LIST 

BEX 

:•  DEFINE  THE  SLT  TEMPLATfc 

124 

; 

125  000000 

.ASECT 

126 

000000 

.=0 

127  000000 

.BLKW 

128  000002 

.BLKW 

129  000004 

C.NAM 

.8LKW 

130  000006 

C.FLG 

.BLKU 

131  000010 

C.CNT 

.8LKB 

132  000011 

CUNT 

.BLKB 

133  000012 

C.CTT 

.BLKW 

134 

000014 

C.LEN= 

135  000100 

.PSECT 

LINE  IS  A  BROADCAST  CHANNEL 
LINE  HAS  SERVICE  DISABLED 


C.LNK 

C.STS 

THE  DPM  PROCESS  ASSOCIATED  WITH  THIS  LINE 

FLAGS  WORD 

CONTROLLER  NUMBER  OF  THE  ASSOCIATED  DDM 

THE  UNIT  NUMBER  OF  T^F  ASSOCIATED  DDM 

THE  COUNTER  TIMER  (X.^5  LINES  ONLY) 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

SSLFLG 

- 

****** 

GX 

10-427 

10-433 

S$LHTM 

= 

****** 

GX 

10-423 

SSLRPR 

= 

****** 

GX 

10-429 

SSLTYP 

r 

****** 

GX 

11-454 

SALPHA 

i: 

000022 

#5-141 

$ANY 

~ 

000020 

#5-141 

SBLANK 

= 

000006 

#5-14- 

SCATS 

~ 

****** 

GX 

7-280 

SDIGIT 

:; 

000024 

#5-141 

SDNUMB 

= 

000014 

#5-141 

SEOS 

= 

000012 

#5-141 

SERROR 

= 

****** 

GX 

*6-253 

SEXIT 

= 

000000 

#5-141 

SFAIL 

= 

Mllll 

#5-141 

SGPRM 

r 

****** 

5-141 

SLAMDA 

=: 

000000 

#5-141 

SMOVPT 

r: 

****** 

GX 

7-277 

9-364 

10-385 

SMOVST 

~ 

****** 

GX 

6-246 

SMVASC 

- 

******* 

GX 

8-307 

8-312 

8-317 

8-322 

SNUMBR 

= 

000002 

#5-141 

SOBUF 

- 

****** 

GX 

8-302 

8-343 

♦8-347 

SPTNL'M 

- 

****** 

GX 

10-405 

10-423 

10-429 

10-435 

SPTOPT 

= 

****** 

GX 

10-405 

10-423 

10-429 

10-435 

$PTR50 

r: 

****** 

GX 

11-459 

$SAD5C 

- 

000016 

#5-141 

tRONLY 

r 

****** 

5-141 

5-141 

5-141 

SSTRNG 

r 

ooooo-; 

#5-141 

SSUBXP 

= 

000010 

#5-141 

STMLST 

- 

****** 

GX 

6-232 

SUPSLT 

000100 

RG 

#6-231 

$$$FLG 

= 

\11111 

#5-141 

$$$KEY 

= 

Mini 

#5-141 

. COMMA 

- 

****** 

GX 

*6-245 

♦11-463 

.CONER 

= 

****** 

GX 

6-259 

.FLAGS 

= 

****** 

GX 

•6-244 

. PNUMB 

= 

****** 

GX 

9-366 

10-387 

.PSTPT 

r 

****** 

GX 

7-278 

.TEMP 

= 

n-***** 

GX 

♦6-242 

*11-460 

7-281 

8-301 

9-365 

.TPARS 

= 

****** 

GX 

6-251 

8-327 


8-332 


8-337 


8-342 


UPI 
Syi 

API 
BI 

CS 


$s 

$K 
$< 
Er 


Wo 
Wo 
Si 
Si 
Op 

El 
SY 


10-386 


10-426 


10-432 


11-449 


*11-457 


UPDSLT 
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Symbol  table 


APRNUM 

BITS 

CS.MOD= 

CS.STA= 

C.ADD 

C.APR 

C.CST 

C.FLG 

C.HTM 

C.LEN  = 

C.STA 

C.STS  = 

EXIT 

F.NRBD= 


00006AR 
000124R 


GX 
GX 


****** 
****** 
000005 
000010 
000007 
000006 
000012 
000016 
00000^ 
****** 

000076R 
******  GX 


GX 


no2 

SENA 

000002R 

SMFL 

OOOOIIR 

no? 

SENAL  = 

000007 

SHELL  = 

000007 

SETADD 

0001 50R 

SSER 

000027R 

SETAPR 

000226R 

SSEF,.  = 

222S9Z 

SETCST 

000200R 

SSVC 

000020R 

SETFLG 

00025AR 

SSVCL  = 

000007 

SETHTM 

000A32R 

STACST 

0000'!,6R 

002 

SFLAG 

000026R 

002 

STAKTB 

OOOOOORG 

UU3 

SFS 

0001  OAR 

002 

STAST8 

OOOOOORG 

002 

SF.ENA= 

»*«***  GX 

Sr$HTM= 

******  GX 

SF.MFL= 

******  GX 

TEMP 

OOOOOOR 

SF.SER= 

******  GX 

$ALPHA= 

000022 

on? 

SF.SVC= 

******  GX 

$ANY  = 

000020 

SKIP 

0001 12R 

002 

$BLANK= 

000006 

$BUFI  = 
$CLNUP= 
$CNVD  = 
$CNV0  - 
$DIGJT= 
JDNUMB= 
$EOS  = 
$ERROR= 
$EXIT  = 
$FAIL  = 
$LAMDA= 
$M0VPT= 
$MOVST= 
$MVASC= 


****** 
****** 
****** 
****** 
000024 
OOOOU 
000012 
****** 

000000 

Mmf 

000000 
****** 
****** 
****** 


GX 
GX 
GX 
GX 


GX 


GX 
GX 
GX 


$NUHBR=  000002 
$OBUF  =  *♦**♦♦  GX 
SOFDB  =  •***•♦  GX 
$RAD50=  000016 
$STRNG=  000004 
$SUBXP=  000010 
$rMLST=  ******  GX 
$UPSTA  000036RG 
$$$FLG=  177777 
$$$KEY=  000000 
$$$STA=  000112R 
$$$TMP=  OOOOOOR 
.CONER=  ****♦»  GX 
.TPARS=  **♦*«♦  GX 


002 
004 


UP 

HA 

MA 

EP 
ER 

PR 
SP 
$P 
tF 
%% 


000016 
000A74 
000130 
000002 
000003 
Errors  detected: 


.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RU,D,LCL,REL,C0N) 


***  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10424  Words  (  41  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11H/PLUS 

SvfuPDSTA!v2!c?32?°34]UPDSTA/CR/-SP=Sy:[l,1]RSXHCM.SML/ML,[130,110]NETLIB/HL,[132,10]UPDSTA 
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PAGE  2 

CREF   OA.OO 


EPRINT 

#A-79 

ERRORS 

#A-68 

PRINT 

#A-63 

SPTNMB 

#A-112 

SPTNUM 

#4-111 

6-178 

6-179 

tPTRSO 

#4-116 

6-186 

6-187 

$$$PTN 

#4-91 

4-ir 

4-112 

6-181 


6-182 


6-183 


6-184 


6-185 
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SETDPR  -  SET  THE  LINE  DEAD  POLLING  RATIO 


s  gsl?, 


8  Page  12 


289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 

300  000266 

301  000312  000207 


.SBTTL   SETDPR  -  SET  THE  LINE  DEAD  POLLING  RATIO 
*♦♦  -  SETDPR  -  SET  THE  LINE  DEAD  POLLING  RATIO 
INPUT: 


.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


SETDPR:  SPTNUM  #C.DPR, ,#UN$DPR 
RETURN 
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Symbol  table 
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CS.UNI=  •••«*•  GX 
C.BSZ   OOOOU 
C.HBT   000022 
C.LEN  =  00002;. 
C.LIN   OOOOOA 

.  ABS.  000024    000 
000306    001 
Errors  detected:  0 


C.RTC  000016 

C.RTT  000020 

C.WSZ  000012 

F.NRBD=  *•»»»*  GX 

SETLIN  000200R 

(RW,I,GBL,ABS,0VR) 
(RU,I,LCL,REL,CON) 


X2PDF  QQOOOOR 

X2PLN  =  OOCOIO 

$SUFI  =  •**»'»  GX 

$MVASC=  •*♦«*♦  GX 

SOBUF  =  •»•»»»  GX 


$0FDP   ^ 

»..,,      fix 

.BUFF    = 

****** 

GX 

$PTNJM= 

'*«***   GX 

.COMMA= 

****** 

GX 

$PTRi0= 

».»♦♦»   GX 

.FLAGS= 

****** 

GX 

$UPX2,'" 

000010RG 

.TEMP  = 

****** 

GX 

$WDATA= 

******   GX 

*•*  Assembler  statistics 


0 

0 

8783  Words  (  35  Pages) 

U440  Words   (  55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 

Sy-UPDX2p!v2![?3^?13°]UPDX2P/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,1lOJNETLI8/ML,[132,10]UPDX2P 
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MLD    -  Microcode  Loader 
Macro  Definitions 

49 
50 
51 
52 
5? 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 

67  000000 

68  000000 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

81  000000 

82  000000 

83  000000 

84  000000 

85  000000 
86 
87 
88 
89 
90 
91 
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.SSTTL  Macro  Definitions 


System 

.]F 

.HCALL 

KRBDf$ 

.ENDC 

.IF 

.MCALL 
.MCALL 

UCBDFS 
DC8DF$ 

.JFF 

.MCALL 

PCBDFS 

•  IFTF 

.MCALL 
.MCALL 

TC8DF$ 
CCBDFS 
EVLDFS 
PDVDFS 
SLTDFS 

.IF 

.MCALL 

.ENDC 


Macros  Used 
DF     R$$MPL 
KRBDFS,  RMAFSS,  STAFSS,  DIRS,  GINS 


NDF 


R$$11S 


FSRSZS,  OPENSR,  CLOSES,  READS,  WAITS,   FDBDFS 
FDATSA,  FDRCSA,  FD8KSA,  FDOPSA,  FINITS,  UCBDFS,  DC8DFS 


PCBDFS 


EXITSS,    SPRASS,   SREASS,   QIOWSS,   ALUNSS 
TCBDFS,    CCBDFS,    EVLDFS,    PDVDFS,    SLTDFS 


DF  NSSUMR 

MRXTS,      STSES,     DIRS 


MLD  -  Microcde  Loader 

Eauated  Symbols  and  Literals 
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MLD    -  Microcode  Loader 
ABOAST  -  Abort  Cleanup  AST 
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677  001240 

678  001 2AA 

679  001250 

680  001252 

681  001256 

682  001260 

683  001264 
684 

685  001266 

686  001270 

687  001 27A 
688 

689 


101000 
000026 


012713 
012743 
010446 

012604 

000750 


005067  001376' 


MOV 

#CS.ERRtCS.fTL 

(R3) 

MOV 

#FC.MLDtFS.HLT 

-(Hi) 

MOV 

R4,-(SP) 

CALL 

aPDSPL 

MOV 

(SP)+,R4 

CALL 

SCC8RT 

BR 

10$ 

30$: 

RETURN 

40$: 

CLR 
EX1T$S 

CURQST 

.IfT 


Tell  driver  a  fatal  error  occurred 

(Sub)  function  =  load  haUed 

Sawe  CfB  address 

Dispatch  to  driver  w/priority 

Recover  CCS  address 

Return  CCB  to  pool 

Dequeue  another  load  request 

Return  to  user  state  at  "40$" 
No  more  requests  outstanding 
Program  exit 

If  system  is  RSX-11M  ... 
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FCSERR  -  Input  File  FCS  Error  Handler 
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SYMBOL 

VALUE 

REFERENCES 

ABOAST 

001152  R 

9-319 

#12-649 

ACSDNT 

=   000002 

#6-83 

AC$X25 

=  000001 

#6-83 

AESCIR 

=  000003 

#6-83 

AESLIN 

=  000001 

#6-83 

AESMOD 

=  000004 

#6-83 

BLOCK 

001372  R 

#8-210 

♦14-767 

♦14-768 

♦15-793 

15-794 

BLXIO 

000004  RG 

#8-230 

10-529 

CCBRT 

000016  RG 

#8-258 

9-355 

12-682 

CF.LB 

=  100000 

15-804 

CLSASZ 

=  010500 

#6-83 

7-143 

CLlDLL 

=  000500 

#6-83 
6-83 

6-83 
6-83 

6-83 

6-83 

6-83 

CLSECL 

=  000300 

#6-83 

6-8| 

CL$LDN 

=  010400 

#6-83 

6-83 

CLSMAN 

=  000000 

#6-83 

6-83 

6-83 

6-83 

CLSPAZ 

=  034100 

#6-83 

6-83 

6-§l 

CLtPLH 

=  034000 

#6-83 

6-83 

6-83 

6-83 

6-83 

CLSPLL 

=  000600 

#6-83 

CLSPRT 

=  034200 

#6-83 

CLSROU 

=  010000 

#6-83 

6-83 

6-§l 

CLSSES 

=  000200 

#6-83 

6-83 

6-83 

CLSSGE 

=  035000 

#6-83 

6-83 

6-§l 

CLSSSE 

=  035100 

#6-83 

6-83 

6-33 

6-83 

6-83 

CLSTRN 

=  000400 

#6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

CL$XL2 

=  013700 

#6-83 

CL$XL3 

=  013600 

#6-83 

6-83 

CL$X2S 

=  013500 

#6-83 

6-83 

CS.ERR 

=  100000 

9-464 

10-571 

12-677 

CS.FTL 

=  001000 

9-444 

12-677 

13-725 

CTLNUM 

001402  R 

#8-213 

♦9-405 

11-600 

CURQST 

001376  R 

#8-211 
♦12-686 

♦9-310 

9-353 

♦9-356 

♦9-363 

CVTPRM 

=  014010 

#7-109 

9-295 

C.8UF1 

000014 

9-333 

9-334 

9-429 

♦10-513 

10-518 

C.CNT1 

000020 

10-521 

♦10-531 

♦10-559 

C.FNC 

000010 

♦9-335 

9-364 

♦9-447 

♦9-463 

10-546 

C.LIN 

000006 

9-390 

♦9-395 

C.MOD 

000011 

10-508 

10-550 

C.STS 

000012 

♦9-465 

10-556 

12-676 

DDMTBL 

001404  R 

#8-214 

♦9-404 

10-544 

OEVERR 

000051  R 

#7-148 

10-573 

DLSAST 

=  000002 

#6-83 

DL$HLT 

=  000000 

#6-83 

DLSIST 

=  000001 

#6-83 

DLSMAI 

=  000004 

#6-83 

DLSOFF 

=  0O00C1 

#6-83 

DL$0N 

=  000000 

#6-83 

olsrun 

=  000003 

#6-83 

dlsshu 

=  000002 

#6-83 

6-83 


6-83 


6-83 


6-83 


6-83 
6-83 


6-83 
6-83 


6-83 
6-83 


9-388     9-442     9-462 
10-519    ^10-532    ♦10-558 


6-83 
6-83 


12-665 
15-800 


MLD 
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K 
15 
16 
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21 
22 
23 
24 
25 
26 
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28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
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41 
42 
43 
44 
45 
46 
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.ENA8L  LC 

.NLIST  BEX 

.TITLE  MLD    -  Microcode  Loader 

.IDENT  /V05.00/ 

Copyright  (C)  1982,  1983,  1984,  1985  by 
Digital  Equipment  Corporation,  Maynard,  Mass. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  ,or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  suDJect  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  tor  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  Description 

DECnet/RSX  Microcode  Loader 

Distributed  Systems  Software  Engineering 

Ident  History: 

1.00  5-Oct-82       R.  Levesque 
Original  development 

4.00  07-HOV-83 

0ECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM.'S  V4.2 
DECnet-IIM-Hus   V3.0 
DECnet-Micro/RSX  VI. 0 
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UF 
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2 

3 

li 
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28 
29 
30 
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.TITLE   UPDRDT  -  UPDATE  REMOTE  DTE  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 
.ENASL  LC 

COPYRIGHT  (C>  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE  IS 
AND  SHOULD  NOT  BE  CONSTRUED  AS 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  REMOTE  DTE  DEFINITION  IN  CETAB 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 


OF   ITS 


IDENT  HISTORY: 


1.00 


3.00 


14-AUG-81 
DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI 


16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 


4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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•;i5 

116 

117 

118 

119 

120  0001 5A 

121 

122 

123  00015A 

12'.  00015A 

125 

126  000154 

127  000154 
128 

129  000154 

130  000154 
131 

132  000154 

133  000154 
134 

135  000154 

136  000154 
137 

138  O0C154 

139  000154 
140 

141  000154 

142  000154 
143 

K4 
145 

146  000154 

147  000154 
148 

149  000154 


INITIALIZE  TABLE  GENERATION 


ISTATS  REMSTS.REMKTB 


STATES 
TRANS  LA,,SM0VPT 

STATES 
TRANS  SSTRNG,,SETNAM 

STATES 
TRANS  RA,,$M0VPT 

STATES 
TRANS  <',>,,SMOVPT 

STATES 
TRANS  SNUM8R,ADD2,SETARE 

STATES  ADD2 
TRANS  <•,>,, SMOVPT 

STATES 
TRANS  SNUMBR,,SETADD 

EXIT  STATE 

STATES  EXIT 
TRANS  SEOS.SEXIT 

STATES 
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54 

55 

56  ■ 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73  000000 

74 

75 

76 

77 

78  000000 

79  000000 

80  000000 

81  000002 

82  000004 

83  000006 

84  000010 

85  000012 

86  000014 

87  000016 

88  000020 

89  000022 

90  000024 

91  000026 

92  000002 
93 


•  ***» 

;  LOCAL 

MACROS 

;  **** 

.MACRO 

PRINT   TEXT 

MOV 

TEXT.RO 

CALL 

SPRINT 

.ENDM 

ISINT 

•*♦** 

;  MACRO 

CALLS 

;  **** 

.MCALL 

ISTATS, STATE 

•  **** 

;  LOCAL 

DATA 

;  ♦*** 

TEMP: 

.BLKW 

1 

;  DEFINE  ROUTING  TEMPLATE 

.ASECT 

.=0 

.BLKW 

.BLKW 

C.ADD: 

.BLKW 

C.CST: 

.BLKW 

CHOP: 

.BLKW 

C.RTM: 

.BLKW 

C.NA: 

.BLKW 

C.NBEA: 

.BLKW 

C.AHOP: 

.8LKU 

C.ACST: 

.BLKW 

C.L2TM: 

.BLKW 

C.LEN=. 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


ADDRESS  OF  REMOTE  TEMPLATE 


C.LNK 

C.STS 

MAXIMUM  NODE  ADDRESS 

MAXIMUM  COST  ALLOWED 

MAXIMUM  HOPS  ALLOWED 

ROUTING  TIMER 

NUMBER  OF  AREAS 

NUMBER  BRO  ENDNODE  ADJACENCIES 

AREA  HOPS 

AREA  COST 

LEVEL  2  TIMER 


.PSECT 
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lUPSER  -  SETUP  REMOTE  DEFINITION 


1A8  000240  00' 775 

149  000242  005201 
150 

151  000244  162701  OOOOOOG 

152  000250  010167  OOOOOOG 

153  000254  004767  OOOOOOG 

154  000260  012667  OOOOOOC 

155  000264  000207 


BED 
INC 

SUB 

MOV 

CALL 

MOV 

RETURN 


10$ 
R1 


Page  5-1 


IF  EQ,  YES 

ELSE  BACKED  UP  TOO  FAR 


#.BUFF,R1 

R1,$0FDB*-F.NRBD  ;  SET  LENGTH  OF  BUFFER 

$WDATA         ;  WRITE  THE  RECORD  TO  THE  OUTPUT, FILE 

(SP)+,$OFDBtF.NR6Dt2  ;  SET  TO  OUTPUT  THE  "ENDSDF  LINE 
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M,7 

138 

139 

140 

HI  000100 

142 

143  000100 

144  000100 
145 

146  000100 

147  000100 
148 

149  000100 

150  000100 
151 

152  000100 

153  000100 
154 

155  000100 

156  000100 
157 

158  000100 

159  000100 
160 

161  000100 

162  000100 
163 

164  000100 

165  000100 
166 

167  000100 

168  000100 
169 

170  000100 

171  000100 
172 

173  000100 

174  000100 
175 

176  000100 

177  000100 

178  000100 

179  000100 


II 


000100 
_  COOIOO 

182  000100 

183  000100 

184  000100 

185  000100 
186 

187 

188  000100 

189  COOIOO 
190 

191  COOIOO 

192  000100 
193 


INITIALIZE  TABLE  GENERATION 

ISTATS  SLTSTB,SLTKTB 

STATES 
TRANS  SRAD50,,SETNAM 

STATES 
TRANS  <',>,,SM0VPT 

STATES 
TRANS  SRAD50,,SMOVPT 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SRAD50,, SMOVPT 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS   ILFS 

STATES 
TRANS   !BITS,,SETFLG 

STATES 
TRANS  SNUM8R,,SETCNT 

STATES 
TRANS  <•,>,, SMOVPT 

STATES 
TRANS  $NUM8R,,SETUNT 

STATES 

TRANS  SLAMDA,,SETTYP 
STATES 

TRANS  $LAMDA,,SETCTT 
STATES 

TRANS  SLA«DA,,SETHTI»I 
STATES 

TRANS  SLAMDA,,SETBRA 
STATES 

TRANS  SLAMDA,EXIT,SETRPR 


STATES  LFS 

TRANS  "LF" 

STATES 

TRANS  '.,$EXIT 


UP 

MA 

MA 

DB 
IS 

MT 
PR 
ST 


TR 


SP 
SP 
SS 


UPDSIT 
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MACRO  NAME 

REFERENCES 

DBGTPt 

#5-141 

#5-196 

#5-203 

#5-204 

#5-205 

#5-206 

#5-207 

#5-208 

#5-209 

#5-210 

ISTATS 

#4-94 

5-141 

MTRANt 

#5-141 

PRINT 
STATES 

#4-60 
#4-94 

5-143 

#5-146 

#5-149 

#5-152 

#5-155 

#5-158 

#5-161 

#5-164 

#5-167 

#5-170 

#5-173 

#5-176 

#5-178 

#5-180 

#5-182 

#5-184 

#5-188 

#5-191 

#5-194 

TRANS 

#5-198 
#4-94 

#5-201 
#5-144 

#5-214 
#5-147 

#5-217 
#5-150 

#5-153 

#5-156 

#5-159 

#5-162 

#5-165 

#5-168 

#5-171 

#5-174 

#5-177 

#5-179 

#5-181 

#5-183 

#5-185 

#5-189 

#5-192 

#5-195 

#5-196 

#5-199 

#5-202 

#5-203 

#5-204 

#5-205 

#5-206 

#5-207 

#5-208 

#5-209 

#5-210 

#5-215 

SPTNMB 

#4-88 

SPTNUM 

#4-87 

10-405 

10-423 

10-429 

10-435 

SSSPTN 

#4-67 

4-87 

4-88 

♦»FILE**1D»»UPDSTA 
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CS.MOO 
CS.STA 
C.ADD 


UPDSTA     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:57 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


GX 
GX 


APR 
CST 
FLG 
HTM 
LEN 
..STA 
C.STS 
F.NRBD 
SENA 
SENAL 
SETADD 
SETA^^K 
SETCST 
SETFLG 
SETHTM 
SF.ENA 
SF.MFL 
SF.SER 
SF.SVC 
SMFL 
SMFLL 
SSER 
SSERL 
SSVC 
SSVCL 
STAKTB 
STASTB 
STSHTM 
TEMP 
SALPHA 
$ANY 
SBLANK 
$BUFI 
SCNVD 
SCNVO 
SDIGIT 
SDNUMB 
$EOS 
SERROR 
$EXIT 
SFAIL 
SGPRM 
SLAMDA 
SMOVST 
SMVASC 
INUMBR 
SOBUF 

SOFDB 


GX 
GX 


GX 
GX 
GX 
GX 


****** 
****** 

000005 

000010 

000007 

000006 

000012 

000016 

000004 

*♦**+* 

****** 

000002 

000007 

000150  R 

000226  R 

000200  R 

00025A  R 

000432 

****** 

****** 

****** 

****** 

000011 

000007 

000027  R 

000007 

000020  R 

000007 

000000  RG 

000000  RG 

******  GX 

000000  R 

■  000022 
000020 

:  000006 

■  ******  GX 

:  ******    GX 
:  ******    GX 

:  000024 

^  oooou 

■■   000012 

****** 

:  000000 
:  177777 

:  ****** 

:  000000 

:  *♦♦♦** 
:  ****** 

=  000002 

■  ****** 


GX 


GX 
GX 


REFERENCES 

6-185 

6-178 
#4-93 
#4-96 
#4-95 
#4-94 
#4-98 
#4-100 
#4-92 

6-178 
♦6-187 
#4-76 
#4-77 
#7-220 
#9-263 
#8-242 
#10-284 
#11-333 

10-288 

10-300 

10-306 

10-294 
#4-78 
#4-79 
#4-82 
#4-83 
#4-80 
#4-81 
#5-107 
#5-107 

11-335 
#4-75 
#5-107 
#5-107 
#5-107 

6-187 

7-225 

9-267 
#5-107 
#5-107 
#5-107 
♦6-196 
#5-107 
#5-107 

5-107 
#5-107 

6-189 

10-292 
#5-107 

7-224 

11-338 
♦6-187 


7-223 

9-265 

8-244 

10-288 

11-337 


6-185 

4-77 
10-291 


4-79 

10-303 

4-83 

10-309 

4-81 

10-297 

6-192 

6-193 

♦6-184 


8-246 


10-298 

♦7-226 
♦11-341 
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10-294    10-300    10-306 

11-335 
10-290 


Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 


10-302 
10-308 
10-296 

7-221 

11-340 


8-243 


9-264 


10-286 


11-334 


10-304  10-310 

8-245    ♦8-247     9-266 


♦9-268 


10-287 


10-312 


♦  10-316 


UPDSTA 


CREATED  BY     MACRO     ON  29-JUN-85   AT   05:57 


PAGE   2 


G    8 


F  9 


•  «FILE'MD«*UPDUNT 


UU    uu 

PPPPPPPP 

DDDDDDDD 

UU 

uu 

NN 

NN 

TTTTT 

TTTTT 

uu    uu 

PPPPPPFP 

DDDDDDDD 

uu 

uu 

NN 

NN 

TTTTT 

TTTTT 

uu    uu 

pp    pp 

DD 

DD 

UU 

uu 

NN 

NN 

uu    uu 

pp    pp 

DD 

DD 

UU 

uu 

NN 

NN 

uu    uu 

pp    pp 

DD 

DD 

UU 

uu 

NNNN 

NN 

uu    uu 

pp    pp 

DD 

DD 

UU 

uu 

NNNN 

NN 

uu    uu 

PPPPPPPP 

DD 

DD 

UU 

uu 

NN 

NN  NN 

uu    uu 

PPPPPPPP 

DD 

DD 

UU 

uu 

NN 

NN  NN 

uu    uu 

PP 

DD 

DD 

UU 

uu 

NN 

NNNN 

uu    uu 

PP 

DD 

DD 

UU 

uu 

NN 

NNNN 

uu    uu 

pp 

DD 

DD 

uu 

uu 

NN 

NN 

uu    uu 

pp 

DD 

DD 

uu 

uu 

NN 

NN 

uuuuuuuuuu 

pp 

DDDDDDDD 

uuuuuuuuuu 

NN 

NN 

uuuuuuuuuu 

pp 

DDDDDDDD 

uuuuuuuuuu 

NN 

NN 

S5S5SSSS 

TTTTTTTTTT 

SS5SSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

ssssss 

ssssss 

ss 

SS 

ss 

ss 

LLLLILLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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if  r  on  t-on  f-c 


UPOUNT    - 
SETPCH   - 

303 
304 
305 
306 
307 
308 
309 
510 
311 
312 
313 
3U 
315 
316 
317 
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TFE  UPDATE  UNII  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  13 
SET  EMULATOR  CHARACTERISTICS 

.SBTTL   SETPCH  -  SET  EMULATOR  CHARACTERISTICS 
****   -   SETPCH  -  SET  EMULATOR  CHARACTERISTICS 
INPUT: 


.TEMP  =  TEMPLATE  ADDRESS 


0003U 

0003A0  000207 

000001 


;  OUTPUT: 


SETPCH:  SPTNUM  #C.PCH, ,*UN$PCH 
RETURN 

.END 


10 
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Symbol  table 


UPDX2P     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:58 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


CS.UNl 

C.BSZ 

C.HBT 

C.LEN 

C.LIN 

C.RTC 

C.RTT 

C.USZ 

F.NRBD 

SETLIN 

X2PDF 

X2PLN 

SBUFI 

SMVASC 

SOBUF 

$OFDB 

SPTNUM 

$PTR50 

$UPX2P 

$WDATA 

.BUFF 

.COMMA 

.FLAGS 

.TEMP 


GX 


****** 
000014 
000022 
000024 
OOOOOA 
000016 
000020 
000012 

♦**♦♦* 

000200  ,. 
000000  R 
000010 

****** 
****** 
****** 
****** 
****** 
****** 
000010  RG 
******  GX 
******  GX 
******  GX 
:  ******  GX 
**»»**  GX 


GX 


GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

6-196 
#4-133 
#4-136 
#4-137 
#4-130 
#4-134 
#4-135 
#4-132 
»5-158 

5-168 
#4-140 
#4-141 

5-178 

5-166 
•5-167 
•5-158 

5-169 

6-191 
#5-157 

5-177 

5-158 
•5-162 
♦5-161 
•5-159 


5-170 
5-173 

6-191 
5-171 
5-172 
5-169 
•5-176 
#6-191 
4-141 
5-165 


5-174 

•5-176 

5-170 


5-163 

•6-194 

6-196 


6-195 

•5-178 
5-164 


6-192 

•5-178 

5-171 


5-175 
•6-200 
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6-201 


•6-193 
5-172 


6-198 
5-173 


•6-199 
6-195 


6-201 


UPDX2P 
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Table  of  contents 

4-  57    MACRO  CALLS  AND  LOCAL  DATA  ^     ,.,.„,„,,. 

5-  U8    $UPX5P  -  UPDATE  X.25  LEVEL  3  CHARACTERISTICS 
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MLD  -  Microcde  Loader 

Equated  Symbols  and  Literals 


95 

9*; 

95  000000 

96 

97 

98 

99 

100 

000002 

101 

000002 

102 

103 

IDA 

IDS 

000001 

106 

000001 

107 

001000 

108 

000006 

109 

014010 

110 

111 

112 

113 

1U 

000001 

115 

000003 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

010500 

144 

Ut, 

;..6 

'Vf   000000 

115 

151 

148  000051 

110 

141 

F  13 
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.S8TTL  Equated  S/mbols  and  Literals 
-  .PSECT  MLDDAT,D,RW,REL,OVR,LCL 
;      Equated  Symbols 


149 


EVTLUN 
EVTEFL 

.IFT 

^ 

FCSLUN 
FCSEFL 
FCSBSZ 
MXFNLN 
CVTPRM 

= 

1 

1 

512. 

6 

14010 

.IFTF 
.IF 

DF 

LD8WTS 
TMREFL 

.ENDC 

1 

3 

.IFF 
.IF 

DF 

NBUFS 

= 

1 

N$$UMR 


N$$UMR 


.IFF 
NBUFS   =       2 
.ENDC 

.IFTF 

;      Event  Logging  Data 

.IF     DF     P$$LUT 
ETYPCL  =       CLSPAZ 

.IFF 
ETVPCL  =       CLSASZ 

.ENDC 


;  Ei/ent  logging  LUN 

;  Event  logging  QIO  event  flag 


Input  file  LUN 
Input  file  I/O  event  flag 
Output  file  buffer  size  in  bytes 
Maximum  microcode  filename  length 
$CBTA  conversion  parameters 


Sees  between  LDB  allocation  attempts 
Mark  time  event  flag 


Only  use  one  CCB  buffer  descriptor 
Use  both  CCB  buffer  descriptors 


ASCII  events  are  PLUTO-speci f ic 
ASCII  events  are  RSX-specific 


143  MLDERR:  .ASCIZ  /Microcode  load  error  on  controller  !!R-5!M/ 
162  DEVERR:  .ASCIZ  /Hard  device  error/ 


MLD     -  Microcode  Loader 
Eauated  Symbols  and  Literals 
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FCSERR  -  Input  file  fCS  Error  Handler 


Page  13 


691 
692 
693 
69A 
695 
696 
697 
698 
699 
700 
701 
702 
703 
70A 
705 
706 
707 
708 
709 

710  001302 

711  001306 

712  0013U 

713  001316 
7U  001320 
715 

716  001322 

717  001326 

718  001332 

719  001334 

720  001340 

721  001344 

722  001350 

723  001352 

724  001356 

725  001362 
726 

727  001366 
72t  001370 


.SBTTL  FCSERR  -  Input  File  FCS  Error  Handler 
*•*  FCSERR  ♦♦♦ 


Function:     To  log  FCS  errors  as  DECnet  euenti 
to  correct  the  error  condition. 

Call  Format:   CALL    FCSERR 

Inputs:      None 

Outputs:     R3  =  load  halt  status 

FCS  error  is  logged  to  euent  sink 

Current  load  sequence  is  marked  for  a  halt 

Registers:    RO  through  R4  are  destroyed 


No  file  handling  is  done 


012700 
126027 
001002 
005003 
000422 

012702 
116001 
010112 
012700 
012701 

105010 
012702 


000144' 

000052  OOOOOOG 


001310' 
000052 


FCSERR: 


10$: 


001406' 
000073' 


001406' 


012703  001000 
000261 


20$: 


MOV 

CMP8 

BNE 

CLR 

BR 

MOV 

MOVS 

MOV 

MOV 

MOV 

CALL 

CLRB 

MOV 

CALL 

MOV 

SEC 
RETURN 


#FDa,RO 

F.ERR(RO),#1E.EOF 

10$ 

R3 

20$ 

#FILERR,R2 

F.ERR(hO),R1 

R1,(R2) 

#WDfiKSP,RO 

#fI0ERR,R1 

$EDMSG 

(RO) 

#W0RKSP,R2 

LOGEVT 

#CS.FTL,R' 


Get  address  of  input  file's  FDB 
Oid  end  of  file  occur? 
Branch  if  so,  no  real  error 
Get  "end  of  data"  halt  reason 
Branch  to  common  exit 

Get  $EDMSG  argument  block  address 

Get  FCS  error  code  with  sign  extend 

Moue  error  to  argument  block 

Get  address  of  output  string 

Get  $EDMSG  instruction  string  address 

Format  the  output  string 

Make  it  an  ASCIZ  string 

Recover  error-specific  string  address 

Log  the  event 

Get  "fatal  error"  status 

Set  C-bit  for  error 
Exit 
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MLD 

CREATED  BY 

MACRO  ON  25 

-AUG-85  AT 

11:27 

PAGE  2 

SYMBOL 

ROSS  REFERENCE 

CRFF   04.00 

SYMBOL 

VALUE 

REFERENCES 

DLSSYN 

=  000005 

#6-83 

DSDS 

001312  R 

8-170 

#8-177 

.9-299 

*9-306    *14-7 

DSPDRV 

000604  R 

9-466 

#10-499 

10-560 

15-805 

D.NAM 

OOOOOA 

9-287 

D.UCB 

000002 

9-?a8 

D.UCBL 

000010 

9-<^89 

D.UNIT 

000006 

9-291 

EFSACT 

=  000001 

#6-83 

ETYPCL 

=  010500 

#7-143 

11-617 

EVTBLK 

001526  R 

#8-216 

11-606 

11-615 

11-617 

EVTEFL 

=  000002 

#7-101 

11-617 

EVTLUN 

=  000002 

#7-100 

9-269 

11-617 

EVSACF 

=  000201 

#6-83 

EVSAOR 

=  000420 

#6-83 

EVSADU 

=  000417 

#6-83 

EVIAPL 

=  000400 

#6-83 

EVSARC 

=  000421 

#6-83 

EVSAUC 

=  000010 

#6-83 

EVSAUS 

=  000003 

#6-83 

EVSCDF 

=  000520 

#6-83 

EVSCOZ 

=  000011 

#6-83 

EVSDBR 

=  000302 

#6-83 

EVSGAS 

=  035101 

#6-83 

EV$HCE 

=  035114 

#6-83 

EVSHCI 

=  035113 

#6-83 

EVSHFE 

=  000506 

#6-83 

EVSIFL 

=  000413 

#6-83 

EVSIFO 

=  000415 

#6-83 

EVSIFS 

=  000414 

#6-83 

EVSINF 

=  000515 

#6-83 

EVSLDL 

=  000407 

#6-83 

EVtLDN 

=  010416 

#6-83 

EVtLDO 

=  000411 

#6-83 

EVSLDS 

=  000410 

#6-83 

EVSLSC 

=  000500 

#6-83 

EVSLUP 

=  0-0412 

#6-83 

EVSNOL 

=  000402 

#6-83 

EVSNRC 

=  000416 

#6-83 

EVSNSC 

=  000200 

#6-83 

EVSNUL 

=  000401 

#6-83 

EVSNVR 

=  000406 

#6-83 

EVSOPL 

=  000403 

#6-83 

EVSPCC 

=  034000 

#6-83 

EVSPCI 

=  034001 

#6-83 

EVSPCM 

=  034002 

#6-83 

EV$PFE 

=  000404 

#6-83 

EVSPPC 

=  034003 

#6-83 

EV$RCF 

=  000517 

#6-83 

EVSRDC 

=  010001 

#6-83 

EVSRDR 

-  010002 

#6-83 

EVSRJE 

=  035106 

#6-83 

E\/$RSC 

=  000501 

#6-83 

«14-757    *14-758 


MLD 
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MLD     -  Microcode  Loader 
Macro  Det  initions 

49 
50 
51 

l\ 
5A 
55 
56 
57 
58 
59 
60 
61 

t\ 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74  000000 

75 

76 

77 

78 

79 

80 

81  000000 

82  000000 

83  000000 

84  000000 

85  000000 
86 
87 
88 
89 
90 
91 
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.S8TTL  Macro  Definitions 


System 

.JF 

.MCALL 

KRBDF$ 

.ENDC 

.If 

.MCALL 
.MCALL 

UC8DF$ 
DCBDFS 

.IFF 

.MCALL 

PCeOFS 

.IFTF 

.MCALL 
.f'CALL 

TCBDFS 
CC8DF$ 
EVLDFS 
PDVDFI 
SLT^FS 

.IF 

.MCALL 

.ENDC 


Macros  Used 
Df      R$$MPL 
KR8DF$,  RMAFSS,  STAF$S,  DIRS,  GIN$ 


NDF 


R$$11S 


FSRSZS,  OPENSR,  CLOSES,  READS,  WAITS,   FDBDFS 
FDATSA,  FDRCSA,  FDBKSA,  FDDPSA,  FINITS,  UC8DFS,  DCBDFS 


PC8DFS 


EXITSS,  SPRASS,  SREASS,  QIOWSS,  ALUNSS 
rCBDFS,  CCBDFS,  EVLDFS,  PDVDFS,  SLTDFS 


DF 

MRKTS, 


NSSUMR 
STSES,   DIRS 


MLD     -  Microcode  Loader 
Equated  Symbols  and  Literals 


G  16 

MACRO  V05.03b  Wednesday  28-Aug-85  11:31  Page  7 


6     1 

UPDPVC  -  UPDATE  PERMANENT   VIRTU  MAlRO  V05.03b  Saturday   29-Jun-85  05:55 
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4-        57  MACRO   CALLS  AND  LOCAL    DATA 

4-  58         MACRO  DEFINITIONS 

5-  131  LOCAL   DATA 

6-  U4  SUPPVC    -  UPDATE   PERMANENT   Vi.'^ruAL    CIRCUIT 

7-  193  SETSTA   -   SET   STATE 
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UP 


UPDRDT  -  UPDATE 
MArRO  CALLS  AND 

57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000000 

112  000000 
113 
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LOCAL   DATA 


U( 
$1 


.SBTTL 
.SBTTL 

LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


MACRO  CALLS  AND  LOCAL  DATA 
MACRO  DEFINITIONS 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRINT 

MERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS.0CTL.0PT.7L 

.IF  NB 

<OPT> 

MOV 

0PT,H2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS.R2 

.IF  NB 

<OCTL> 

MOV 

SP.R1 

.IFF 

CLR 

R1 

.ENDC  ; 

IF  NB  <0CTL> 

CALL 

■ROU 

.  I F  T   ; 

IF  N8  <OPT> 

.ENDC  , 

IF  NB  <OPT> 

.ENDM  , 

'ROU 

.ENDM  , 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNMB 

UPDRDT  -  UPDATE  REMOTE  DTE  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:55  Page  4-1 
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SUPREM  -  SETUP  REMOTE  DEFINITION 

.SBTTL  SUPREM  -  SETUP  REMOTE  DEFINITION 
'***  -  SUPREM  -  SETUP  REMOTE  DEFINITION 
INPUT: 


151 

152 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

16? 

163  000154 

164  000154 

012767 

000033'  OOOOOOC 

165  000162 

010546 

166  000164 

012700 

OOOOOOG 

167  000170 

010001 

168  000172 

011000 

169  000174 

001455 

170  000176 

122760 

OOOOOOG  OOOOOOG 

171  000204 

001371 

172 

173 

174 

175  000206 

011011 

176  000210 

010067 

177564 

177  000214 

012700 

000033' 

178  000220 

012701 

000023' 

179  000224 

012702 

000010 

180  000230 

004767 

OOOOOOG 

181  000234 

010067 

OOOOOOG 

182  000240 

005001 

183  000242 

012702 

000000' 

184  000246 

012703 

000020 

185  000252 

012704 

000002' 

186  000256 

012705 

000000' 

187  000262 

004767 

OOOOOOG 

188  000266 

103003 

189  000270 

005267 

OOOOOOG 

190  000274 

000415 

191  000276 

016701 

OOOOOOG 

192  000302 

162701 

000033' 

193  000306 

010167 

OOOOOOC 

194  000312 

004767 

OOOOOOG 

195  000316 

004767 

000154 

196  000322 

103320 

197  0003r4 

005267 

OOOOOOG 

198  000330 

01260' 

199  000332 

01276^ 

OOOOOOG  OOOOOOC 

200  000340 

00020:- 

R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


SUPREM:: 


5S: 
10$: 


MOV 

MOV 

MOV 

MOV 

MOV 

BEQ 

CMPB 

BNE 


#8UFF,$0FDB+F.NRBD+2   ;    SET  NEW  OUTPUT  BUFFER 


R5,-(SP) 

#$TMLST,RO 

RO.RI 

(RO),RO 

30$  , 

#CS.REM,C.STS(RO) 

10$ 


FOUND  A  TEMPLATE 


20$: 


30$: 


MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

CALL 

BCC 

INC 

BR 

MOV 

SUB 

MOV 

CALL 

CALL 

BCC 

INC 

MOV 

MOV 

RETURN 


(R0),(R1) 

RO.TEMP 

#BUFF,RO 

#REMDF,R1 

#REMLN,R2 

$MVASC 

R0,$OBUF 

Rl 

#REMKTB,R2 

*REMLEN,R3 

*REMDEF,R4 

#REMSTB,R5 

.TPARS 

20$ 

$ERROR 

30$ 

SOBUF.Rl 

#8UFF,R1 

R1,S0FDB+F 

SWDATA 

UPDLL 

5$ 

SERROR 

(SP)+,R5 

#$eUFI,$OF 


NRBD 


SAVE  CURRENT  TPARS  STATE 
POINT  AT  START  OF  TEMPLATES 
SAVE  ADDRESS  OF  CURRENT  TEMPLATE 
GET  ADDRESS  OF  NEXT  TEMPLATE 
IF  EQ,  END  OF  TEMPLATES 
;  IS  THIS  A  REMOTE  DEFINITION 
IF  NE,  NO  ..  KEEP  LOOKING 


REMOVE  TEMPLATE  FROM  CHAIN 

SAVE  TEMPLATE  ADDRESS 

POINT  AT  START  OF  OUTPUT  BUFFER 

POINT  AT  START  OF  REMOTE  DEFINITION 

GET  LENGTH  OF  REMOTE  DEFINITION 

MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

IGNORE  BLANKS 

KEYWORD  TABLE 

LENGTH  OF  REMOTE  DEFINITION 

ADDRESS  OF  REMOTE  DEFINITION 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NOf    RETURN  IF  NO  ERROR 

If   .ATE  SYNTAX  ERROR 

ANu  LEAVE 

CALCULATE  LENGTH  OF  BUFFER 


SET  LENGTH  OF  BUFFER 
WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 
SEE  IF  ANY  DLL  CHARACTERISTICS  FOR  THIS  NODE 
IF  CC,  GO 

SYNTAX  ERROR  SOMEWHERE 
RESTORE  R5 
OBtF.NRBD+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 


H     3 
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<;FTUiM    -    URITF    nilT    RFMHTF    NODF    NAME 
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UPDROU 


95 

96 

97 

98 

99 

100  000002 
101 
102 

103  000002 
lOA  000002 
105 

106  000002 

107  000002 
108 

109  000002 

110  000002 
111 

112  000002 

113  000002 
lU 

115  000002 

116  000002 


117 
118 
119 
120 

121 


000002 
000002 


_  000002 
122  000002 
123 

12A  000002 
125  000002 
126 

127  000002 

128  000002 
129 

130  000002 

131  000002 
132 

133  000002 
13-4  000002 
135 

136  000002 

137  000002 
138 

139  000002 

140  000002 
141 

000002 
000002 


142 
143 
144 
145 


_  000002 

146  000002 

147  000002 

148  000002 
149 

150  000002 

151  000002 


.03b  Saturday 

?9-Jun-85  05:56  Page  5 

**** 

INITIALIZE  TABLE  GENERATION 

**** 

ISTATS 

ROUSTB,ROUKTB 

STATES 
TRANS 

SNUM8R,,SETNUM 

;MAX  ADDRESS 

STATES 
TRANS 

<',>,,$HOVPT 

STATES 
TRANS 

SNUMBR,,SETNUM 

.-COST 

STATES 
TRANS 

<',>,,SHOVPT 

STATES 
TRANS 

SNUMBR,,SETNUM 

.-HOPS 

STATES 
TRANS 

<',>,, SMOVPT 

STATES 
TRANS 

SNUM8R,,SETNUM 

.-ROUTING  TIMER 

STATES 
TRANS 

<',>,,SMOVPT 

STATES 
TRANS 

SNUnBR,,SETNUM 

; NUMBER  OF  AREAS 

STATES 
TRANS 

<',>,,SMOVPT 

STATES 
TRANS 

SNUM6R,,SETNUM 

;BRO  ENDNODE  ADJACENCIES 

STATES 
TRANS 

<',>,,SMOVPT 

STATES 
TRANS 

SNUM6R,,SETNUM 

.■AREA  MAX  HOPS 

STATES 
TRANS  <',>,, SMOVPT 

STATES 

TRANS  SNUM8R,,SETNUM 
STATES 

TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUMBR,,SETMUM 


.■AREA  MAX  COST 


.■LEVEL  2  TIMER 


H     4 
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157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 

171  000266 

172  000266 

173  000272 

174  000276 

175  000300 

176  000304 

177  000310 

178  000312 

179  00031 A 

180  000316 

181  000320 

182  000324 

183  000326 

184  000330 

185  000332 

186  000336 

187  000342 

188  000344 

189  000350 

190  000354 

191  000360 

192  000364 


.SBTTL  PUTNOD  -  WRITE  OUT  NODE  ADDRESS 
*•*  -  PUTNOD  -  WRITE  OUT  NODE  ADDRESS 
CALLING  SFQUENCE: 


JSR 
.WORD 


R5,PUTN00       ;  OUTPUT  REMOTE  NODE  ADDRESS 
OFFSET, FLAG  BIT  ;   ... 


016700 
016702 
062502 
112720 
032577 
001421 
005300 
011201 
010146 
042701 
000301 
006201 
006201 
004767 
112720 
012601 
042701 
004767 
112720 
010067 
000205 


OOOOOOG 
OOOOOOG 

000054 
OOOOOOG 


001777 


OOOOOOG 
000054 

176000 
OOOOOOG 
000054 
OOOOOOG 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


PUTNOD: 


10$: 


MOV 

$08UF,R0 

POINT  AT  CURRENT  POSITION  IN  LINE 

MOV 

.TEMP,R2 

POINT  AT  TEMPLATE 

ADD 

(R5)+,R2 

POINT  TO  NODE  ADDRESS  IN  TEMPLATE 

MOVB 

#<',>, (RO)t 

ASSUME  PARAMETER  NOT  PARSED 

BIT 

(R5)t,a.FLAGS 

WAS  PARAMETER  PARSED  ? 

BEQ 

10$ 

IF  EQ,  NO 

DEC 

RO 

BACK  OVER  COMMA 

MOV 

(R2),R1 

GET  NODE  ADDRESS 

MOV 

R1,-(SP) 

COPY  lY 

BIC 

#1777, R1 

ONLY  WANT  AREA 

SWAB 

R1 

SHIFT  IT  INTO  LOW  BYTE 

ASR 

Rl 

NOT  DONE  YET 

ASR 

Rl 

•  <  > 

CALL 

$CNVD 

CONVERT  NODE  ARLA  TO  DECIMAL 

MOVB 

#<',>, (R0)+ 

INSERT  COMMA 

MOV 

(SP;+,R1 

RECOVER  NODE  ADDRESS 

BIC 

#*C17^7,R1 

CLEAR  AREA 

CALL 

SCNVD 

PUT  LOW  ORDER 

MOVB 

#<•,>, (R0)+ 

INSERT  COMMA 

MOV 

R0,$OSUF 

RESTORE  BUFFER  POINTER 

RTS 

R5 

DONE 

UPDSER 

PIITRSn 
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19A  000100 

195  000100 

196  000100 
197 

198  000100 

199  000100 
200 

201  000100 

202  000100 

203  000100 
20A  000100 

205  000100 

206  000100 

207  000100 

208  000100 

209  000100 

210  000100 
211 

212 

213 

2U  000100 

215  000100 

216 

217  000100 


STATES     SKIP 
TRANS      'I, NEXT 
TRANS     <',>,$EXIT 


STATES 

NEXT 

TRANS 

ILFS 

STATES 

BITS 

TRANS 

"TIM", SKIP 

TRANS 

"MFL",SKIP 

TRANS 

"MDC",SKIP 

TRANS 

"MTP",SKIP 

TRANS 

"REA",SKIP 

TRANS 

"ENA",SKIP 

TRANS 

"X2P",SKIP 

TRANS 

"Bfi0",SKIP 

TRANS 

"SER",SKIP 

;  EXIT  STATE 

STATES 

EXIT 

TRANS 

SLAMDA,SEX1T,$CLNUP 

STATES 


UL 
UL 
UL 
Ul 
Ul. 
Ul. 
UL 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
Ul 
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♦  'FILE**ID"UPDSTA 


uu    uu 

pppppppp 

DDDDDDDD 

SSSSSSSS 

TTTTT 

TTTTT 

AAAAAA 

uu    uu 

PPPPPPFP 

DDDDDDDD 

SSSSSSSS 

TTTTT 

TTTTT 

AAAAAA 

uu     UJ 

pp 

ap 

DD 

DD 

SS 

T 

AA      AA 

uu    uu 

pp 

pp 

DD 

DD 

SS 

T 

AA      AA 

UU    uu 

pp 

pp 

DD 

DD 

SS 

T 

AA      AA 

uu    uu 

pp 

pp 

DD 

DD 

SS 

T 

AA      AA 

uu    uu 

pppppppp 

DD 

DD 

SSSSSS 

T 

AA      AA 

uu    uu 

pppppppp 

DD 

DD 

SSSSSS 

T 

AA      AA 

uu    uu 

pp 

DD 

DD 

SS 

AAAAAAAAAA 

uu    uu 

pp 

DD 

DD 

SS 

AAAAAAAAAA 

uu    uu 

pp 

DD 

DD 

SS 

AA      AA 

uu    uu 

pp 

DD 

DD 

SS 

T 

AA      AA 

uuuuuuuuuu 

pp 

DDDDDDDD 

SSSSSSSS 

T 

AA      AA 

uuuuuuuuuu 

pp 

DDDDDDDD 

SSSSSSSS 

T 

AA      AA 

UF 

sy 
s> 
$p 
$s 

$5 
SI 
$L 
$J 
$1 
.( 
.1 


SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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SYMBOL  CROSS  REFERENCE 
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PAGE   2 

CREF       04.00 


Ul 
T, 


SYMBOL 

VALUE 

REFERENCES 

$RAD50 

=  000016 

#5-107 

SRONLY 

-  ****** 

5-07 

SSTRNG 

=  000004 

#5-107 

SSUBXP 

=  000010 

#5-107 

STMLST 

::   ***«♦* 

GX 

6-174 

SUPSTA 

000036 

RG 

#6-175 

S$$FLG 

=   17777? 

#5-107 

SSSKEY 

=   177777 

#5-107 

.CONER 

r  ****** 

GX 

6-202 

.TPARS 

-  ****** 

GX 

6-194 

5-107 


5-107 


UPDSTA 
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Table  of  contents 

6-  153  SUPUNT  -  UPDATE  UNIT  DEFINITION 

7-  196  SETUNT  -  CHECK  UNIT  NUMBER 

8-  218  SETCWO  -  SETUP  THE  CHARACTERISTICS  WORD  0 

9-  239  SETCWl  -  SET  THE  CHARACTERISTICS  WORD  1 

10-  261  SETCSR  -  SET  THE  CECONDARY  CSR  ADDRESS 

11-  275  SETCST  -  SET  THE  LUE  COST 

12-  289  SETDPR  -  SET  THE  LINE  DEAD  POLLING  RATIO 

13-  303  SETPCH  -  SET  EMULATOR  CHARACTERISTICS 
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UPDUNT  -  CFE  UPDATE  UNIT  DEFINl 
Symbol  table 


MACRO  V05.03b  Saturday  29-Jun-85 


§5l?, 
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CS.UNT 
C.CSR 
C.CST 
C.CWO 

c.cwi 

C.DPR 
C.LEN 
C.PCH 
C.STS 
CUNT 
SETCSR 


=  ****** 
000012 
OOOOU 
000006 
000010 
000016 

=  000026 
000024 

=  ****** 

000004 
00021 2R 


GX 


GX 


SETCST 
SETCWO 
SETCWl 
SETDPR 
SETPCH 
SETUNT 
UNTKT8 
UNTSTB 
UN$CST 
UNSDPR 
UNSPCH 


0002A0R 
0001 36R 
00016AR 
000266R 
0003UR 
00011  OR 
OOOOOORG 
OOOOOORG 
******  GX 
******  GX 
=  ******  GX 


UN$SCS= 
$ALPHA= 
$ANY  = 
$BLANK= 
$CLNUP= 
$CNVO  = 
003  $DIGIT= 
002  $DNUMB= 
$E0S  = 
$ERROR= 
$EXIT  = 


****** 

GX 

$FAIL  = 

000022 

$LAMOA= 

000020 

$MOVPT= 

000006 

$MOVST= 

****** 

GX 

$NUMBR= 

****** 

GX 

$OBUF  = 

000021 

$PrNUM= 

OOOOK 

$PTOPr= 

000012 

$RAD50= 

****** 

GX 

$STRNG= 

000000 

$SUBXP= 

177777 
000000 
******  GX 
******  GX 
000002 
»»»*«*  GX 
******  GX 
******  GX 
000016 
000004 
000010 


$TMLST= 

****** 

GX 

SUPUNT 

OOOOOORG 

$$$FLG= 

■\77777 

$$$KEY= 

■\77777 

$$$STA= 

000000 

. COMMA= 

****** 

GX 

.CONER= 

****** 

GX 

.FLAGS= 

****** 

GX 

.PNUMB= 

****** 

GX 

.TEMP  = 

****** 

GX 

.TPARS= 

****** 

GX 

.  ABS. 

SSTATE 

SKTAB 

$KSTR 


000026 
000342 
000046 
000000 
000000 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,1,GBL,ABS,0VR) 
(RW,],LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


»**  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


0 

0 

10796  Words 

14440  Words 

RSX-11M/PLU3 


(  43  Pages) 
(  55  Pages) 


SYtuPDUfJT!v2![l'32?l'34]UPDUNT/CR/-SP=Sy:[l,nRSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]UPDUNT 


UPDUNT 
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UPDX2P     CREATED  B¥  MACRO  ON  29-JUN-85  AT  05:58     PAGE  ? 

MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NJAl^E 

REFERENCES 

EPRINT 

10,-76 

ERRORS 

#A-67 

PRINT 

*4-62 

SPTNMB 

#4-111 

SPTNUM 

#4-110 

5-169 

5-170 

$PTR50 

#4-115 

6-191 

$$$PTN 

#4-90 

4-110 

4-111 

5-171  5-172  5-173  6-195  6-201 
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§5l! 


1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3'!. 

35 

36 

37 

38 

39 

AO 

A1 

A2 

A3 

AA 

A5 

A6 

A7 

a8 

A9 

50 

51 

52 

53 

5A 

55 


.TITLE  UPDX3P  -  UPDATE  X.25  LEVEL  3  CHARACTERISTICS 
. I  DENT  /V05.00/ 
.ENABL  LC 

COPrRlGHT  (C)  1981,  1982,  1983,  1985  8Y 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

UPDATE  X.25  LEVEL  3  CHARACTERISTICS  IN  CETAS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  U-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

A. 00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  VA.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MACRO  CALLS  AND  LOCAL  DATA 
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MLD    -  Microcode  Loader  MACRO  V05.03b  Wednesday  ?8-Aug-85  11:26  Page  7-1 
Equated  Symbols  and  Literals 

150  .IfT 

152  000075     106     151  154  FIDfRR:  .ASCIZ  /File  access  error  =  XD,  file  =  XVAXVAXVA/ 

15A  .Iff 

156  PARERR:  .ASCIZ  /Partition  X2P  not  found/ 
157 

158  .IfTF 

159  .EVEN 


H  13 

MLD    -  Microcode  Loader     MACRO  V05.03b  Wednesday  28-Aug-85  11:26  Page  8 
Load  Control  Data  


MLD     -  Microcode  Loader     MACRO  V05.03b  Wednesday 
LOCFIL  -  Locate  Microcode  File 
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730 
731 
732 
733 
734 
735 
736 
757 
738 
759 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752  001372 

755  001376 
754  001400 
755 

756  001404 

757  001410 

758  001414 

759  001422 

760  001424 

761  001430 

762  001434 

763  001440 
764 

765  001444 

766  001470 

767  001472 

768  001476 
769 

770  001504 


020527 
005402 
012705 

010467 
010567 
062767 
060504 
112724 
112724 
112724 
112714 


103405 
005067 
012767 


Function: 

Call  Format: 
Inputs: 

Outputs: 
Registers: 


.SBTTL  LOCFIL  -  Locate  Microcode  File 

»♦•  LOCFIL  •** 

To  locate  a  microcode  task  image  file  on  the  current  .network 
UIC  of  HLD's  load  device.  It  the  tile  is  found,  it  is  opened 
for  read  with  block  1/0. 

CALL    lOCFlL 

R4  =   address  of  filename/type/version  ASCII  string 
R5  =  length  of  the  string 

C-bit  clear  =  file  found  and  opened 

C-bit  set   =  file  not  found  or  could  not  be  opened 

BL0C<(+2)  is  set  up  for  first  file  read 

RO  through  R5  destroyed 


000006 

000006 

001324' 
001522" 
000004  001522' 

000056 
000124 
000123 
000113 


001372' 

000002  001374' 


LOCFIL:  CMP 
BLE 
MOV 


R5,(»MXFNLN 

10$ 

*MXFNLN,R5 

10$:    MOV  R4,DSDSt10. 

MOV  R5,DSDSt8. 

ADD  #4,DSDS+8. 

ADD  R5,R4 

MOVB  #'.,(R4)t 

M0V8  #'T,(R4)+ 

MOVB  #'S,(R4)+ 

MOVB  #'K,(R4) 

0PEN$R  #FD8,,,,,,FCSERR 

BCS  20$ 

CLR  BLOCK 

MOV  #2,BL0CK+2 

20$:    RETURN 


Does  filename  length  exceed  maximum? 

Branch  if  not 

Else,  force  length  to  maximum 

Move  address  of  dataset  descriptor 

Move  string  length  as  well 

Add  in  length  of  ".TSK"  extension 

Point  past  end  of  string 

Append  the  string  ".TSK 

to  the  end  of  the  specified 
filename  string 


Open  the  input  file 

Branch  if  error  occurred 

Clear  high  virtual  block  number  (VBNI) 

Set  low  V8N  for  first  data  block  read 

Exit 
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CREf   OA.OO 


SYMBOL  VALUE 


EV$RUL 

EV$SNA 

EVSSNF 

EV$SPE 

EV$XCE 

EVSXDI 

EVSXGU 

EVlXMX 

EV$XRS 

EV$XSC 

EVtX25 

EV.CCS 

EV.CIR 

EV.LCB 

EV.LIN 

EV.MAP 

EV.MOD 

EV.NOD 

EV.PRT 

EXEVCL 

EXEVEC 

ESDATA 

ESEVTS 

ESLCN 

E$LIN 

E$MOD 

ESNOD 

ESPORT 

ESPRM 

ESSTAT 

ESTCB 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LCN 

E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FCSBSZ 

FCSBUF 

FCSEFL 

FCSERR 

FCSI05 

FCSLUN 


OOOAOS 
035000 
000516 
035001 
03A110 
013600 
03^111 
0005  U 
000512 
000513 
013500 
000001 
000020 
000100 
000004 
000002 
OOOOAO 
000010 
000200 
000017 
000000 
000020 
000000 
000016 
000000 
000012 
000010 

oooou 

000002 
000006 
OOOOOA 
000020 
000C46 
000002 
000042 
000216 
000024 
000000 
000036 
000034 
000021 
000040 
000026 
000044 
000022 
000004 

=  001000 
000304 

=  000001 
001302 
001304 

=  000001 


REFERENCES 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#8-247 

#8-227 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-85 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#6-83 

#7-107 

8-169 
#7-106 
#13-710 

8-16" 
#7-105 


8-247 
11-606 


8-169 
#8-174 
8-169 
14-765 

#8--:75 

8-170 


8-174 
15-801 

14-765 
15-803 


15-794 


15-794 


MLD 
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95 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
lO-i 
105 
106 
107 
108 
109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12-; 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
UO 
U1 

U3 

1A5 
U6 
147 


000000 
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,S8ITL  Equated  Symbols  and  Literals 
.PSECT  MLDDAT,D,RW,REL,OVR,LCL 
Equated  Symbols 


000002 
000002 


000001 
000003 


000001 


EVTLUN 
EVTEFL 

.IFI 

2 
2 

FCSLUN 
FCSEFL 
FCSBSZ 
MXFNLN 
CVTPRM 

= 

■ 

512. 

6 

U010 

.IFTF 
.IF 

DF 

LDBWTS 
TMREFL 

.ENDC 

1 
3 

.IFF 
.IF 

DF 

N8UFS 

= 

1 

NBUFS 


ETrPCL 


N$$UMR 


NtSUMR 

1 
.IFF 

2 
.ENDC 

.IFTF 

Event  Logging  Data 

.IF     DF      P$$LUT 

CLSPAZ 
.IFF 


000000 
U8  000051 
^49 


010500 


115 

110 


ETYPCL  =       CLSASZ 
.ENDC 


Event  logging  LUN 

Event  logging  QIO  ei/ent  flag 


Input  file  LUN 
Input  file  I/O  event  flag 
Output  file  buffer  size  in  bytes 
Maximum  microcode  filename  length 
SfBTA  conversion  parameters 


Sees  between  LDB  allocation  attempts 
Mark  time  event  flag 


Only  use  one  CCB  buffer  descriptor 
Use  both  CCB  buffer  descriptors 


ASCII  events  are  h^lUTO-spec  i  f  ic 
ASCII  events  are  RSX-specific 


151 
U1 


U3  MLDERR:  .ASCIZ  /Microcode  load  error  on  controller  !!R-XM/ 
162  DEVERR:  .ASCIZ  /Hard  device  rrcr/ 
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38 
39 

40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


UP' 
MA 


.TITLE  UPDPVC  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNuER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  N  TICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THF  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  PERMANENT  VIRTUAL  CIRCUIT 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00 


3.00 


14-AUG-81 
DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 


16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 


4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-HM/S  V4.2 
DECnet-llM-Plus   V3.0 
DECnet-Micro/RSX  VI. 0 
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1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 


PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 
OfS,UC,OPT,?L 


.MACRO 

$PTR50 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

$PTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

MOV 

UC,R1 

CALL 

$PTR50 

.IFT 

.ENDC 

.ENDM 
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Us 
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202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
21A 
215 
216 

217  000342 

218  0O03A2 

219  0003A6 

220  000352 

221  000356 

222  000362 

223  000366 
22A  000372 

225  000376 

226  000402 


.SBTTL  SETNAM  -  URITE  OUT  REMOTE  NODE  NAME 
***  -  SETNAM  -  WRITE  OUT  REMOTE  NODE  NAME 


INPUT: 


.PSTPT  =  THE  ADDRESS  OF  THE  NODE  NAME  STRING 
.PSTCN  =  THE  LENGTH  OF  THE  NODE  NAME  STRING 
SOBUF  =  CURRENT  POSITION  IN  OUTPUT  LINE 
TEMP  =  TEMPLATE  ADDRESS 


016700 
016702 
016201 
004767 
016702 
016201 
004767 
010067 
000207 


OOOOOOG 

177426 

000004 

OOOOOOG 

177412 

000006 

OOOOOOG 

OOOOOOG 


OUTPUT: 

C-BIT 

=  SUCCESS/FAILUR 

TN  ,M: 

MOV 

$08UF,RO 

MOV 

TEMP,R2 

MOV 

C.NAM(R2),RI 

CALL 

$C5TA 

MOV 

TEMP,R2 

MOV 

C.NAMt2(R2),Rl 

CALL 

SCSTA 

MOV 

RCSOeUF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  LINE 

POINT  AT  TEMPLATE 

GET  THE  1ST  HALF  OF  THE  NODE  NAME 

CONVERT  RAD50  TO  ASCII 

POINT  Al  TEMPLATE 

GET  THE  2ND  HALF  OF  THE  NODE  NAME 

CONVERT  RAD50  TO  ASCII 

UPDATE  POINTER  INTO  OUTPUT  LINE 


I  3 


UPDREM 

CC  T  ADC 
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152 
153 
15^. 

155  000002 

156  000002 
157 

158  000002 


EXIT  STATE 


STATES  EXIT 
TRANS  SLAMDA,SEXIT,SCLNUP 

STATES 
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19A 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 

206  000366 

207  000366 

208  000372 

209  000376 

210  000400 

211  000402 

212  000406 

213  000412 

214  000414 

215  000416 

216  000422 

217  000424 

218  000430 

219  000434 

220  000440 


.SBTTL  PUTR50  -  OUTPUT  EXTENDED  RAD50  STRING 
♦**  PUTR50  -  OUTPUT  EXTENDED  RAD50  STRING 
CALLING  SEQUENCE: 


PUTfiSO: 


016704  OOOOOOG 

062504 

012503 

016700  OOOOOOG 

032577  OOOOOOG 

001404 

012401 

004767  OOOOOOG 

077304 

112720     000054 

010067     0000006 

000205 


10$: 


20$: 


JSR 

R5,PUTR50 

.WORD 

TEMPLATE  OFFSET 

.WORD 

INPUT  WORD  COUNT 

.WORD 

FLAG  BIT 

SAVRG 

<R3,R4> 

SAVE  TPARS  REGISTER 

MOV 

.TEMP,R4 

POINT  TO  TEMPLATE 

ADD 

(R5)+,R4 

OFFSET  INTO  IT  ... 

MOV 

(R5)+,R3 

PICK  UP  INPUT  WORD  COUNT 

MOV 

$08UF,R0 

SET  UP  BUFFER  POINTER 

BIT 

(R5)+,a.FLAGS 

WAS  THIS  PARAMETER  PARSED 

BEQ 

20$ 

IF  EQ,  NO  -  DONE 

MOV 

(R4)+,R1 

PICK  UP  A  WORD  TO  CONVERT 

CALL 

$C5TA1 

CONVERT  IT 

SOB 

R3,i0$ 

TIL  DONE 

MOVB 

*<',>, (RO)t 

INSERT  COMMA 

MOV 

R0.$OBUF 

RESTORE  BUFFER  POINTER 

RESRG 

<R4,R3> 

RESTORE  TPARS  REGISTER 

RTS 

R5 

DONE 

UPDSER   -  CFE   UPDATE   REMOTE   CHAR  MACRO  V05.03b  Saturday  29-Jun-85  05:56 
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Ul 
T, 


219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 

231  000100 

232  000100 

233  00010'!. 

234  000106 

235  000110 

236  000112 

237  000120 
238 

239 
240 

241  000122 

242  000124 

243  000130 

244  000132 

245  000136 

246  000142 

247  000146 
2'.8  000150 

249  000152 

250  000156 

251  000162 

252  000166 

253  000170 

254  000174 

255  000176 
256 

257 
258 
259  000200 


.SBTTL   SUPSLT  -  UPDATE  SLT  DEFINITION 
*♦*  -  SUPSLT  -  UPDATE  SLT  DEFINITION 
INPUT: 


R3-fi5 


TPARS  REGISTERS 


OUTPUT: 


C-eiT   =   SUCCESS/FAILURE 


012700 
010001 
011000 
001433 
122760 
001371 


011011 
010067 
005720 
010067 
005067 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPSLT:: 
10S: 


OOOOOOG  OOOOOOG 


OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 


MOV  *STMLST,RO 

MOV  RO.RI 

MOV  (R0),RO 

BEQ  101S  , 

CMP8  #CS.SLT,C.STS(RO) 

BNE  1 0S 


POINT  AT  START  OF  TEMPLATES 

SAVE  CURRENT  TEMPLATE 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  AN  SLT  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


000000' 
000000" 
OOOOOOG 

OOOOOOG 


20$: 
30$: 


MOV 

MOV 

TST 

MOV 

CLR 

CALL 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


(R0),(R1) 

RO,.TEMP 

(fiO)  + 

RO, .FLAGS 

. COMMA 

SMOVST 

R5,-(SP) 

R1 

#SLTKTB,R2 

#SLTSTB,R5 

.TPARS 

20$ 

SERROR 

(SP)+,R5 


000167  OOOOOOG 


ERROR  CONDITIONS 
iOIS:   JMP     .CONER 


REMOVE  TEMPLATE  FROM  CHAIN 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  POINTER 

INITIALIZE  COUNTER 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


CONSISTENCY  ERROR 
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Table  of  contents 

6-  161  SUPSTA  -  UPDATE  STATION  DEFINITION 

7-  20^  SETADD  -  SET  UP  STATION  ADDRESS 

8-  229  SETCST  -  SET  THE  STATION  COST 

9-  250  SETAPR  -  SET  THE  STATION  ACTIVE  POLLING  RATIO 

10-  271    SETFLG  -  SET  STATION  FLAGS 

11-  320    SETHTM  -  SET  THE  HELLO  TIMER 


Ul 
M/ 
M; 
D! 

i: 

PI 
S 
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CREF       04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 
ISTATS 
MTRANS 

#5-107 

#4-68 

#5-107 

#5-120 
5-107 

#5-124 

#5-125 

#5-132 

#5-154 

PRINT 
STATES 

TRANS 

#4-59 
#4-68 
#5-140 
#4-68 

#5-131 

5-109 
#5-146 
#5-110 
#5-132 

#5-112 
#5-149 
#5-113 
#5-135 

#5-115 
#5-152 
ff5-116 
#5-138 

#5-118 
#5-156 
#5-119 
#5-141 

#5-122 
#5-159 
#5-120 
#5-147 

#5-127 

#5-123 
#5-150 

#5-130 

#5-124 
#5-153 

#5-134 

#5-125 
#5-154 

#5-137 

#5-128 
#5-157 
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26 
27 
28 
29 
30 
31 
32 
33 
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55 
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.TITLE  UPDUNT  -  CFE  UPDATE  UNIT  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  r^  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  UNIT  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SYMBOL 

VALUE 

REFERENCES 

CS.UNT 

r  ****** 

GX 

6-170 

C.CSR 

000012 

#4-110 

10-272 

C.CST 

OOOOU 

#4-111 

11-286 

C.CUO 

000006 

#4-108 

8-233 

C.CW1 

000010 

#4-109 

9-255 

C.DPR 

000016 

#4-112 

12-300 

C.LEN 

=  000026 

#4-116 

C.PCH 

000024 

#4-115 

13-514 

C.STS 

=      ****** 

GX 

6-170 

CUNT 

000004 

#4-107 

7-213 

SETCSR 

000212 

R 

#10-272 

SETCST 

000240 

R 

#11-286 

SETCWO 

000136 

R 

*8-??l 

SETCWI 

000164 

R 

#9-253 

SETOPR 

000266 

R 

#12-300 

SETPCH 

000314 

R 

#13-314 

SETUNT 

000110 

R 

#7-210 

UNTKTB 

000000 

RG 

#5-124 

6-183 

UNTSTS 

000000 

RG 

#5-124 

6-184 

UNSCST 

=  ****** 

GX 

11-286 

UNSDPR 

-  ****** 

GX 

12-300 

UNSPCH 

=  ****** 

GX 

13-314 

UNSSCS 

=  ****** 

GX 

10-272 

SALPHA 

=  000022 

#5-124 

SANY 

=  000020 

#5-124 

SBLANK 

=  000006 

#5-124 

SCLNUP 

3  ****** 

GX 

6-189 

SCNVO 

=  ****** 

GX 

8-235 

9-257 

SOIGIT 

=  000024 

#5-124 

SONUMB 

=  000014 

#5-124 

$EOS 

=  000012 

#5-124 

SERROR 

~      ****** 

GX 

»6-187 

SEXIT 

=  000000 

#5-124 

$FAIL 

=   177777 

#5-124 

SGPRM 

=   ****** 

5-124 

SLAMDA 

=  000000 

#5-124 

SMOVPT 

=    ****** 

GX 

7-211 

SMOVST 

=  ****** 

GX 

6-179 

SNUMBR 

=  000002 

#5-124 

SOBUF 

T.       ****** 

GX 

8-234 

♦8-236 

9-256 

♦9-258 

SPTNUM 

-  ****** 

GX 

10-272 

11-286 

12-300 

13-314 

SPTOPT 

r  ****** 

GX 

10-272 

11-286 

12-300 

13-314 

$RAD50 

=  000016 

#5-124 

SRONLY 

=      ****** 

5-124 

5-124 

5-124 

SSTRNG 

=  000004 

#5-124 

SSUBXP 

=  000010 

#5-124 

STMLST 

-  ****** 

GX 

6-166 

SUPUNT 

000000 

RG 

#6-165 

$$$FLG 

=   177777 

#5-124 

$$$KEY 

=   177777 

#5-124 

.COMMA 

-   ****** 

GX 

»6-181 

.CONER 

r  **♦♦*♦ 

GX 

6-194 

UPDUNT 
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•'FILE 

•MD««U 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UU 

UUUUUUUUUU 

UUUUUUUUUU 

LL 

H  11 


pppppppp 
PPPPPPPP 
PP     PP 
Pp     PP 
PP     PP 
PP     PP 
PPPPPPPP 
pppppppp 

PP 
PP 
PP 
PP 
PP 
PP 


DDDDDDDD 

DDDDDDDD 

00 

DO 

DD 

DD 

00 

00 


DD 

00 

ODDOODOD 

DDODODOD 


LL 

SSSSS5SS 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

S5SSSS 

LL 

SSSSSS 

LL 

SS 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

XX 
XX 
XX 
XX 


XX  XX 
XX  XX 

XX 

XX 
XX  XX 
XX   XX 


XX 
XX 
XX 
XX 


22 
22 


222222 
222222 


22 
22 
22 
22 


XX 
XX 
XX 
XX 


XX 
XX 
XX 
XX 


22 
22 
22 
22 
22 
22 
2222222222 
2222222222 


999999 

999999 

99     99 

99     99 

99     99 

99     99 

99999999 

99999999 


999999 
999999 
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UPDX3P  -  UPDATE 
MACRO  CALLS  AND 

57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110  000000 

111  000000 
112 
113 
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.S8TTL 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


MACRO  CALLS  AND  LOCAL  DATA 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 


MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERR 

.ENDM 

ERRORS 

.MACRO 

EPRINT   TEXT 

)  PRINT  TEXT  ON 

TRROR  LUN 

.IF  D. 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERl 

.ENDM 

EPRINT 

;  PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  8 

.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS,OCTL,OPT,?L 

.IF  N8 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  NB 

<OCTL> 

MOV 

SP,R1 

.IFF 

CLR 

Rl 

.ENDC  , 

IF  NB  <OCTL> 

CALL 

•ROU 

.IFT   , 
Li 

.ENDC  . 

IF  N8  <OPT> 

IF  NB  <OPT> 

.ENDM  , 

'ROU 

.ENDM  . 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNMB 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 
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161 

162 

165 

164 

165 

166  000U4 

167  000504 

168  000504 

169  000504 

170  000504 

171 

172 

173 

174  000504 

175  001504 

176  001310 

177  001312 

000000 

178  001314 

001526' 

179  001316 

000000 

180  001520 

001334' 

181  001522 

000000 

182  001524 

000000 

185  001526 

184  001554 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202  001346 

203  001360 

204  001364 

205  001566 

206  001370 

207 

208 
209 
210  001372 

000000  000000 

211  001576 

212  001400 

213  001402 

214  001404 

215  001406 

216  001526 

000000  000000 

217  001546 

000000 


.SBTTL 
.IFT 


Load  Control  Data 


Input  File  Descriptor  Slock  (FDB)  Definitions 


FDB: 


FCSBUF 
FCSIOS 
FILERS 
DSDS: 


FILDEV: 
FILDIR: 


FDBDFI 
FDATSA 
FDRCSA 
FDBKSA 
FDOPSA 


FD.RWM 

FCSBUF, FfSBSZ, 
FCSLUN,DSDS 


,FCSEFL,fCSIOS 


Allocate  an  FDB  block 
File  already  exists 
Read/write  block  I/O  access 
Set  buffer/size,  flag,  status 
Specify  LUN  and  filespec  area 


General  Data  Declarations 


.BLKB 
.BLKW 
.BLKW 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKB 
.BLKB 

.IF 
.IF 


FCSBSZ 

2 

1 

0 

FILDEV 

0 

FILDIR 

0 

0 

6 

10. 

DF  R$$MPL 
NDF  R$$PRO 


GINVEC:  GINS    GI .VEC ,EXEVEC,EXEVCL 


PC8ADR: 


.ENDC 
.ENDC 

.IFF 

.BLKW 

.IFTF 

.IF 


SETTMR:  MRKTS 
WAIT:   STSES 


LDBPTR 
LDBIAS 
LDBADR 


BLOCK: 
CURQST 
PDVIDX 
CTLNUM 
ODMTBL 
WORKSP 
EVT8LK 


.BLKW 
.BLKW 
.BLKW 

.ENDC 

.WORD 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.8LK8 
.WORD 
.BLKB 


NDF  R$$PRO 
DF  R$$MPL 


DF      N$$UMR 

TMREFL,LDBWTS,2 
TMREFL 


0,0 

1 

1 

1 

1 

80. 

0,0,0,2,0,0,0,0 

160. 


Output  file  I/O  buffer 
FCS  I/O  status  doubleword 
FCS  error  storage  for  SEDMSG 
Length  of  source  device  name 
Source  device  name  address 
Length  of  source  directory 
Source  directory  address 
Length  of  source  filename 
Address  of  source  filename 
Source  device 
Source  directory 


Microcode  PCB  address 


DPS  for  LDB  wait  timer 
DPB  to  stop  task  for  TMREFL 
Address  of  CCB/LDB 
Mapping  bias  of  LDB 
Starting  address  of  LDB 


Block  number  for  load  control 
Address  of  current  load  CCB 
PDV  index  of  device  driver 
Device  controller  number 
Driver's  line  table  address 
Work  space 

Event  descriptor  block 
Event  data  area 
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772 

773 

77A 

775 

776 

777 

778 

779 

780 

781 

782 

783 

78A 

785 

786 

787 

788 

789 

790 

791 

792 

793  001506 

79^  001512 

795  001552 

796  001554 

797  001564 
798 

799  001566 

800  001570 

801  001574 

802  001600 

803  001604 

804  001610 

805  001614 

806  001620 
807 

808  001622 

809  001632 
810 

811 


.SBTTL  MLOAD   -  Load  Control  for  RSX-11M  Systems 
••*  MLOAD  •*» 


Function: 

Call  Format: 
Inputs: 

Outputs: 


To  control  microcode  load  sequences  on  RSX-11M  systems. 
This  routine  performs  file  I/O  and  maintains  the  load  seq- 
uence counter(s)  and  status. 


CALL 


MLOAD 


Input  file  is  assumed  to  have  been  opened  successfully. 

R4  =  address  of  "load  request"  CCB 

Input  file  is  closed,  load  sequence  ended 

R3  =  load  halt  status 

R4  =  address  of  "halt  load  CCB 


Registers:    R2,  R3,  and  R5  are  destroyed 


005267  001374- 

103423 

103416 

010403 

062703  000016 

012713  000304' 

062723  020000 

016723  001306' 

012713  100000 

103332 


MLOAD: 


INC 

READS 

BCS 

WAITS 

BCS 

MOV 

ADD 

MOV 

ADD 

MOV 

MOV 

CALL 

BCC 


BLOCK+2 

#FD8,,,*BL0CK,, 

10S 

#FD8 

lOS 

R4,R3 

#C.BUF1+2,R3 

#FCSBUF,(R3) 

*20000,(R3)+ 

FCSIOS+2,(R3)+ 

#CF.L8,(R3) 

DSPDRV 

MLOAD 


,FCSERR 


10S: 


CLOSES  #FD8 
RETURN 

.IFF 


Update  virtual  block  number 

Read  the  next  block  in  file 

Branch  if  read  could  not  be  started 

Wait  for  read  to  complete 

Branch  if  disk  error 

Copy  CCB  address 

Point  at  first  CCB  buffer  address 
Copy  buffer's  APR5-biased  address 
Force  address  to  be  APR6-biased 
Get  buffer  byte  count  from  I/O  status 
One  buffer/CCB  on  RSX-11M  systems 
Call  driver  to  load  the  microcode 
Branch  if  load  sequence  not  finished 

Close  the  microcode  file 
Exit 

If  system  is  RSX-llS  ... 
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MLD       CREATED  BY  MACRO  ON  P8-AUG-85  AT  11:27 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


FC.MLD 
FDB 

FD.RWM 

FILOEV 

FILDIR 

FILERR 

FIOERR 

FO.RD 

FRtBCC 

FRSCCF 

FRSCDF 

FRSDAO 

FRSEXC 

FRSFRM 

FRSFTL 

FRSQPN 

FRSRFD 

FRSSBU 

FRSSHO 

FRSUBU 

FR$UPT 

FS.HLT 

FS.RLB 

FS.WLB 

F.BKDS 

F.BKEF 

F.BKST 

F.BKVB 

F.DSPT 

F.ERR 

F.FACC 

F.LUN 

F.RACC 

IE. EOF 

lO.WLB 

ISAR5 

I$$AS 

KISAR5 

LDBADR 

LDBGT 

LDBIAS 

LDBPTR 

LDBRT 

LDBWTS 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 


=  000026 
000K4  R 


001526 
001334 
001310 
000073 
-  ****** 


GX 
R 
R 
R 
R 

GX 


000007 

000001 

000002 

000011 

000000 

000010 

000005 

OOOOOA 

000006 

000012 

000003 

000013 

000014 

000000 

002000 

001000 

000020 

000050 

000024 

000064 

000044 

000052 

000043 

000042 

000016 

•*««*«  GX 

******  GX 

000002  RG 

:  ****** 

:  **««*♦    GX 

001370  R 

000020  RG 

001366  R 

001364  R 

000022  RG 
:  000001 
:  100000 
:  000400 
:  000007 
^  002000 
:  001000 
:  000100 


REFERENCES 

9-335 
#8-166 
15-796 
8-168 
8-178 
8-180 
#8-176 
#7-152 
14-765 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
9-463 
9-364 
9-335 
8-169 
8-169 
8-169 
♦15-794 
8-170 
13-711 
04-765 
8-170 
8-168 
13-711 
11-617 
#8-229 
6-84 
8-229 
#8-206 
#8-239 
#8-205 
#8-204 

12-659 
#8-240 
#7-114 
#6-85 
#6-85 
#6-85 
#6-85 
#6-85 
#6-85 


9-364 

12-651 

15-808 

#8-183 
#8-184 
13-716 
13-720 


12-678 

9-447 
8-169 


♦15-794 
13-717 


10-513 


♦9-334 

9-330 

♦9-333 

♦9-314 

9-372 
8-202 
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9-447 

12-651 

15-808 

♦9-287 
9-301 


9-463 

13-710 


9-294 
9-305 


12-678 
14-765 


9-298 


14-765 


15-794 


15-794 


15-796 


10-508 


10-528 

10-527 
♦9-332 

12-661 


10-532 
9-338 


9-371 


♦9-373 


9-394 


10-530 


10-555 


MLD 
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fquated  Symbols  and  Literals 

150  .in 

152  FIOfRR:    .ASCIZ      /File   access  error   =   XP,    file   =   JiVAXVAXVA/ 

15^  .Iff 

156  000073     120     U1  162  PARERR:  .ASCi2  /Partition  'i2R   not  found/ 

\i  .un 

159  .EVEN 
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58 
59 


PERMANENT  VIRTU  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  DATA 


Is.l 


55  Page  4 


UP 
LO 


tl 


^7? 

72 

73 

7A 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000000 

112  000000 
113 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
.SBTTL  MACRO  DEFINITIONS 


LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPfiINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 


.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPfiINT 

JMERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSJOTN  ROU 

.MACRO 

'ROU    OFS,OCTL,OPT,?L 

.IF  N8 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  NS 

<ocrL> 

MOV 

SP,R1 

.IFF 

CLR 

R1 

.ENDC  . 

IF  NIB  <0CTL> 

CALL 

'ROU 

.IFT  . 

IF  NB  <OPT> 

.ENDC  . 

IF  NB  <OPT> 

.ENDM  , 

•ROU 

.ENDM  , 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNMB 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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130 

131 

132 

133 

13^ 

135  000000 

136 

137  000000 

138  000002 

139  OOOOOA 
UO  000010 
K1 

142  000000 

143 

U4  000000 

145 

146 

147 

148 


.S8TTL  LOCAL  DATA 


000000 


000022 


Oil 
000010 


122 


104 


;■  DEFINE 

THE  REMOTE  DTE  BLOCK 

.ASECT 

.=0 

.BLKW 

1 

C.LNK 

.8LKW 

1 

C.STS 

C . NAM : 

.BLKW 

2. 

RAD50  DTE 

NAME 

C.ADR: 

.BLKW 

5. 

RAD50  DTE 

ADDRESS  (1. 

-15. 

DECIMAL 

C.LEN=. 

.PSECT 
.NLIST 

BEX 

LENGTH  OF 

THE  BLOCK 

RDTDF: 

.ASCII 
RDTLN=. 
.LIST 
.EVEN 

<11>/RDT$DF/<11> 
-RDTDF 
SEX 

DIGITS) 
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228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
258 
259 
240 

241  000404 

242  000404 

243  000410 

244  000414 

245  000420 

246  000424 

247  000426 

248  000430 

249  000432 

250  000436 

251  000442 
252 


.SBTTL  SETARE  -  WRITE  OUT  AREA 
***  -  SETADD  -  WRITE  OUT  AREA 
INPUT: 


$OBUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 
TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


THE  REMOTE  NODE  AREA  IS  WRITTEN  INTO  THE  OUTPUT  BUFFER 


016700  OOOOOOG 

016702  177564 

016201  000010 

042701  001777 

000301 

006201 

006201 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


SETARE: 


MOV 

$OBUF,R0 

MOV 

TEMP,R2 

MOV 

C.ADD(R2) 

BIC 

#1777, R1 

SWAB 

R1 

ASR 

R1 

ASR 

R1 

CALL 

SCNVD 

MOV 

RO.SOBUF 

.R1 


RETURN 


GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

GET  ADDRESS  OF  TEMPLATE 

GET  NODE  ADDRESS 

ONLY  WANT  AREA 

SHIFT  IT  INTO  LOW  BYTE 

NOT  DONE  YET 

CONVERT  NODE  AREA  TO  DECIMAL 
UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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160 
161 
162 
163 
16A 
165 
166 
167 
168 
169 
170 
171 

172  000002 

173  000002 
17^  000006 

175  000010 

176  000012 

177  00001 A 

178  000022 
179 

180 
181 

182  000024 

183  000026 

184  000032 

185  000040 

186  000042 

187  000050 

188  000052 

189  000060 

190  000064 

191  000066 

192  000070 

193  000074 

194  000100 

195  000104 

196  000106 

197  000112 

198  000114 
199 

200 
201 
202  000116 


.SBTTL  SUPROU  -  SETUP  ROUTING  DEFINITION 
**•  -  SUPROU  -  SETUP  ROUTING  DEFINITION 
INPUT: 


R3-R5 


TPAfiS  REGISTERS 


OUTPUT: 


C-BIT   =    SUCCESS/FAILURE 


012700 
010001 
011000 
001441 
122760 
001371 


OOOOOOG 


OOOOOOG  OOOOOOG 


011011 
010067 
032760 
001004 
012767 
000421 
062767 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


177746 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOC 

000004  177720 
OOOOOOG 


000000' 
000000' 
OOOOOOG 

OOOOOOG 


000167  OOOOOOG 


SUPROU: 

MOV 

#$TMLST,RO 

10$: 

MOV 

RO.RI 

MOV 

(RO),RO 

BED 

101$ 

CMPB 

#CS.ROU,C.STS 

BNE 

10$ 

;  FOUND 

A  TEMPLATE 

MOV 

(R0),(R1) 

MOV 

RO,TEMP 

BIT 

*CS.MOD,C.STS 

BNE 

15$ 

MOV 

#$BUFI,SOFDBt 

BR 

30$ 

15S: 

ADD 

#C. ADD, TEMP 

CALL 

$MOVST 

MOV 

R5,-(SP) 

CLR 

R1 

MOV 

#R0UKTB,R2 

MOV 

#R0USTB,R5 

CALL 

.TPARS 

BCC 

20$ 

INC 

$ERR0R 

20$: 

MOV 

(SP)+,R5 

30$: 

RETURN 

':    ERROR 

CONDITIONS 

POINT  AT  START  OF  TEMPLATES 
SAVE  ADDRESS  OF  CURRENT  TEMPLATE 
GET  ADDRESS  OF  NEXT  TEMPLATE 
IF  EQ,  END  OF  TEMPLATES 
;  IS  THIS  A  ROUTING  DEFINITION 
IF  NE,  NO  ..  KEEP  LOOKING 


;  REMOVE  TEMPLATE  FROM  CHAIN 

;  SAVE  TEMPLATE  ADDRESS 

(ROi  ;  WAS  THIS  TEMPLATE  MODIFIED  ? 

;  IF  NE,  YES  -  UPDATE 
F.NRBD+2  ;  ELSE,  OUTPUT  THE  INPUT  BUFFER 

;  AND  LEAVE 

;  POINT  AT  NODE  ADDRESS  IN  TEMPLATE 

;  MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

;  SAVE  R5 

;  IGNORE  BLANKS 

;  KEYWORD  TABLE 

;  STATE  TABLE 

;  PARSE  THE  REST  OF  THE  LINE 

;  NORMAL  RETURN  IF  NO  ERROR 

;  INDICATE  SYNTAX  ERROR 

;  RESTORE  R5 


;  CONSISTENCY  ERROR 


J  4 


UPDROU 

c;CTWIIM 
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PUTOCT  -  OUTPUT  AN  OCTAL  NUMBER 
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222 
223 
22A 
225 
226 
227 
228 
229 
250 
231 
232 

233  000442 

234  000A44 

235  000450 

236  000452 

237  000456 

238  000460 

239  000462 

240  000466 

241  000470 
242 

243  000474 

244  000500 

245  000504 

246  000505 
247 


.SBTTL  PUTOCT  -  OUTPUT  AN  OCTAL  NUMBER 
»♦  PUTOCT  -  OUTPUT  AN  OCTAL  NUMBER 
CALLING  SEQUENCE: 


016700  OOOOOOG 

012501 

066701  OOOOOOG 

012502 

012503 

032577  OOOOOOG 

001402 

004767  OOOOOOG 

112720  000054 
010067  OOOOOOG 

000205 


PUTOCT: 


JSR 

R5, PUTOCT 

.WORD 

OFFSET,  CBTA 

SAVRG 

<R3> 

MOV 

$08UF,R0 

MOV 

(R5)+,R1 

ADD 

.TEMP,R1 

MOV 

(R5)+,R2 

MOV 

(R5)+,R3 

BIT 

(R5)+,a.FLAGS 

BEQ 

10$ 

CALL 


$C6TA3 


10$: 


MOVB  #<',>,(RO)t 

MOV  RO,$OBUF 

RESRG  <R3> 

RTS  R5 


NUMBER  OF  BVTES,  OPTION  BIT 


POINT  TO  OUTPUT  BUFFER 

PICK  UP  OFFSET  IN  TEMPLATE 

POINT  TO  VALUE  TO  CONVERT 

PICK  UP  OPTIONS 

COUNT 

OPTION  SELECTED  ? 

IF  EQ,  NOPE 

CONVERT  BINARY  TO  ASCII 

STUFF  A  COMMA 

RESTORE  BUFFER  POINTER 

FINIS 
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261 
262 
263 

265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 

276  00020A 

277  00020A 

278  000210 

279  0002U 

280  000216 

281  000222 

282  000226 

283  000232 

284  000234 

285  000240 


.SBTTL  SETNAM  -  CHECK  DDM  PROCESS  NAME 

'«*«  -  SETNAM  -  CHECK  DOM  PROCESS  NAME 

INPUT: 

.PSTPT  =  START  ADDRESS  OF  THE  ASCII  PROCESS  NAME 
.PSTCN  =  NUMBER  OF  CHARS  IN  THE  PROCESS  NAME 
(.TEMP)  =  TEMPLATE  ADDRESS 
(.TEMP)+C.NAM  =  DDM  PROCESS  ASSOCIATED  WITH  THIS  SLT 


OUTPUT; 


C-BIT  =  SUCCESS/FAILURE 


004767  OOOOOOG 

016700  OOOOOOG 

010701 

004767  OOOOOOG 

016700  OOOOOOG 

020160  000004 

001402 

062716  000002 

000207 


SETNAM: 


10$: 


CALL 

MOV 

MOV 

CALL 

MOV 

CMP 

BEO 

ADD 

RETURN 


SMOVPT 

. PSTPT, RO 

PCRI 

$CAT5 

.TEMP,RO 

R1,C.NAM(R0) 

lOi 

#2,(SP) 


MOVE  THE  PROCESS  NAME  INTO  OUTPUT  BUFFER 

GET  ADDRESS  OF  ASCII  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PROCESS  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

IS  THIS  THE  RIGHT  TEMPLATE  ? 

IF  EQ,  YES  ..  OKAY 

ELSE,  REJECT  THE  TRANSITION 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 

:2 

13 

1A 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


.TITLE   UPDSTA  -  CfE  UPDATE  STATION  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  STATION  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


•  *FILE»MD««UPDSVC 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78 
79 
80 
81 
82 
83 
84 
85 
86 

87  000000 

88  000000 
89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103  000000 

104  000000 

105  000000 

106  000002 

107  000004 

108  000006 

109  000010 

110  000012 

111  000014 


•  **** 

;  LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


Page  4 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  BUFFER 


.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS,OCTL,OPT,?L 

.IF  N8 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  NB 

<OCTL> 

MOV 

SP,R1 

.IFF 

CLR 

R1 

.ENDC  , 

IF  NB  <OCTL> 

CALL 

'ROU 

.IFT  . 

IF  NB  <OPT> 

.ENDC  . 

IF  NB  <OPT> 

.ENDM  , 

'ROU 

.ENDM 

$$$PTN 

$$$PTN 

SPTNUM 

$$$PTN 

SPTNMB 

»*** 

MACRO 

CALLS 

**** 

.MCALL 

ISTATS, STATES, TRANS 

**** 

LOCAL 

DATA 

DEFINE  UNT  TEMPLATE 


.ASECT 

.=0 

.BLKW   1 

.BLKW   1 

CUNT 

.BLKW   1 

C.CWO 

.BLKW   1 

C.CWI 

.BLKW   1 

C.CSR 

.BLKW   1 

C.C5I 

.BLKW   1 

C.LNK 

C.STS 

UNIT  NUMBER 

CHARACTERISTICS  WORD  0 

CHARACTERISTICS  WORD  1 

SECONDARY  CSR  ADDRESS 

LINE  COST 
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SYMBOL    CROSS   REFERENCE  CREF        04.00 

SYMBOL      VALUE  REFERENCES 


7-212  8-252  9-254 


.FLAGS 

3   *♦***• 

r,x 

♦6-178 

.PNUMB 

~       ****  * t 

GX 

7-213 

.TEMP 

-   ** t  *** 

GX 

.6-176 

.TPARS 

~       ****** 

GX 

6-185 
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UPDX?9  -  UPDATE  X.29  5  CHARACTE  MACRO  V05.03b  Saturday  29-Jun-85  05:59 
Table  of  contents 

4-  57    MACRO  CALLS  AND  LOCAL  DATA 

5-  122    LOCAL  DATA 

t-  130    $UPX29  -  UPDATE  )(.29  CHARACTERISTICS 
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UPDX5P  -  UPDATE  X.25  LEVEL  3  CH  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  CALLS  AND  LOCAL  DATA 

Wi 
115 
116 
117 
118 
119 
120 
121 
122 
125 

124  000000 

125  OOOCOO 

126  000000 

127  000002 

128  000004 

129  000006 

130  000010 

131  000011 

132  000012 

133  000013 

134  000014 

135  000015 

136  000016 

137  000017 

138  000020 

139  000021 

140  000000 


W^ 


9  Page  4-1 


141 
142 
1'.3 
144 
145 
146 


000000 


Oil 
000010 


130 


063 


.MACRO     SPTRSO     OFS.WC 

MOV           0FS,R2 

MOV           WCRI 

CALL         $PTR50 

.ENDM 

;    DEFINE   THE   X.2! 

LEVEL   3  PARAMET 

• 

.ASECT 

.=0 

.BLKW 

.BLKU 

r.DFf 

:      .8LKW 

r.MXf 

:      .BLKW 

r.Dw 

.8LK8 

r.MW 

.8LK6 

r.cT 

.BLKB 

r.KT 

.BLKB 

r.RT 

.BLKB 

r.sT 

.BLKB 

C.KM 

.BLKB 

C.RM 

.8LKB 

C.SM 

.BLKB 

C.LEN=. 

.PSECT 

.NLIST 

3EX 

x3Pn 

:      .ASCII 

cl1>/X3P$DF/<11> 

X3PLN=.- 

<3PDF 

.LIST 

3EX 

.EVEN 

(21.-1029.) 
(21.-1029.) 


C.LNK 

C.STS 

DEFAULT  BLOCK  SIZE 

MAXIMUM  BLOCK  SIZE 

DEFAULT  WINDOW  SIZE 

MAXIMUM  WINDOW  SIZE 

CALL  TIMER  VALUE 

CLEAR  TIMER  VALUE 

RESET  TIMER  VALUE 

RESTART  TIMER  VALUE 

MAXIMUM  CLEAR  VALUE 

MAXIMUM  RESETS  VALUE   ...  _ 

MAXIMUM  RESTARTS  VALUE(0.-255. ) 

LENGTH  OF  THE  BLOCK 


127.) 
127.) 
(0.-255.) 
(0.-255.) 
(0.-255.) 
(0.-255.) 
(0.-255.) 
(0.-255.) 


UPDX3P  -  UPDATE 
$UPX3P  -  UPDATE 
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002006 


218 
219 
220 
221 
222 
223 
22A 
225 
226 

227  000000 

228  000000 

229  000002 

230  00000^ 
231 

232 
233 
23A  000006 

235  000010 

236  000012 

237  OOOOIA 

238  000016 

239  000020 
2A0  000022 
2A1  00002A 
2A2  000026 
2A3  000030 
2AA  000032 
2A5  00003A 
246 

247 


000000 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000017 


.IFT 

fSRSZS 

0,,MLDCOD 

.IFTF 

; 

Executive  Vector  Table 

EXEVEC 

.WORD 

0 

ISAR5 

:  .WORD 

KISAR5 

BLXIO 

:  .WORD 

$8LXI0 

.IF 

DF      R$$MPL 

NCPU: 

.WORD 
.ENDC 

$NCPU 

NTUIC 

:  .WORD 

SNTUIC 

PARHD 

:  .WORD 

SPARHD 

QRMVF 

:  .WORD 

SORMVF 

TKTC8 

:  .WORD 

$T<rC8 

CC8RT 

;  .WORD 

$CC8RT 

LDBGT 

:  .WORD 

$LDB6T 

LD8RT 

:  .WORD 

$LD8RT 

PDSPL 

:  .WORD 

SPDSPL 

PDVTA 

:  .WORD 

SPDVTA 

RDBSZ 

:  .WORD 

$RD8SZ 

SLTMA 

:  .WORD 

SSLTMA 

STDDM 

:  .WORD 

SSTDDM 

EXEVCL  =  .-EXEVEC/2 

Define  FCS  work  area 


If  system  is  RSX-IIM* 
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MLD 
MLOAD 
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813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

823 

82^. 

825 

826 

827 

828 

829 

830 

831 

832 

833 

83A 

835 

836 

837 

838 

839 

8^0 

8A1 

8'.  2 

843 

8AA 

8'!.5 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 


.SBTTL   LOCPAR 


Function: 

Call  format: 
Inputs: 

Outputs: 


LOCPAR:  MOV 
ADD 
M0V8 
M0V8 
MOV 
CLR 
CLR 

MOV 

MOV 

CALL 

MOV 

BCS 

MOV 

CALL 

MOV 


10$: 


MOV 
CLR 

.IF 

CALL 

.IFF 

CALL 

.IFTF 

BCC 


Locate  Microcode  Partition 
**♦  LOCPAR  ♦** 


To  locate  a  (sub)partltion  that  contains  the  microcode 
specified  in  the  current  load  request.  If  the  partition 
is  found,  it's  PCS  address  is  sai/ed  for  later  use. 


CALL 


lOCPAR 


R4  =  address  of  microcode  partition  ASCII  name 
R5  =  length  of  ASCII  string 

C-bit  clear  =  partition  found 
C-bit  set   =  partition  not  found 

If  the  partition  has  been  located,  then: 

BLOCK   =  mapping  bias  of  partition 

BLOCK+2  =  length  of  partition  in  32-word  blocks 


Registers:    RO  through  R3  destroyed 


R4,R3 

R5,R3 

(R3),-(SP) 

#11, (R3) 

R3,-(SP) 

-(SP) 

-(SP) 

#1,R1 
R4,R0 
$CAT5 
R1,(SP) 

loi 

#1,R1 
$CAT5 
R1,2(SP) 

SP,R3 
PCBADR 


DF 
SSRNAM 

SRNAM 

20$ 


P$$LAS 


Copy  address  of  string 
Point  past  end  of  string 
Saue  whatever  is  there 
Put  a  known  delimiter  in  its  place 
Save  the  delimiter  address 
Allocate  two  words  on  the  stack 
to  store  RAD50  partition  name 

Allow  periods  to  be  in  partition  name 
Copy  address  of  ASCII  string 
Convert  three  characters  to  RAD50 
Move  RAD50  equivalent  to  save  area 
Branch  if  less  than  three  converted 
Allow  periods  to  be  in  partition  name 
Convert  three  more  characters 
Move  RAD50  equivalent  to  save  area 

Copy  address  of  RAD50  partition  name 
Clear  local  PCS  address 

If  system  has  PLAS  support  ... 

Use  executive  routine  to  find  PCB 

I f  no  PLAS  support  . . . 

Use  internal  routine  to  find  PCB 

Regardless  of  PLAS  support  ... 

Branch  if  partition  found 
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CREf   04.00 


SYMBOL   VALUE 


LF.MFL 
LF.MTP 
LF.PAC 
LF.RDY 
,REA 
,SER 
_,  .TIM 
LF.UNL 
LF.X2P 
LN.CLO 
LN.DUM 
LN.LOA 
LN.LOO 
LN.OAU 
IN. OFF 
LN.ON 
LN.OOP 
LN.OPE 
LN.REF 
LN.SER 
LN.STA 
LN.SUB 
LN.TRl 
LOCFIL 
LOGEVT 
L.COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
MLD 

MLDERR 
MLOAD 
MOSSAC 
MOSCPR 
MOSSSV 
MO$25A 
MO$25P 
MO$25S 
M0$29S 
MXFNLN 


REFERENCES 


004000 

#6-85 

000020 

#6-85 

000200 

#6-85 

040000 

#6-85 

010000 

#6-85 

000040 

#6-85 

000010 

#6-85 

020000 

#6-85 

000000 

#6-85 

000000 

#6-85 

000005 

#6-85 

000004 

#6-85 

000003 

#6-85 

000003 

#6-85 

000001 

#6-85 

000000 

#6-85 

000004 

#6-85 

000001 

#6-85 

000002 

#6-85 

000002 

#6-85 

000017 

#6-85 

000360 

#6-85 

000006 

#6-85 

001372  R 

9-434 

#14-752 

001022  R 

10-574 

#11-599 

000015 

#6-85 

000012 

#6-85 

9-405 

177776 

#6-85 

000002 

#6-85 

9-403 

000004 

#6-85 

9-404 

000003 

#6-85 

000006 

#6-85 

000010 

#6-85 

000000 

#6-85 

000016 

#6-85 

000022 

#6-85 

000022 

#6-85 

000020 

#6-85 

000014 

#6-85 

000021 

#6-85 

000013 

#6-85 

000036  R 

#9-269 

18-989 

000000  R 

#7-147 

11-607 

001506  R 

9-451 

#15-793 

000016 

#6-83 

000012 

#6-S3 

000014 

#6-83 

000006 

#6-83 

000002 

#6-83 

000004 

#6-83 

000010 

#6-83 

000006 

#7-108 

14-752 

13-724 


15-806 


14-754 


MLD 
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MLD    -  Microcode  Loader 
Load  Control  Data 


161 

162 

16? 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

175 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196  000124 

197 

198 

199 

200 

201 

202  000126 

203  OOOUO 

204  000144 

205  000146 

206  000150 
207 

208 
209 

210  000152 

211  000156 

212  000160 

213  000162 

214  000164 

215  000166 

216  000306 

217  000326 
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Load  Control  Data 


.S8TTL 
.IfT 

Input  File  Descriptor  Block  (FD8)  Definitions 


FDB; 


FD8DF$ 
FDATSA 
FDRCSA 
FDBKSA 
FDOPSA 


FD.RUM 

FCSBUF,FrSBSZ,,FCSEFl ,FCS1DS 
FCSLUN,D5DS 


Allocate  an  FDB  block 
File  already  exists 
Read/write  block  I/O  access 
Set  buffer/size,  flag,  status 
Specify  LUN  and  filespec  area 


General  Data  Declarations 


FCS8UF 
FCSIOS 
FILERR 
DSDS: 


.BLKB 
.BLKW 
.BLKW 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
FILDEV:  .BLK8 
FILDIR:  .BLKB 


FCSBSZ 

2 

1 

0 

FILDEV 

0 

FiLDIR 

0 

0 

6 

10. 


000000  000000 


000000  000000  000000 


Output  file  I/O  buffer 
FCS  I/O  status  doubleword 
FCS  error  storage  for  SEDMSG 
Length  of  source  deuice  name 
Source  device  name  address 
Length  of  source  directory 
Source  directory  address 
Length  of  source  filename 
Address  of  source  filename 
Source  device 
Source  directory 


.IF 
.IF 

DF  R$$MPL 
NDF  R$$PRO 

GINVEC. 

GINS 

GI.VECEXEVECEXEVCL 

.ENDC 
.ENDC 

;  NDF  R$$PRO 
;  DF  R$$MPL 

.IFF 

PC6ADR 

.BLKW 
.IFTF 

1 

.IF 

DF      NSSUMR 

SETTMR 

WAIT: 

LDBPTR 

LDBIAS 

LDBADR 

MRKTS 
STSES 
.BLKW 
.BLKW 
.BLKW 

.ENDC 

TMREFL,LDBWTS,2        ; 

TMREFL 

1 

1 

1 

BLOCK: 
CURQST 
PDVIDX 

CTLNUM 
DDMTBL 
WORKSP 
EVTBLK 

.WORD 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.8LKB 
.WORD 
.BLKB 

0,0 

1 
1 
1 

1 

80. 

0,0,0,2,0,0,0,0 

160. 

Microcode  PCB  address 


DPS  for  LDB  wait  timer 
DPB  to  stop  task  for  TMREFL 
Address  of  CCB/LDB 
Mapping  bias  of  LDB 
Starting  address  of  LDB 


Block  number  for  Load  control 
Address  of  current  load  CCB 
POV  index  of  device  driver 
Device  controller  number 
Driver's  line  table  address 
Work  space 

Event  descriptor  block 
Event  data  area 


MLD     -  Microcode  Loader 
Load  Control  Data 
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UPRPVC  -  UPDATE  PERMANENT  VIRTU  MACRO  V05.03b 

Saturday 

29-Jun-85  05:55  Page  1- 

MACRO  DEFINITIONS 

114                            ;  PUT 

RAD50  TEMPLATE  FIELD  TO  BUFFER 

115 
116 

.MACRO 

$PTR50  OFS,WC,OPT,?L 

117 

.IF  NB 

<OPT> 

118 

MOV 

0PT,R2 

119 

CALL 

SPTOPT 

120 

BCS 

L 

121 

.IFTF 

122 

MOV 

0FS,R2 

125 

MOV 

WC.RI 

124 

CALL 

$PTR50 

125 

.IFT 

126                       L: 

127 

.ENDC 

128 

.ENDM 

129 

UF 
$L 
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SUPRDT  -  UPDATE  DESTINATION  DESCRIPTOR 

.SBTTL  SUPRDT  -  UPDATE  DESTINATION  DESCRIPTOR 

**♦  -  SUPRDT  -  UPDATE  DESTINATION  DESCRIPTOR 

INPUT: 

R5-R5       -  TPARS   REGISTERS 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


150 

151 

152 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

162     '0 

! 

163  ouOUlO 

012767 

OOOOOOG  ooooooc 

16^  000016 

010567 

OOOOOOG 

165  000022 

005725 

166  00002A 

010567 

OOOOOOG 

167  000030 

012767 

177777  OOOOOOG 

168  000036 

012700 

OOOOOOG 

169  0000A2 

012701 

000000' 

170  0O00A6 

012702 

000010 

171  000052 

00^1767 

OOOOOOG 

172  000056 

010067 

OOOOOOG 

173  000062 

174  000076 

175  000112 

016701 

OOOOOOG 

•76  000116 

162701 

OOOOOOG 

■77   000122 

010167 

OOOOOOC 

178  000126 

004767 

OOOOOOG 

179  000132 

012767 

OOOOOOG  OOOOOOC 

180  OOOUO 

000207 

181 

182 

183 

000001 

SUPRDT:: 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

SPTR50 

SPTR50 

MOV 

sue 

MOV 
CALL 
MOV 
RETURN 


.END 


#.eUFF,$0FDBtF.NRBD+2  ;  SET  NEU  OUTPUT  BUFFER 

R5^.TEMP       ;  SAVE  TEMPLATE  ADDRESS 

(r5)+  ;  POINT  TO  C.STS 

R5,. FLAGS      ;  SAVE  ADDRESS  OF  FLAGS  WORD 

#-1,. COMMA      ;  INITIALIZE  FOR  OPTIONS 

#.8UFF,R0       ;  POINT  AT  START  OF  OUTPUT  BUFFER 

#RDTDF,R1       ;  POINT  AT  START  OF  RDT  DEFINITION 

#RDTLN,R2       ;  GET  LENGTH  01  RDT  DEFINITION 

SMVASC         ;  MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

R0,$OBUF        ;  SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

#C.NAM,#2       ;  SET  NAME 

#C.ADR,#5      ;  SET  ADDRESS 

S08UF,R1  ;  CALCULATE   LENGTH  OF   BUFFER 

#.BUFF,R1 

RI.SOFDB+F.NRBD  ;  SET  LENGTH  OF  BUFFER 

SWDATA         ;  WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

#SBUFI,S0FDB+F.NR6D+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 
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25^ 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 

267  000AA4 

268  0004A4 

269  000A5O 

270  00OA54 

271  000A60 

272  000A64 

273  000A70 

274  000474 
275 


.S8TTL  SETADD  -  WRITE  OUT  REMOTE  NODE  ADDRESS 
*♦*  -  SETADD  -  WRITE  OUT  REMOTE  NODE  ADDRESS 
INPUT: 


$08UF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 
TEMP  =  TEMPLATE  ADDRESS 


016700  OOOOOOG 

016702  177324 

016201  000010 

042701  176000 

004767  OOOOOOG 

010067  OOOOOOG 
000207 


OUTPUT 


SETADD: 


THE  REMOTE  NODE  ADDRESS  IS  WRITTEN  INTO  THE  OUTPUT  SUfFER 


GET  CURRENT  POSITION  IN  OUTPUl  BUFFER 

GET  ADDRESS  OF  TEMPLATE 

GET  NODE  ADDRESS 

CLEAR  AREA 

CONVERT  NODE  ADDRESS  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


MOV 

SOBUF.RO 

MOV 

TEMP,R2 

MOV 

C.ADD(R2),R1 

BIC 

#'C1777,R1 

CALL 

$CNVD 

MOV 

RO,$OBUF 

RETURN 
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204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 

219  000122 

220  000122 

221  000126 

222  000132 

223  00013A 

224  OOOKO 

225  OOOUA 

226  000150 
227 

228 
229 


.SBTTL   SETNUM  -  SET  THE  NEXT  NUMBER 

***  -  SETNUM  -  SET  THE  NEXT  NUMBER 

INPUT: 

SOBUF  ^  CURRENT  POSITION  IN  OUTPUT  LINE 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

C-8IT  =  SUCCESS/FAILURE 

SOBUF  =  NEXT  LOCATION  IN  OUTPUT  BUFFER 

TEMP  =  ADDRESS  OF  NEXT  LOCATION  IN  THE  TEMPLATE 


016700  OOOOOOG 

016702  1776A6 

012201 

010267  177640 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


000001 


SETNUM: 


MOV 

SOBUF, RO 

MOV 

TEMP,R2 

MOV 

(R2)+,R1 

MOV 

R2,TEMP 

CALL 

SCNVD 

MOV 

RO, SOBUF 

RETURN 

POINT  AT  CURRENT  POSITION  IN  LINE 

POINT  AT  TEMPLATE 

GET  THE  NUMBER 

SAVE  NEXT  LOCATION  IN  TEMPLATE 

CONVERT  THE  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  LINE 


.END 
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249 
25C 
251 
252 
253 
25A 
255 
256 
257 
258 
259 
260 
261 
262 

263  000510 

264  0005U 

265  000516 

266  000520 

267  000524 

268  000526 

269  000530 

270  000532 

271  000534 
272 

273  000536 

274  000542 

275  000544 

276  000546 

277  000552 

278  000556 
279 

280 


.SBTTL  PUTFLG  -  OUTPUT  FLAGS 


*•  PUTFLG 

-  OUTPUT  FLAGS 

INPUT: 

CALL  VIA: 

JSR  R5 
.WORD 

PUTFLG 
TEXTADDR.1,FLAG.1 

.WORD 
.WORD 

TEXTADDR  N.FLAG  N 
0 

OUTPUT: 


FLAGS  OUTPUT,  RO  UPDATED. 


016700  OOOOOOG 

012501 

001407 

032577  OOOOOOG 

001773 

112120 

001376 

005300 

000767 


124027 
001401 
005200 
112720 
010067 
000205 

000001 


000041 


000054 
OOOOOOG 


PUTFLG 

MOV 

$OBUF,RO 

GET  BUFFER  POINTER 

10$: 

MOV 

(R5)+,R1 

GET  TEXT  ADDRESS 

BEQ 

30$ 

IF  EQ,  DONE 

BIT 

(R5)+,a.FLAGS 

FLAG  PRESENT  ? 

BEQ 

10$ 

NO  -  KEEP  LOOKING 

20$: 

MOVB 

(R1)+,(R0)+ 

ELSE  MOVE  TEXT 

BNE 

20$ 

DEC 

RO 

BACK  OVER  NUL  BYTE 

BR 

10$ 

KEEP  LOOKING 

30$: 

CMPB 

-CRO),#<'!> 

LAST  CHARACTER  A  "1" 

BEQ 

40$ 

YES 

INC 

RO 

NO 

40$: 

MOVB 

*<',>, (R0)+ 

INSERT  DELIMITER 

MOV 

RO,$OBUF 

RESTORE  BUFFER  POINTER 

RTS 

R5 

.END 
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SETFLG  -  SETUP  THE  FLAGS  WORD 


287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 

299  0002A2 

300  000242 

301  000244 

302  000250 

303  000254 

304  000262 

305  000264 

306  000270 

307  000274 

308  000300 

309  000306 

310  000310 

311  000314 

312  000320 

313  000324 

314  000332 

315  000334 

316  000340 

317  000344 

318  000350 

319  000356 

320  000360 

321  000364 

322  000370 

323  000374 

324  000402 

325  000404 

326  000410 

327  000414 

328  000420 

329  000426 

330  000430 

331  000434 

332  000440 

333  000444 

334  000452 

335  000454 

336  000460 

337  000464 

338  000470 

339  000476 

340  000500 

341  000504 

342  000510 

343  000514 


.S8TTL 
***  -  SETFLG 
INPUT: 


SETFLG  -  SETUP  THE  FLAGS  WORD 
-  SETUP  THE  FLAGS  WORD 


(.TEMP)  =  TEMPLATE  ADDRESS 
(.TEMP)+C.FLG  =  FLAGS  WORD 


OUTPUT: 


SETFLG: 


010446 

MOV 

R4,-(SP) 

016704 

OOOOOOG 

MOV 

.TEMP,R4 

016700 

OOOOOOG 

MOV 

$08UF,R0 

032764 

OOOOOOG 

000006 

BIT 

(CLF.MDCC 

001406 

BEQ 

20$ 

012701 

000007- 

MOV 

*LMDC,R1 

012702 

000007 

MOV 

#LMDCL,R2 

004767 

OOOOOOG 

CALL 

SMVASC 

032764 

OOOOOOG 

000006 

20$: 

BIT 

#LF.MTP,C 

001406 

BEQ 

30$ 

012701 

000016' 

MOV 

*LMTP,R1 

012702 

000007 

MOV 

#LMTPL,R2 

004767 

OOOOOOG 

CALL 

$MVASC 

032764 

OOOOOOG 

000006 

30$: 

BIT 

#LF.MFL,C 

001406 

BEQ 

35$ 

012701 

000025' 

MOV 

#LMFL,R1 

012702 

000007 

MOV 

#LMFLL,R2 

004767 

OOOOOOG 

CALL 

$MVASC 

032764 

OOOOOOG 

000006 

35$: 

BIT 

#LF.ENA,C 

001406 

BEQ 

40$ 

012701 

000000' 

MOV 

*LENA,R1 

012702 

000007 

MOV 

#LENAL,R2 

004767 

OOOOOOG 

CALL 

$MVASC 

032764 

OOOOOOG 

000006 

40$: 

BIT 

*LF.TIM,C 

001406 

BEQ 

50$ 

012701 

000034' 

MOV 

#LT1M,R1 

012702 

000007 

MOV 

#LTIML,R2 

004767 

OOOOOOG 

CALL 

$MVASC 

032764 

OOOOOOG 

000006 

50$: 

BIT 

#LF.X2P,C 

001406 

BEQ 

60$ 

012701 

000043' 

MOV 

#L)(2P,R1 

012702 

000007 

MOV 

#LX2PL,R2 

004767 

OOOOOOG 

CALL 

$MVASC 

032764 

OOOOOOG 

000006 

60$: 

BIT 

#LF.8R0,C 

001406 

BEQ 

65$ 

012701 

000052' 

MOV 

#L8R0,R1 

012702 

000007 

MOV 

«LBR0L,R2 

004767 

OOOOOOG 

CALL 

$MVASC 

032764 

OOOOOOG 

000006 

65$: 

BIT 

#LF.SER,C 

001406 

BED 

70$ 

012701 

000061 ' 

MOV 

*LSER,R1 

012702 

000007 

MOV 

#LSERL,R2 

004767 

OOOOOOG 

CALL 

$MVASC 

020067 

OOOOOOG 

70$: 

CMP 

R0,$OBUF 

.FLG(R45 
.FLG(R4i 
.FLG(R4i 
.FLG(R4i 
.FLG(R4) 
.FLG(R45 
.FLG(R4S 
.FLG(R4S 


SAVE  R4 

GET  START  OF  TEMPLATE 

POINT  RO  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

;  DOES  THE  LINE  NEED  MODEM  CONTROL  ? 

IF  EQ,  NO  ..  CONTINUE 

POINT  AT  INPUT  STRING 

AND  LENGTH  OF  STRING 

SET  MDC  BIT  IN  SLT 

;  IS  THE  LINE  MULTI-POINT  ? 

IF  EQ,  NO  ..  CONT. 

POINT  AT  INPUT  STRING 

AND  LENGTH  OF  STRING 

SET  MTP  BIT  IN  SLT 

;  IS  THE  LINE  MARKED  FOR  LOAD  ? 

IF  EQ,  NO  ..  CONT. 

POINT  AT  INPUT  STRING 

AND  LENGTH  OF  STRING 

SET  MFL  BIT  IN  SLT 

;  IS  THE  LINE  TO  BE  ENABLED  ? 

IF  EQ,  NO 

POINT  AT  INPUT  STRING 

AND  LENGTH 

SET  ENA  BIT  IN  SLT 

;  DOES  THE  LINE  NEED  TIMER  SERVICE  ? 

IF  EQ,  NO  ..  CONT. 

POINT  AT  INPUT  STRING 

AND  LENGTH  OF  STRING 

SET  TIM  BIT  IN  SLT 

;  DOES  THE  LINE  NEED  X.25  LEVEL  2  ? 

IF  EQ,  NO  ..  CONT. 

POINT  AT  INPUT  STRING 

AND  LENGTH  OF  STRING 

SET  TIM  BIT  IN  SLT 

;  ETHERNET  ? 

IF  EQ,  NO  ..  CONT. 

POINT  AT  INPUT  STRING 

AND  LENGTH  OF  STRING 

SET  TIM  BIT  IN  SLT 

;  SERVICE  DISABLED  ? 

IF  EQ,  NO  ..  CONT. 

POINT  AT  INPUT  STRING 

AND  LENGTH  OF  STRING 

SET  TIM  SIT  IN  SLT 

ANY  FLAGS  ADDED  ? 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 

75  000000 

76  000002 
000005 
000010 

77 

78  oooon 

000014 
000017 

79 

80  000020 
000023 
000026 


**** 
LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


•  **** 

•  MACRO  CALLS 

•  **** 


.MCALL   ISTATS, STATES, TRANS 


-  **** 

■  LOCAL  DATA 
•  **** 


123 
105 
041 

000007 
123 
115 
041 

000007 
123 
123 
041 


106 
116 


106 
106 


106 
126 


056 
101 


056 
114 


056 
103 


TEMP: 
SENA: 


SMFL: 


SSVC: 


.8LKW   1 

.ASCII   /SF.ENAI/ 


SENAL=.-SENA 
.ASCII   /SF.MFL!/ 


SMFLL   =  .-SMFL 
.ASCII   /SF.SVCI/ 


81 

000007 

SSVCL   =  .-SSVC 

82  000027 

123 

106 

056 

SSER: 

.ASCII   /SF.SERI/ 

000032 

123 

105 

122 

000035 

041 

83 

000007 

SSERL   =  .-SSER 

84 
85 
86 
87 

88  000000 

.EVEN 

;•  DEFINE  STATION  TEMPLATE 

' 

.ASECT 

89 

000000 

.=0 

90  000000 

.BLKW   1 

91  000002 

.8LKW   1 

92  000004 

C.STA 

.8LKB   1 

93  000005 

C.ADD 

.8L<e   1 

94  000006 

C.FLG 

.8LK8   1 

95  000007 

C.CST 

.BLKB   1 

96  000010 

C.APR 

.8LK8   1 

97  000011 

.8LKB   1 

98  000012 

C.HTM 

.BLKW   1 

99  000014 

.BLKW   1 

100 

000016 

C.LEN 

101  000036 

.PSECT 

ADDRESS  OF  STATION  TEMPLATE 
STATION  IS  TO  BE  ENABLED 


STATION  IS  MARKED  FOR  LOAD 


;  STATION  IS  AN  SVC 


SERVICE  REQUESTS  DISABLED  ON  CIRCUIT 


C.LNK 

C.STS 

STATION  NUMBER 

STATION  ADDRESS 

STATION  FLAGS 

STATION  COST 

ACTIVE  POLLING  RATIO 

AVAILABLE 

HELLO  TIMER 

UNUSED 
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112  000016 

113  000020 
1U  000022 
115  000024 
116 

117  000000 
118 


000026 


C.DPR:  .8LKW 
.8LKW 
.8LKW 

C.PCH:   .BLKW 

C.LEN=. 

.PSECT 


DEAD  POLLING  RATIO 

UNUSED 

UNUSED 

EMULATOR  CHARACTERISTICS 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 
ISTATt 
MTRANt 

#5-124 

#4-94 

#5-124 

5-124 

PRINT 
STATES 

TRANS 
$PT^JMB 
SPTNUM 
SSSPTN 

#4-59 

#4-94 

#5-151 

#4-94 

#4-88 

#4-87 

#4-67 

5-126 

#5-127 

10-272 
4-87 

#5-129 

#5-130 

11-286 
4-88 

#5-132 
#5-133 
12-300 

#5-135 
#5-136 
13-514 

#5-138 
#5-139 

#5-142 
#5-143 

#5-144 
#5-145 

#5-146 
#5-147 

#5-148 
#5-149 

t.FILE«*IP»«UPDX2P 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  UPDX29  -  UPDATE 
.IDENT  /V05.00/ 
.ENABL  LC 


X.29  3  CHARACTERISTICS 


COPyRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  X.29  CHARACTERISTICS  IN  CETAB 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 
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UPDX?e  .  UPDATE  X.25  LEVEL  3  CH  MACRO  V05.03b  Saturday  29-Jun-85 
$UPX3P  -  UPDATE  K.?5  LEVEL  5  CHARACTERISTICS 


isll 


9  Page  5 


U8 

1A9 

150 

151 

152 

153 

15^ 

155 

156 

157 

158 

159  000010 

160  000010 

012767 

OOOOOOG  ooooooc 

161  000016 

010567 

OOOOOOG 

162  000022 

005725 

163  000024 

010567 

OOOOOOG 

164  000030 

012767 

:77777     OOOOOOG 

165  000036 

012700 

OOOOOOG 

166  0000A2 

012701 

000000' 

167  000046 

012702 

000010 

168  000052 

004767 

OOOOOOG 

169  000056 

010067 

OOOOOOG 

170  000062 

171  000074 

172  000106 

173  000120 

174  000132 

175  000144 

176  000156 

177  000170 

178  000202 

179  000214 

180  000226 

181  000240 

016701 

OOOOOOG 

182  000244 

162701 

OOOOOOG 

183  000250 

010167 

OOOOOOC 

184  000254 

004767 

OOOOOOG 

185  000260 

012767 

OOOOOOG  OOOOOOC 

186  000266 

000207 

187 

188 

189 

000001 

.S8TTL  $UPX3P  -  UPDATE  X.25  LEVEL  3  CHARACTERISTICS 

'»»»  -  $UPX3P  -  UPDATE  X.25  LEVEL  3  CHARACTERISTICS 

INPUT: 

R5  -  ADDRESS  OF  TEMPLATE 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


$UPX3P: 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

SPTNUM 

SPTNUM 

SPTNMB 

SPTNMB 

SPTNMB 

SPTNMB 

SPTNMB 

SPTNMB 

SPTNMB 

SPTNMB 

SPTNMB 

MOV 

SUB 

MOV 

CALL 

MOV 

RETURN 


.END 


ff.BUff  ,SOFDBtF.^'RBDt^  ;  SET  NEW  OUTPUT  BUFFER 

R5„TEMP  ;  SAVE  UPDATED  TEMPLATE  POINTER 

(r5)+  ;  POINT  TO  C.STS 

R5,. FLAGS  ;  SAVE  ADDRESS  OF  FLAGS  WORD 

#-1,. COMMA  ;  SUPPRESS  INITIAL  COMMA 

*.BUFF,RO  ;  POINT  AT  START  OF  OUTPUT  BUFFER 

#X3PDF,R1  ;  POINT  AT  START  OF  X3P  DEFINITION 

#X3PLN,R2  ;  GET  LENGTH  OF  X3P  DEFINITION 

SMVASC  ;  MOVE  ISl  PART  OF  LINE  INTO  OUTPUT  BUFFER 

RCSOBUF  ;  SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

*C.DFP  ;  DEFAULT  BLOCK  SIZE 

#C.MXP  ;  MAX  BLOCK  SIZE 

#C.DW  ;  DEFAULT  WINDOW  SIZE 

#C.MW  ;  MAX  WINDOW  SIZE 

#C.CT  ;  CALL  TIMER 

#C.KI  ;  CLEAR  TIMER 

*C.RT  ;  RESET  TIMER 

#C.ST  ;  RESTART  TIMER 

#C.KM  ;  MAX  CLEAR  VALUE 

#C.RM  ;  MAX  RESETS 

*C.SM  ;  MAX  RESTARTS 

SOBUF.Rl  ;    CALCULATE   LENGTH  OF   BUFFER 

#.8UFF,R1 

RI.SOFDBtF.NRBD  ;  SET  LENGTH  OF  BUFFER 

SWDATA  ;  WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

#S8UFI,S0FDB+F.NRBD+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 
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249 

250 

251  000036 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269  000036 

270 

271  000056 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283  000056 

284  000062 

285  000066 

286  000072 

287  000076 

288  000104 

289  000110 

290  000114 

291  000120 

292  000124 

293  000130 

294  000132 

295  000136 

296  000142 

297  000146 

298  000152 

299  000156 
300 

301  000162 

302  000166 
305  000172 

304  000174 

305  000200 


.SBTTL  MLD     -  Microcode  Loader  Main  Routine 
.PSEC1  MLDC0D,I,R0,REL,0VR,LCL 

*»«  MLD  *♦* 


function: 


Inputs: 


Outputs: 


This  program  is  used  service  requests  from  DECnet  device, 
drivers  for  specific  microcode  tiles  (RSX-IIM)  or  partitions 
(RSX-11S). 

No  explicit  inputs.  The  task's  receive  listhead  in  the  TCB 
should  be  non-empty  when  the  task  begins  execution.  Load 
requests  are  queued  to  this  list  by  AUX  upon  request  from 
device  drivers. 

No  explicit  outputs.  MLD  will  perform  a  single  load  session 
with  each  driver  that  has  made  a  request.  Requests  are 
handled  FIFO  with  no  multiplexing. 


MLD: 
1$: 


2$: 


177726 

000044 

000000 

000004  001326' 

000002 

000010 

000006 
177400 

001330' 
014010 

000072 

001326' 

001312' 

001334' 
177614 


017700 
016000 
016003 
016367 
166300 
016301 

066300 
042700 
010001 
012700 
012702 

112720 
162700 
010067 

012702 
017703 
005004 


162702  001334' 


ALUMS  #EVTLUN,*"NH,#0 

.IFT 

,IF  DF  R$$HPL 

.IF  NDF  R$$PRO 

DIRS  #GINVEC 

BCC  2$ 

CALL  A80AST 

.ENDC  ;  NDF  R$$PRO 

.ENDC  ;  DF  R$$MPL 

FINITS 

MOV  aTKTCB,RO 

MOV  T.LDV(RO),RO 

MOV  U.DC8(R0),R3 

MOV  D.NAM(R3),FILDEV 

SUB  D.UCB(R3),R0 

MOV  D.UC8L(R3),R1 

CALL  $DIV 

ADD  D.UNIT(R3),R0 

BJC  #177400, RO 

MOV  R0,R1 

MOV  #FILDEV+2,R0 

MOV  #CVTPRM,R2 

CALL  SCBTA 

MOVB  #':,(RO)t 

SUB  *F!LDEV,RO 

MOV  RO.DSDS 

MOV  #FILDIR,R2 

MOV  aNTUIC,R3 

CLR  R4 

CALL  .PPASC 

SUB  #FUD1R,R2 


Assign  LUN  to  network  management 

If  system  is  RSX-11M  ... 

If  system  is  RSX-11M-PLUS 
And  not  P/OS 

Initialize  executive  vector  table 

Branch  if  no  error 

Else  ,  clean  up  and  exit 


Initialize  FCS  impure  area 

Get  our  TCB  address 

Get  our  load  device  UCB  address 

Get  load  device  DCB  address 

Copy  load  device  name 

Compute  relative  UCB  address 

Get  UCB  length 

Compute  relative  unit  number 

Compute  absolute  unit  number 

Clear  high  byte 

Copy  It 

Get  address  of  ASCII  unit  number 

Get  conversion  parameters 

Convert  unit  to  ASCII 

Complete  the  device  name 

Get  length  of  device  name 

Move  It  to  dataset  descriptor 

Get  address  of  directory  ASCII  string 
Get  binary  network  UK  from  SYSCM 
Suppress  leading  zeros,  include  "[,]" 
Convert  UIC  to  ASCII 
Compute  length  of  ASCII  UIC 
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870 
871 
872 
873 
87A 
875 
876 
877 
878 
879 
880 
881 
882 
883 
88A 
885 
886 
887 
888 
889 


20$: 


30$: 


MOV  i»WOR/(SP,RO 

MOV  #PARERR,R1 

MOV  R3,R2 

CALL  $EDMSG 

CLR8  (RO) 

MOV  #W0RKSP,R2 

CALL  LOGEVT 

SEC 

BR  30$ 

MOV  R2,PCBADR 

MOV  P.ftEL(R2),BL0CK 

MOV  P.SJZE(R2),BLOCKt2 

MOV  (SP)+,CSP)t 

MOV  (SP)+,R3 

M0V8  (SP)+,(R3) 
RETURN 

.IFF 


Get  address  of  output  euent  string 

Copy  address  of  $Et)MSG  instructions 

Copy  address  of  $EDMSG  arguments 

Format  the  output  string 

Make  it  an  ASCIZ  string 

Recover  error-specific  string  address 

Log  the  event 

Set  C-bit  to  indicate  load  error 

Branch  to  common  code 

Save  PCS  address 

Copy  partition  mappinq  bias 

Copy  partition  size  (i2-word  blocks) 

Deallocate  work  area  but  save  C-bit 
Retrieve  address  of  delimiter 
Replace  it  with  original  data 
Exit 

I f  no  PLAS  support  . . . 
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SYMBOL      VALUE 


MtHlGH 

M$5100 

M$3101 

M$3102 

Mt3103 

M.KTEF 

NTUIC 

N$$UMR 

OPSIN! 
OPSTER 
PARHD 
PARStS 

PDSPL 

PDVIDX 

PDVTA 

PHSHDE 

PHSLOC 

PHSMTS 

PHSUMP 

PHSWCS 

PURAST 

P$$LUT 

QRMVF 

RDBSZ 

RE  SAD C 

RESADF 

RESADR 

RESBLK 

RESCAF 

RESDAT 

RESDRP 

RESLDT 

RESLSN 

RESNML 

RESOPE 

RESOPR 

RESRCV 

RESSED 

RESSKW 

RESSTA 

RESSUM 

RESSYN 

RESTME 

RFSTMO 

RESTMR 

RESUPT 

RESURE 

RESVER 

RESVRQ 

RTSINI 


=  000003 

=  000000 

=  000001 

=  000002 

=  000003 

=  000002 

000006  RG 

=  000001 

=  000000 
=  000001 

000010  RG 
=  000027 

000024  RG 
OOUOO  R 
000026  RG 

=  000004 

=  000002 

=  000003 

=  000000 

=  000001 
001152  R 

000012  RG 
000030  RG 
=  000004 
=  000017 
=  000007 
=  000010 
=  000014 
=  000001 
=  000016 
=  000013 
=  000012 
=  000001 
=  000004 
=  000000 
=  000001 
=  000011 
=  000006 
=  000002 
=  000003 
=  000000 
=  000021 
=  000000 
=  000020 
=  000002 
=  000003 
=  000005 
=  000015 
=  000002 


REFERENCES 

#6-83 
#6-83 
#6-83 
#6-83 
#6-83 

8-202 
#8-234 
#4-2 

10-553 
#6-83 
#6-83 
#8-235 
#12-651 

15-808 
#8-241 
#8-212 
#8-242 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 

9-318 

7-137 
#8-236 
#8-243 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 


6-83 

9-302 

6-87 

12-657 


12-651 

10-547 
*9-403 
11-601 


#12-648 

9-361 
10-522 


7-112 


#14-765 

12-680 
10-543 


8-200  9-312 

14-765         #15-794 
11-602 


9-321 


9-367 


15-794    #15-796 


9-392 


15-796 


10-516 


#15- 


12-670 
10-524 


10-558    10-559 


MLD 
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Load  Control  Data 


218 
219 
220 
221 
222 
225 
22^ 
225 
226 

227  000566 

228  000566 

229  000570 

230  000572 
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231 
232 
233 

23A  000574 
235  000576 
256  000600 

237  000602 

238  000604 
259  000606 
2A0  000610 

241  000612 

242  000614 
245  000616 

244  000620 

245  000622 
246 

2'.7 


000000 

OOOGOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000017 


.IFT 

FSRSZS 

0,,MLDCOD 

.IFTF 

; 

Executi 

ue  Vector  Table 

EXEVEC 

.WORD 

0 

ISAR5 

;  .WORD 

KISAR5 

BLXIO 

:  .WORD 

SBLXIO 

.IF 

DF      R$$MPL 

NCPU; 

.WORD 
.ENDC 

$NCPU 

NTUIC 

:  .WORD 

SNTUK 

PARHD 

:  .WORD 

SPARHD 

QRMVF 

:  .WORD 

SQRMVF 

TKTCB 

:  .WORD 

STKTCB 

CCBRT 

:  .WORD 

$CC8RT 

LDBGT 

:  .WORD 

$LD8GT 

LDBRT 

:  .WORD 

SLDBRT 

PDSPL 

:  .WORD 

SPDSPL 

PDVTA 

:  .WORD 

SPDVTA 

RDBSZ 

:  .WORD 

SRDBSZ 

SLTMA 

:  .WORD 

SSLTMA 

STDDM 

:  .WORD 

SSTDDM 

EXEVC 

.  =  .-EXEVEC/2 

Define  FCS  work  area 


If  system  is  RSX-11M+ 
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LOCAL  DATA 


131 

132 

133 

134  000000 

135 

136 

137  000010 

138  000012 
139 

140 
141 
142 

Oil 
000010 

120 

126 

PVCDF: 

.S8TTL 

.NLIST 
.ASCII 
PVCLN=. 

LOCAL  DATA 

BEX 

<11>/PVC$DF/<11> 
-PVCDF 

057760 
057266 

ONSTR: 

.RAD50 
.RAD50 

.LIST 
.EVEN 

/ON/ 
/OFF/ 

BEX 

L  1 
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Symbol  table 


C.ADR  000010 
C.LEN  =  000022 
C.NAM  OOOOOA 
F.NRBD=  »•«••♦ 


GX 


RDTDF   OOOOOOR 
RDTLN  =  000010 
$BUFI  =  ******  GX 
$MVASC=  ******   GX 


SOBUF  =  ******  GX 
$0FD8  =  ******  GX 
$PTR50=  ******  GX 
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SUPRDT  000010RG 
$WDATA=  ******  GX 
.BUFF  =  ******  GX 


.COMMA=  ******  GX 
.FLAGS=  ******  GX 
.TEMP  =  ******  GX 


.  ABS. 

000022 

000 

(RW, 

,GBL,ABS,OVR) 

000U2 

001 

(RW, 

,LCL,REL,CON) 

Errors 

detected: 

0 

***  Assembler  statistics 


Work   file  reads:  0 

Work   f i  le  writes :  0 

Size  of  work  I'-'le:  8830  Words   (  35  Pages) 

Size  of  core  pool:  U4A0  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


sv:updrdt!v2![i'3^?i'3°]updrdt/cr/-sp=sy:[i,i:rsxmcm.sml/ml,ci30,iio:netlib/ml,ci32,io]updrdt 


UPDRDT 
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277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 

291  000476 

292  000476 

293  000502 

294  000506 
295 

296  000512 

297  000514 

298  000516 

299  000520 

300  000526 

301  000530 

302  000536 
303 

304 
305 

306  000540 

307  000544 

308  000546 

309  000550 

310  000556 

311  000560 

312  000564 
313 

314  000566 

315 

316 


.S8TTL  UPDLL  -  UPDATE  DOWNLINE  LOAD  DATABASE 
'•*-UPDLL-UPDATE  DOWNLINE  LOAD  DATABASE 
INPUTS: 


STMLST 
TEMP 


=  ADDRESS  OF  TEMPLATE  LI?t 
=  REMSDF  TEMPLATE  ADuHESS 


OUTPUT: 
REGISTERS: 


DOWNLINE  LOAD  DATABASE,  IF  ANY, 
WRITTEN  INTO  OUTPUT  FILE. 

ALL  REGISTERS  ARE  PRESERVED. 


IS 


004567 
012705 
016704 

000241 
011505 
001422 
122765 
001371 
026564 
001365 


004767 
103407 
011505 
122765 
001003 
004767 
000207 


OOOOOOG 
OOOOOOG 
177266 


UPDLL: 


10$: 


OOOOOOG  OOOOOOG 
000006  000010 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 


JSR 
MOV 
MOV 

CLC 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BNE 


R5,$SAVRG 

*$TMLST,R5 

TEMP,R4 


SAVE  R3-R5 

POINT  TO  TEMPLATE  LISTHEAD 

POINT  TO  REMOTE  TEMPLATE 


(R5),R5 

20$  ; 

#CS.SER,C.STS(R55 

10$ 

S$ADD(R5),C.ADD(R4J 

10$  ;  NO 


GET  ADDRESS  OF  NEXT  TEMPLATE 
IF  EO,  NO  DLL  INFO  FOR  REMOTE 
;  IS  THIS  A  REMOTE  DEFINITION 
IF  NE,  NO  ..  KEEP  LOOKING 
FOR  THIS  REMOTE  NODE  ? 


FOUND  A  TEMPLATE 


000167  OOOOOOG 
000001 


20$: 
101$: 


CALL 

BCS 

MOV 

CMPB 

BNE 

CALL 

RETURN 

JMP 

.END 


$UPSER 

20$ 

(R5),R5 

#CS.FIL, 

101$ 

$UPFIL 


.CONER 


;  UPDATE  SER$DF 

■  IF  CS  ERROR 

•  POINT'tO  SUCCESSOR  TEMPLATE 

C.STS(R55  ;  IS  THIS  A  FIL$DF  TEMPLATE 

;  IF  NE,  INTERNAL  ERROR  I 

;  UPDATE  FIL$DF 


;  BIG  TROUBLE 
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Symbol  table 


CS.MOD= 

»*♦•»«  GX 

C.NBEA 

000016 

$ANY  = 

000020 

CS.ROU= 

»♦♦»»•  GX 

C.RTM 

000012 

$BLANK= 

000006 

C.ACST 

000022 

C.STS  = 

4«*»*»  GX 

$BUFI  = 

****** 

GX 

C.ADD 

OOOOOA 

EXIT 

000104R 

002 

$CLNUP= 

****** 

GX 

C.AHOP 

000020 

F.NRBD= 

»»♦»**  GX 

SCNVD  = 

****** 

GX 

C.CST 

000006 

ROUKTB 

OOOOOORG 

00,4 

$DIGIT= 

000024 

CHOP 

000010 

ROUSTB 

OOOOOORG 

UU2 

$DNUMB= 

000014 

C.LEN  = 

000026 

SETNUM 

0001 22R 

$EOS  = 

000012 

C.L2TM 

000024 

TEMP 

OOOOOOR 

$ERROR= 

****** 

GX 

C.NA 

OOOOK 

$ALPHA= 

000022 

.  ABS. 

000026 
000152 

OCO 
001 

(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 

SSTATE 

000112 

002 

(RW,D,LCL,REL,CON) 

SKTAB 

000000 

00  ^ 

(RW,D,LCL,REL,CON) 

SKSTR 

000000 

004 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

U 

•*»  Assembler  statistics 

Work   f 

lie  reads 

0 

Work   f 

i le  writes 

0 

Size  of 

work  file 

lOi. 

36  Words 

(  41  Pages) 

Size  of 

core  pool 

•  14440  Words 

f  55  Pages) 

Operating  system 

:  RSX 

-11M/PLUS 

Page  7-1 


$EXIT  =  000000 
$FAIL  =  U7777 
$LAMDA=  000000 
$MOVPT=  ******  GX 
$HOVST=  ******  GX 
$NUMBR=  000002 
$OBUF  =  ******  GX 
iOFDB  =  ******  GX 
$RAD50=  000016 


$STRNG=  000004 
$SUBXP=  000010 
$TMLST=  ******  GX 
SUPROU  OJ0002RG 
$$$FLG=  ^77777 
$$$KEY=  T77777 
$$$STA=  000000 
.CONER=  ♦**»♦*  GX 
.TPARS=  ******   GX 


Elapsed  time:  00:00:25.45 

SY: UPDROU. V2,[1 32, 134]UPDROU/CR/-SP=SY:[1 


1]RSXMCM.SML/ML,C130,110]NETLJB/ML,C132,10]UPDR0U 


UPDROU 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:56 
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UPDSER  -  CFE  UPDATE  REMOTE  CHAR  MACRO  V05.03b 
Symbol  table 

Saturday 

K  5 

29-Jun-85  05:56 

F.NRB[)=  ••••••  GX 

PH3TXT  OOOOIOR 
PUTFLG  000510R 
PUTNOD  000266R 
PUTOCT  000442R 
PUTR50  000366R 
SERDF   OOOOOOR 
SERLN  =  000010 

SF.ADD=  000001 
SF.C1R=  000010 
SF.DEV=  000020 
SF.DPA=  000100 
SF.DPC=  000200 
SF.HAD=  000004 
SF.HST=  000002 
SF.PH3=  000400 

SF.PSS= 

S$ADD 

S$CIR 

S$DEV 

S$DPA 

S$DPC 

SSFLG 

S$HAD 

=  000040 

000032 
000050 
000054 
000004 
000012 

.  ABS.  000056 
000560 
Errors  detected: 

000 
001 
0 

(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 

♦**  Assembler  statistics 

Work  file  reads 
Work   file  «/rites 
Size  of  work  f i  te 
Size  of  core  pool 
Operating  system 

0 

0 

218  Words  (  1  Pages) 

14440  Words  (  55  Pages) 

RSX-11M/PLUS 

Elapsed  time:  00: 
SY:UPDSER.V2,tl32 

30:07.46 
,134]UPDSER/CR/-SP=Sy:[l,1]RSXMCM.SML/ML,[130, 

110]NETL 
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S$HST 
S$LEN  = 
SSPSS 
$C8TA3= 
$CNVD  = 
$C5TA1= 
$MVASC= 
$0BUF  = 


000010 
000056 
000034 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 


$0FD8  = 

******  GX 

$SAVRG= 

******  GX 

SUPSER 

000020RU 

SWDATA^ 

******  GX 

.BUFF  = 

******  GX 

.FLAGS= 

******  GX 

.TEMP  ^ 

******  GX 

] UPDSER 


UPDSER 


CREATED  BV  MACRO  ON  29-JUN-85  AT  05:56 


PAGE 
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UPDSLT  -  CFE  UPDATE  SLT  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:56 
SETFLG  -  SETUP  THE  FLAGS  WORD 


Mi,  000520 
"545  000522 
3A6  000524 
3A7  000530 

348  00053A 

349  000536 


001401 
105740 
112720 
010067 
012604 
000207 


000054 
OOOOOOG 


80$: 


BEQ 
TST8 

Move 

MOV 
MOV 
RETURN 


80$ 

-(RO) 

#<'  >,(R0)+ 

R0,$OBUF 

(SP)+,R4 
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IF  EQ,  NO 

BACK  UP  OVER  LAST  "!" 

INSERT  DELIMETER 

UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 

RESTORE  R4 

RETURN  TO  CALLER 


UPDSLi 
^FTrWT 


L  6 
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rHFTK  THF  mNTRni  I  FR  NUMBER 
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105 

104 

105 

106 

107  000036 

108 

109  000036 

110  000036 
111 

112  000036 

113  000036 
114 

115  000036 

116  000036 
117 

118  000036 

119  000036 

120  000036 
121 

122  000036 

123  000036 

124  000036 

125  000036 
126 

127  000036 

128  000036 
129 

130  000036 

131  000036 

132  000036 
133 

13A  000056 

135  000036 

136 

157  000036 

138  000036 

139 

KO  000036 

141  000036 

142 

143 

144 

145 

146  000036 

147  000056 
148 

149  000036 

150  000036 
151 

152  000036 

153  000036 

154  000036 
155 

156  000036 

157  000036 
158 

159  000036 


INITIALIZE  TABLE  GENERATION 
**** 

ISTATS  STASTB.STAKTB 

STATES 

TRANS  $NUMBR,,SETADD 

STATES 

TRANS  <',>,, SMOVPT 

STATES 

TRANS  $RAD50,, SMOVPT 

STATES 

TRANS  <',>,SFLAG, SMOVPT 

TRANS  SLAMDA.EXIT 

STATES  SFLAG 

TRANS  ISFS.STACST 

TRANS  <',>,STACST,SETFLG 

TRANS  SLAMDA.EXIT 

STATES  STACST 

TRANS  SNUMBR,,SETCST 

STATES 

TRANS  <',>,APRNUM, SMOVPT 

TRANS  SLAMDA.EXIT 

STATES  APRNUM 

TRANS  SNUMBR,,SETAPR 

STATES 

TRANS  SLAMDA,EXIT,SETHTM 


SKIP  FLAG  BITS 

SET  STAION  COST 
ACTIVE  POLLING  RATIO 

HELLO  TIMER 


STATES 
TRANS 

EXIT 
SLAMDA,SEXIT,SCLNUP 

;  LOOK  FOR  STATION  FLAGS 

STATES 
TRANS 

SFS 
"SF" 

STATES 
TRANS 

'.,8ITS 

STATES 
TRANS 
TRANS 

SKIP 

<',>,SEXIT,SETFLG 

'I.SFS 

STATES 
TRANS 

BITS 
SRAD50,SKIP 

STATES 


UPDSTA 
tUPSTA 


CFE  UPDATE  STATION  DEF  MACRO  V05.03b  Saturday  29-Jun-85  05:57 
UPDATE  STATION  DEFINITION 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

51 
52 
53 
54 

55 


.TITLE  UPDSVC  -  UPDATE  SWITCHED  VIRTUAL  CIRCUIT 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  SWITCHED  VIRTUAL  CIRCUIT 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  Vl.1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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UPDUNT  - 

CFE  UPD 

120 

121 

122 

123 

12^ 

000000 

125 

126 

000000 

127 

000000 

128 

129 

000000 

130 

000000 

131 

152 

000000 

133 

000000 

13A 

135 

000000 

136 

000000 

137 

138 

000000 

139 

000000 

KG 

K1 

142 

000000 

143 

000000 

144 

000000 

145 

ooocoo 

146 

000000 

147 

000000 

148 

000000 

149 

000000 

150 

151 

000000 

K     9 
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INITIALIZE    TABLE    GENERATION 
**  ** 

ISTATS     UNTSTB,UNTKTB 

STATES 
TRANS     SNUMBR,,SErUNT 

STATES 
TRANS     <',>,, SMOVPT 

STATES 
TRANS     SNLiMBR,,SETCWO 

STATES 
TRANS     <',>,, SMOVPT 

STATES 
TRANS     SNUM6R,,SETCUI 


STATES 

TRANS  SLAMDA,,SETCSR 
STATES 

TRANS  SLAMDA,,SETCST 
STATES 

TRANS  SLAMDA,,SETDPR 
STATES 

TRANS  $LAMDA,SEXIT,SETPCH 

STATES 


OPTIONAL  PARAMETERS 
SECONDARY  CSR 

CIRCUIT  COST 

DEAD  POLLING  RATIO 

PROTOCOL  EMULATOR  CHARACTERISTICS 
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SUPUNT  -  UPDATE  UNIT  DEFINITION 
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♦»FILE'*1D*«UPDX2P 


uu    uu 

pppppppp 

DDDDDDDD 

XX      XX 

PPPPPPPP 

uu    uu 

pppppppp 

DDDDDDDD 

XX      XX 

222222^ 

PPPPPPPP 

uu    uu 

pp    pp 

DD 

DD 

XX      XX 

22     22 

PP     PP 

uu    uu 

pp    pp 

DD 

DD 

XX      XX 

22     22 

PP     PP 

uu    uu 

pp    pp 

DD 

DD 

XX  XX 

22 

PP     PP 

uu    uu 

pp    pp 

OD 

DD 

XX  XX 

22 

PP     PP 

uu    uu 

pppppppp 

DD 

DD 

XX 

22 

PPPPPPPP 

uu    uu 

pppppppp 

DD 

DD 

XX 

22 

PPPPPPPP 

uu    uu 

pp 

D> 

DD 

XX  XX 

22 

PP 

uu    uu 

pp 

11 

DD 

XX  XX 

22 

PP 

uu    uu 

pp 

DD 

XX      XX 

22 

PP 

uu    uu 

pp 

DD 

DD 

XX      XX 

22 

PP 

uuuuuuuuuu 

pp 

DDDDDDDD 

XX      XX 

2222222222 

PP 

uuuuuuuuuu 

pp 

DDDDDDDD 

XX      XX 

2222222222 

PP 

LL 

SSS5SSSS 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

UPDX2P  -  UPDATE  X.25  LEVEL  2  CH  MACRO  VO5.03b  Saturday  29-Jun-85 
Table  of  contents 
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UPDX29  -  UPDATE  X.29  3  CHARACTE 
MACRO  CALLS  AND  LOCAL  DATA 

57 
58 
59 
60 
61 
62 
63 

65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110  000000 

111  000000 
112 
113 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXr,RO 
SPRINT 
PRINT 


POINT  RC  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


L! 


.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERR 

.ENDM 

EmRORS 

.MACRO 

EPRINT   TEXT 

PRINT  TEXT  ON 

ERROR  LUN 

.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRINT 

PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS,OCTL,OPT,?L 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  NB 

<OCTL> 

MOV 

SP,R1 

.IFF 

CLR 

R1 

.ENDC  ; 

IF  NB  <OCTL> 

CALL 

•ROU 

.IFT  ; 

IF  N8  <OPT> 

.ENDC  ; 

IF  N8  <OPT> 

.ENDM  ; 

'ROU 

.ENDM  ; 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNMB 

GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 
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C.CT 

000012 

C.MU 

000011 

F.NR8D= 

**«**♦  GX 

C.DFP 

OOOOOA 

C.MXP 

000006 

X3PDF 

OOOOOOR 

C.DW 

000010 

C.RM 

000017 

X3PLN  = 

000010 

C'M 

000016 

CRT 

OOOOU 

$8un  = 

*«•*♦•  GX 

C.<T 

000013 

C.SM 

000020 

$MVASC= 

*•••**  GX 

C.LEN 

=  000021 

C.ST 

000015 

.  ABS. 

000021 

000 

(RW,I 

,GBL,AB5,0VR) 

000270 

001 

(RU,1 

,LCL,REL,CON) 

Errors 

detected ; 

0 

$OBUF  =  ******  GX 
$0FD8  =  ******  GX 
$PrNMB=  •♦♦*♦♦  GX 
$PTNLIM=  •♦♦***  GX 
$UPX3P     00001  ORG 


$UDATA=   ******  GX 

.BUFF   =   ******  GX 

.COMMA=   ******  GX 

.FLAGS=   ******  GX 

.TEMP  =   ******  GX 


«•»   Assembler   statistics 


Work     file     reads;  0 

Work      file   writes:  0 

Size  of  work    file:  8783  Words      (   35  Pages) 

Size  of   core  pool:  U440  Words      (    55   Pages) 

Operating     system:  RSX-11M/PLUS 


SYfuPUX3p!v2;[l'32?°3°]UPDX3P/CR/-SP=SY:Cl,nRSXMCM.SML/ML,[130,110]NETLI8/ML,C132,10]UPDX3P 


UPDX3P 

CREATED  By 

MACRO 

ON  29-JUN-85  AT  05:59 

PAGE  1 
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MLD    -  Microcode  Loader  Main  Routine 


306  00020A 

307 

308 

309 

310  000210 

311 

312 

313 

3U  0002K 

315 

316 

317 

518  000220 

319  000232 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329  000244 

330  000250 

331  000254 

332  000256 

333  000262 

334  000270 

335  000276 
336 

337  000304 

338  000306 

339  000312 

340  000314 

341  000322 

342  000330 
343 

344 
345 
346 
347 
348 
349 
350 
351 

352  000332 

353  000336 

354  000342 

355  000344 

356  000350 
357 

358  00"354 

359  000360 
360 

361  000364 

362  000370 


010267  001316' 
005067  001376' 
005067  001364' 


5$: 


103413 

010467  001364' 

016467  000014  001366' 

016467  000016  001370' 

012764  001026  000010 


005767  001364' 
001007 


000745 


6$: 
7$: 


016704  001376' 
001404 

005067  001376' 

017700  177434 

062700  000012 

105407 


MOV 

R2,DSDSt4 

.IFTF 

CLR 

CURQST 

.IF 

DF      N$$UMR 

CLR 

LD8PTR 

.ENDC 

SPRASS 
SREASS 

#PURAST 
#Ae0AST 

.IF 


DF 


N$$UMR 


Move  length  to  dataset  descriptor 

For  any  operating  system  .. 

No  load  request  outstanding 

If  system  has  LIMRs  . . . 

No  large  data  buffer  yet 

End  UMR  conditional 

Specify  AST  for  powerfail  recovery 
Specify  AST  for  requested  aborts 

If  system  has  UMRs  ... 


In  order  to  guarantee  that  devices  which  DMA  in  their  own  microcode 
can  access  the  microcode,  allocate  a  large  data  buffer  before 
continuing.  LDBs  are  always  UMR-mapped  if  the  system  has  UMRs. 


CALL 

CALL 

BCS 

MOV 

MOV 

MOV 

MOV 

RETURN 

TST 

BNE 

DIRS 

DIRS 

BR 

.ENDC 


tSWSTK,7$ 

oiLDBGT 

6S 

R4,LDBPTR 

C.8UF1(R4),LDBIAS 

C.BUF1+2(R4),LDBADR 

#FC.MLD+FS.WLB,C.FNC(R4) 


LDBPTR 

10$ 

tfSETTMR 

#UAIT 

5$ 


Switch  to  system  state 
Allocate  a  UMR-mapped  buffer 
Branch  if  failure 
Save  address  of  CCB/LDB 
Save  LBD's  mapping  bias 
Save  LOB's  starting  address 
LDB  used  only  for  writes 

Return  to  user  state  at  "7S" 

Was  an  LDB  allocated? 

Branch  if  so 

Set  a  timer 

Wait  for  timer  to  expire 

Attempt  LDB  allocation  again 

End  UMR  conditional 


Enter  system  state  to  dequeue  a  CCB  from  our  TCB  receive  list. 
Each  CCB  is  a  load  request  queued  to  MLD  by  AUX  on  behalf  of 
a  DECnet  device  driver. 


Switch  to  system  state 
Get  current  request  CCB 
Branch  if  none  there 
Return  CCB  to  its  pool 
Request  no  longer  outstanding 

Get  address  of  TCB 

Advance  to  TCB  receive  listhead 


10$: 
15$: 

CALL 

MOV 

BEQ 

CALL 

CLR 

SSWSTK,50$ 
CURQST, R4 
20$ 

aCCSRT 
CURQST 

20$: 

MOV 
ADD 

aTKTCB,R0 
#T.RCVL,RO 

50$: 

CALL 
BCS 

aORMVF 
40$ 

Dequeue  a  load  request  CCB 
Branch  if  no  CCB(5)  queued 


MLO 
MLD 


-  Microcode  Loader     MACRO  V05.03b  Wednesday  28-Aug-85 

-  Microcode  Loader  Main  Routine 
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MLD 
MLOAD 


891 

895 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

905 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

9U 

915 

916 

917 

918 

919 

920 

921 

922 

923 

92A 

925 

926 

927 

928 

929 
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Load  Control  for  RSX-11M  Systems 

.SBTTL  SRNAM   -  Search  For  Named  Partition 

•♦*  SRNAM  *«* 


Function; 

Call  Format: 
Inputs: 
Outputs : 

Registers : 


To  search  the  system  PCB  list  for  a  named  partition, 
routine  is  supplied  for  systems  without  PLAS  support. 

CALL    SRNAM 

R3  =  address  of  RAD50  doubleword  partition  name 


SRNAM; 
10$; 


20$: 


30$: 
40$; 


50$: 


This 


C-bit  set: 
C-bit  clear: 

R2  destroyed 


partition  not  found 

partition  found,  R2  =  PCB  address 


MOV 
CMP 
BNE 
CMP 
BEO 

BIT 
BEO 
TST 
BEQ 
MOV 
BR 

MOV 
MOV 
BNE 
SEC 

RETURN 

.ENDC 


aPARHD,R2 

P.NAM(R2),(R3) 

20$ 

P.NAM+2(R2),2(R3) 

50$ 

#PS.SYS,P.STAT(R2) 

40$ 

P.SUB(R2) 

30$ 

P.SU8(R2),R2 

10$ 

P.MAIN(R2),R2 

(R2),R2 

10$ 


Get  address  of  first  PCB 
Match  on  first  word  of  name? 
Branch  if  not 

Match  on  second  word  of  name? 
Branch  if  so 

System-controlled  partition? 

Branch  if  not 

Is  there  another  partition? 

Branch  if  not 

Get  next  subpartition  PCB  address 

Look  for  match 

Get  address  of  main  partition  PCB 
Get  address  of  next  PCB 
Branch  if  one  there 
Set  C-bit  for  failure 

Exit 

End  PLAS  conditional 
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SYMBOL    CROSS   REFERENCE 


SYMBOL  VALUE 


RTSOFF 

RTtON 

R$$MPL 

R$$nD 

R$$11M 

R$$11S 

SCSOFF 

SCION 

SCtRST 

SCSSHU 

SETTMR 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTMA 

STDDM 

SV$OUM 

SVSLOA 

S.BFHD 

S.COST 

S.FDB 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

S.TSEF 

TKTCB 

TMREFL 

T.LDV 

T.RCVL 

U.OCB 

WAIT 

W0RK5P 

XtSMCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

7F.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 


000001 
000000 


=  000000 

=  *  *  **t  * 

=  000001 
=  000000 
=  000003 
=  000002 

0013^6  R 
=  000200 
=  000100 

=  00000-; 

=  OOOOAO 

=  000020 

=  000010 

=  000001 

=  000002 

=  000040 
000032  RG 
000034  RG 

=  000001 

=  000000 

=  000020 
000001 

=  ooouo 

000000 

000004 

000002 

000003 
=  000002 

000014  RG 
=  000003 

000044 

000012 

000000 

001360  R 

001406  R 


001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 


REFERENCES 

/'6-83 
#6-83 

6-54 

6-84 

6-84 

6-62 
#6-83 
#6-83 
#6-83 
#6-83 
#8-202 
#6-85 
#6-85 
#6-85 
#6-85 
#6-85 
#6-85 
#6-85 
#6-85 
#6-85 
#8-244 
#8-245 
#6-83 
#6-83 

8-221 
#6-85 

8-166 
#6-85 
#6-85 
#6-85 
#6-85 

8-203 
#8-237 
#7-115 

9-285 

9-359 

9-286 
#8-203 
#8-215 

6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 


8-186 
6-84 

9-340 


8-231 
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9-273     9-407 


9-400 
12-674 


8-221 
8-166 


9-284 
8-202 

12-669 

9-341 

13-719 

6-84 


9-358 
8-203 


13-723 


12-668 
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000000 


?49 

?50 

251 

252 

25S 

25^. 

255 

256 

257 

258 

259 

260 

261 

262 

263 

26^ 

265 

266 

267 

268 

269  000000 

270 

271  000020 

272 

2Ti 

27h 

275 

276 

277 

278 

279 

280 

281 

282 

283 

28'^ 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

505 


.SBTTL  MLD 


Microcode  Loader  Main  Routine 


.PSECl  MLDCOD,I,RO,REL,OVR,LCL 

••*  MLD  '*• 


Function: 


Inputs: 


Outputs: 


This  program  is  used  service  requests  from  DECnet  deuice, 
drivers  tor  specific  microcode  files  (KSX-lIM)  or  partitions 
(RSX-11S). 

No  explicit  inputs.  The  task's  receive  h'sthead  in  the  TCB 
shi;uld  be  non-empty  when  the  task  begins  execution.  Load 
requests  in   queued  to  this  list  by  AUX  upon  request  from 
device  drivers. 

No  explicit  outputs.  MLD  will  perform  a  single  load  session 
with  each  driver  that  has  made  a  request.  Reqjests  in 
handled  FIFO  with  no  multiplexing. 


Assign  LUN  to  network  management 

If  system  is  RSX-11M  ... 

If  system  is  RSX-11M-PLUS 
And  not  P/OS 

Initialize  executive  vector  table 

Branch  if  no  error 

Else  ,  c lean  up  and  exit 


Initialize  FCS  impure  area 

Get  our  TCB  address 

Get  our  load  device  UCB  address 

Get  load  device  DCB  address 

Copy  load  device  name 

Compute  relative  UCB  address 

Get  UCB  length 

Compute  relative  unit  number 

Compute  absolute  unit  number 

Clear  high  byte 

Copy  it 

Get  address  of  ASCII  unit  number 

Get  conversion  parameters 

Convert  unit  to  ASCI  I 

Complete  the  device  name 

Get  length  of  device  name 

Move  it  to  dataset  descriptor 

Get  address  of  directory  ASCII  string 
Get  binary  network  UK  from  SYSCM 
Suppress  leading  zeros,  include  "[,]" 
Convert  UK  to  ASCII 
Compute  length  of  ASCII  UK 


MLD: 

ALUNSS 

#EVTLUN,#"NM,#0 

1$! 

.IFT 

; 

.IF 

DF  R$$MPL 

.IF 

NDF  R$$PRO 

DIRS 

#GINVEC 

BCC 

2$ 

CALL 

A60AST 

2$: 

.ENDC 

;  NDF  R$$PRO 

.ENDC 

;  DF  R$$MPL 

FINJTS 

MOV 

aTKTCB,RO 

MOV 

T.LDV(RO),R0          ; 

MOV 

U.DCB(R0),R3 

MOV 

D.NAM(R3),FILDEV 

sua 

D.UC8(R3),R0 

MOV 

D.UC8L(R3),R1 

CALL 

$DJV 

ADD 

D.UN1T(R5),R0 

BIC 

#177400, RO 

MOV 

R0,R1                ; 

MOV 

#FILDEVt2,R0          ; 

MOV 

*CVTPRM,R2 

CALL 

SCBTA 

MOVB 

#':,(R0)* 

SUB 

#F!LDEV,R0 

MOV 

RO.DSDS 

MOV 

#FILDIR,R2           ; 

MOV 

aNTUK,R3 

CLR 

R4 

CALL 

.PPASC 

SUB 

#F1LDIR,R2 

MLD 
MLD 
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1^4 
145 
146 
U7 
U3 
149 
150 
151 
152 
153 
154 
155 

156  000014 

157  000014 

158  000022 

159  000026 

160  000030 

161  000034 

162  000042 

163  000046 

164  000052 

165  000056 

166  000062 

167  000066 

168  000074 

169  000076 

170  000104 

171  000120 

172  000126 

173  000132 

174  000144 

175  000156 

176  000162 

177  000164 

178  000200 

179  000212 

180  000224 

181  000230 

182  000254 

183  000500 
C00326 

_  000352 

186  000356 

187  000362 

188  000566 

189  000372 

190  000400 
191 


184 
185 


.SBTTL  SUPPVC  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 

♦**  -  SUPPVC  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 

INPUT: 

R5  -  TEMPLATE  ADDRESS 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


012767  OOOOOOG  OOOOOOC 

010567  OOOOOOG 

005725 

010567  OOOOOOG 

012767  177777     OOOOOOG 

012700  OOOOOOG 

012701  000000' 

012702  000010 
004767  OOOOOOG 
010067  OOOOOOG 
026527  177776G  015355 
001033 

162767  000002     OOOOOOG 

112777  000055     OOOOOOG 

005267  OOOOOOG 


SUPPVC: 


005367  OOOOOOG 
000406 


C04767  000152 


10S: 
20S: 


016701  OOOOOOG 

'62701  OOOOOOG 

010167  OOOOOOC 

004767  OOOOOOG 

012767  OOOOOOG  OOOOOOC 
000207 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CMP 

BNE 

SUB 

SPTR50 

MOVB 

INC 

SPTNM8 

SPTNMS 

DEC 

BR 

$PTR50 

SPTNUH 

iPTNUM 

CALL 

SPTNUM 

SPTNUM 

$PTR50 

SPTNMS 

MOV 

sue 

MOV 
CALL 
MOV 
RETURN 


*.8UFF,S0FDB+F.NRBD+2 

R5,.TEHP 

(r5)  + 

R5, .FLAGS 

#-1,. COMMA 

#.8UFF,R0 

#PVCDF,R1 

#PVCLN,R2 

SMVASC 

RO.SOBUF 

P$V0WN-2(R5) 

10$ 

#2,. COMMA 

#P$VNAM,#1 

#'-,aS0BUF 

SOBUF 

#P$VNAM+2 

#P$VNAM+3 

SOBUF 

20S 

*PSVNAM,#2 

#P$VLCN 

*P$VCT 

SETSTA 

#P$VPSZ 

#PSVWSZ 


SET  NEW  OUTPUT  BUFFER 
SAVE" TEMPLATE  ADDRESS 

POINT  TO  c.srs 

SAVE  ADDRESS  OF  FLAGS  WORD 
INITIALIZE  FOR  OPTIONS 
POINT  AT  START  OF  OUTPUT  BUFFER 
PP'NT  AT  START  OF  PVC  DEFINITION 
G   LENGTH  OF  PVC  DEFINITION 
MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 
SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 
#*RDLM  ;  IS  THIS  A  DLM  PVC  ? 
IF  NE,  NO 

SUPPRESS  FIRST  3  COMMAS 
OUTPUT  DEVICE  NAME 
DELIMIT  CONTROLLER  NUMBER 
ADVANCE  BUFFER  POINTER 
CONTROLLER  NUMBER 


TRIB  NUMBER 

BACK  OVER  DECIMAL  POINT 

JOIN  COMMON  CODE 

NAME 

CHANNEL  NUMBER 

COUNiER  TIMER 

STATE 

;   BLOCK  SIZE 
;    WINDOW   SIZE 
#PSV0WN;#1,*PV$0WN   ;    OWNER 
itrPSVFLG, OCTAL, #CS.FLG    ;    FLAGS 

CALCULATE   LENGTH  OF   BUFFER 


,*PV$PSZ 
(dPVSWSZ 


SOBUF, r1 
#.BUFF,R1 
Rl,$OFDBtF.NRBD 
SWDATA 


SET  LENGTH  OF  BUFFER 

WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 


#$euFI.S0FDB+F.NR8D+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 
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CREF        0^.00 


SYMBOL 

VALUE 

REFERENCES 

C.ADR 

000010 

#5-140 

6-174 

C.LEN 

= 

000022 

#5-' 41 

C.NAM 

OOOOOA 

#5-159 

6-173 

F.NRBD 

- 

****** 

GX 

•6-163 

•6-177 

•6-179 

ROTDF 

000000 

R 

#5-144 

5-145 

6-169 

RDTLN 

= 

000010 

#5-145 

6-170 

SBUFl 

r 

**t*** 

GX 

6-179 

SMVASC 

= 

****** 

GX 

6-171 

SOBUF 

~ 

****** 

GX 

♦6-172 

6-175 

SOFDB 

r 

****** 

GX 

•6-163 

•6-177 

•6-179 

$PTR50 

= 

****** 

GX 

6-173 

6-174 

SUPRDT 

000010 

RG 

#6-162 

SWDATA 

- 

****** 

GX 

6-178 

.BUFF 

= 

****** 

GX 

6-163 

6-168 

6-176 

.COMMA 

= 

GX 

•6-167 

.FLAGS 

= 

****** 

GX 

•6-166 

.TEMP 

= 

****** 

GX 

•6-164 

UPORO' 
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Symbol  table 


ADD2 

BUFF 

CS.FIL= 

CS.REM= 

CS.SER= 

C.ADO 

C.LEN  = 

C.NAM 

C.STS  = 

EXIT 

F.NRBD= 

LA 

RA 

REMDEF 

.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000026R 
000035R 


GX 
GX 
GX 


GX 


****** 

****** 

****** 

000010 

000012 

000004 

****** 

000036R 

******  GX 

00007A 

000076 

000002R 

000056 
000572 
0000A2 
000000 
000000 


002  REMDF 
REMKTB 
REMLEN= 
REMLN  = 
REMSTB 
SETADD 
SETARE 
SETNAM 
SSADD 

002  SSCIR 
SSDEV 
SSDPA 
SSDPC 


000023R 

OOOOOORG 

000020 

000010 

OOOOOORG 

000444R 

000404R 

000342R 

000006 

000022 

000032 

000050 

00005A 


S$FLG 
003  S$HAD 
SSHST 
S$LEN  = 
002  S$PSS 
TEMP 
UPDLL 
$ALPHA= 
$ANY  = 

$blank;= 

$BUFI  = 
$CNVD  = 
$C5TA  = 


000004 

000012 

000010 

000056 

000034 

OOOOOOR 

000476R 

000022 

000020 

000006 

******  GX 

******  GX 

»«***♦  GX 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


**♦  Assembler  statistics 


Work  file  reads: 
Work  f i  le  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


0 

0 

10456  Words 

14440  Words 

RSX-11M/PLUS 


(  41  Pages) 
(  55  Pages) 
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$DIGIT= 
$DNUMB= 
$EOS  = 
$ERROR= 
$EXIT  = 
$FAIL  = 
$LAMDA= 
$MOVPT= 
$MVASC= 
$NUMSR= 
SOBUF  = 
SOFDB  = 
$RAD50= 


000024 
000014 
000012 
****** 
000000 
■\77777 
000000 
****** 
****** 

000002 
****** 

****** 

000016 


GX 


$SA\/RG= 

$STRNG= 

$SUBXP= 

$THLST= 

$UPFIL= 

SUPREM 

$UPSER= 

$WDATA= 

$$$FL6= 

$$$KEY= 

$$$STA= 

.CONER= 

.TPARS= 


******  GX 
000004 
000010 
**«♦♦*  GX 
******  GX 
0001 54RG 
******  GX 
******  GX 
V7777 
\77777 
000000 
******  GX 
******  GX 


SV:UPDREm!v2![i'32?134]UPDREM/CR/-SP=SY:[1,1]RSXMCM.SML/ML,C130,110]NETUB/ML,[132,10]UPDREM 


UPDREM 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CS.MOD 

=   *■»■***» 

r,x 

6-184 

CS.ROU 

=   ****** 

GX 

6-177 

C.ACST 

000022 

#4-89 

C.ADD 

000004 

#4-82 

6-188 

C.AHOP 

000020 

#4-88 

C.CST 

000006 

#4-83 

CHOP 

000010 

#4-84 

C.LEN 

=  000026 

#4-91 

C.L2TM 

000024 

#4-90 

C.NA 

000014 

#4-86 

C.NBEA 

000016 

#4-87 

C.RTM 

000012 

#4-85 

C.STS 

-   ****** 

GX 

6-177 

6-184 

F.NRBD 

=  ****** 

GX 

*6-186 

ROUKTB 

000000 

RG 

#5-100 

6-192 

ROUSTB 

000000 

RG 

#5-100 

6-193 

SETNUM 

000122 

R 

#7-219 

TEMP 

000000 

R 

#4-73 

♦6-183 

SALPHA 

=  000022 

#5-100 

$ANY 

=  000020 

#5-100 

SBLANK 

=  000006 

#5-100 

SBUfI 

=  ****** 

GX 

6-186 

SCNVD 

:;  ****** 

GX 

7-224 

SDIGIT 

=  000024 

#5-100 

SDNUMB 

=  000014 

#5-100 

$EOS 

=  000012 

#5-100 

SERROR 

=   ****** 

GX 

»6-196 

SEXIT 

=  000000 

#5-100 

SFAIL 

=  177777 

#5-100 

$GPRM 

=  ****** 

5-100 

SLAMDA 

=  000000 

#5-100 

SMOVST 

=    ****** 

GX 

6-189 

SNUMBR 

=  000002 

#5-100 

SOSUF 

=  ****** 

GX 

7-220 

*7-225 

$OFt)B 

=   ****** 

GX 

*6-186 

$RAD50 

=  000016 

#5-100 

SRONLY 

-  ****** 

5-100 

5-100 

SSTRNG 

=  000004 

#5-100 

SSUBXP 

=  000010 

#5-100 

STMLST 

=      ****** 

GX 

6-175 

lUPROU 

000002 

RG 

#6-172 

$$$FLG 

=  ]77777 

#5-100 

SSSKEY 

=  177777 

#5-100 

.CDNER 

=   ****** 

GX 

6-202 

.TPARS 

-  ****** 

GX 

6-194 

♦  6-15 


7-221 


*7-223 


5-100 


UPDROU 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


F.NRBD 

PH3TXT 

PUTFLG 

PUTNOD 

PUTOCT 

PUTR50 

SERDF 

SERIN 

SF.\DO 

SF.CIR 

SF.DEV 

SF.DPA 

SF.DPC 

SF.HAD 

SF.HST 

SF.PH3 

SF.PSS 

S$ADD 

S$CIR 

SSDEV 

SSDPA 

S$DPC 

SSFLG 

S$HAD 

S$HST 

SSLEN 

SSPSS 

$CBTA3 

SCNVO 

$C5TA1 

SMVASC 

$OBUF 

SOFOB 

SSAVRG 

SUPSER 

SWOATA 

.BUFF 

.FLAGS 

.TEMP 


GX 


****** 

000010  R 

000510  R 

000266  R 

000A42  R 

000366  R 

000000  R 

000010 

000001 

000010 

000020 

000100 

000200 

000004 

000002 

000400 

000040 

000006 

000022 

000032 

000050 

000054 

000004 

000012 

000010 

000056 

000034 

******  GX 

******  GX 
:  ******  GX 
■  ******  GX 
:  ******  GX 


GX 
GX 

000020  RG 

GX 

GX 

GX 

GX 


*■****♦ 


»**♦** 


REFERENCES 

5-107 
#4-57 

5-142 

5-118 

5-133 

5-124 
#4-55 
#4-56 
#4-82 
#4-85 
#4-86 
#4-88 
#4-89 
#4-84 
#4-83 
#4-90 
#4-87 
#4-69 
#4-72 
#4-73 
#4-75 
#4-76 
#4-68 
#4-71 
#4-70 
#4-77 
#4-74 

8-241 

6-185 

7-215 

5-115 
•5-116 

*9-277 

5-107 
5-106 
#5-105 
5-153 
5-108 

*5-111 

*5-109 


*5-108 
5-143 

#9-263 
5-121 
5-136 
5-127 
4-56 
5-114 
5-119 
5-125 
5-128 
5-134 
5-137 
5-140 
5-122 
5-143 
5-131 
5-119 
5-125 
5-128 
5-134 
5-137 
5-110 
5-140 
5-122 

5-131 

6-189 


5-146 
»5-108 


5-112 
6-176 
6-173 


•5-152 


#6-171 

#8-233 

5-130 

5-113 
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•5-154 

5-139  #7-206 


6-172 
•5-152 


5-151 
7-212 
7-208 


•6-191 
•5-154 


8-239 
8-236 


7-211 


9-266 


♦7-218 


8-234 


•8-244 


9-263 


UPDSER 
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UPDSLi  - 
ETCNT  - 

351 
352 
353 
35^ 
355 
356 
357 
358 
359 
360 
361 
362 
363 
36A 
365 
366 
367 
368 
369 
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CHECK  THE  CONTROLLER  NUMBER 

.SBTTL  SETCNT  -  CHECK  THE  CONTROLLER  NUMBER 
'♦*♦  -  SETCNT  -  CHECK  THE  CONTROLLER  NUMBER 
INPUT: 


000540 
000540 
000544 
000550 
000556 
000560 
000564 


004767 
016700 
126760 
001402 
062716 
000207 


OOOOOOG 
OOOOOOG 
OOOOOOG  000010 

000002 


OUTPUT 


SETCNT: 


.PNUMB  =  CONTROLLER  NUMBER 
C-BIT  =  SUCCESS/FAILURE 


10$: 


CALL 

SMOVPT 

MOV 

.TEMP.RO 

CMP6 

.PNUMB, C 

BEQ 

10$ 

ADD 

#2,(SP) 

RETURN 

;  MOVE  THE  CONTROLLER  NUMBER  INTO  THE  OUTPUT  BUFFER 
;  GET  STAf(T  OF  TEMPLATE 
CNT(RO)  ;  IS  THIS  THE  RIGHT  TEMPLATE  ? 
;  IF  EQ,  YES  ..  OKAY 
;  ELSE,  REJECT  THE  TRANSITION 


UPDSLT  -  CFE  UPDATE  SLT  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05 
■^FTiINT  -  rHFfK  THE  UNIT  NUMBER 
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SUPSTA  -  UPDATE  STATION  DEFINITION 


05:57 
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161 
162 
163 
16^ 
165 
166 
167 
168 
169 
170 
171 
172 

173  000036 

174  000036 

175  0000A2 

176  00004A 

177  000046 

178  000050 

179  000056 
180 

181 
182 

183  000060 

184  000062 

185  000066 

186  000074 

187  000076 

188  000104 

189  000106 

190  000112 

191  000114 

192  000116 

193  000122 

194  000126 

195  000132 

196  000134 

197  000140 

198  000142 
199 

200 
201 
202  000144 


.SBTTL  SUPSTA  -  UPDATE  STATION  DEFINITION 
*♦♦  -  SUPSTA  -  UPDATE  STATION  DEFINITION 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


012700 
010001 
011000 
001436 
122760 
001371 


011011 
010067 
032760 
001004 
012767 
000416 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPSTA: 
10S: 


OOOOOOG  OOOOOOG 


177712 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOC 

OOOOOOG 


MOV 

MOV 

MOV 

BEQ 

CMPS 

BNE 


#STMLST 

RO.RI 

(RO),RO 

101$ 

#CS.STA,C 

lOS 


RO 


STS(RO) 


000000' 
000000' 
OOOOOOG 

OOOOOOG 


•  ASSUME  THIS 

IS  THE  RIGHT  TEMPLATE 

MOV 

(R0),(R1) 

MOV 

RO.TEMP 

BIT 

#CS.MOD,C.STS(R0) 

BNE 

15$ 

MOV 

#$BUFI,S0FDB+F.NRBD+2 

BR 

30$ 

15$: 

CALL 

$MOVST 

MOV 

R5,-(SP) 

CLR 

R1 

MOV 

#STA(<TB,R2 

MOV 

#STASTB,R5 

CALL 

. TPARS 

BCC 

20$ 

INC 

$ERROR 

20$: 

MOV 

(SP)+,R5 

30$: 

RETURN 

;  ERROR 

CONDITIONS 

POINT  AT  START  OF  TEMPLATES 

SAVE  CURRENT  TEMPLATE  ADDRESS 

GET  NEXT  TEMPLATE 

IF  EQ,  NOT  FOUND 

IS  THIS  A  STATION  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 


CLOSE  UP  LIST 

SAVE  TEMPLATE  ADDRESS 

UAS  THIS  TEMPLATE  MODIFIED  ? 

IF  NE,  YES  ..  UPDATE  THE  RECORD 

ELSE,  OUTPUT  THE  INPUT  LINE 

AND  LEAVE 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


000167  OOOOOOG 


CONSISTENCY  ERROR 
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UPDSVC  -  UPDATE 
MACRO  CALLS  AND 

57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000000 

112  000000 
M3 
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LOCAL  DATA 

.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
.SBTTL  MACRO  DEFINITIONS 


LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 


.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRIiT 

MERIC  FROM  TEMPLATE  TO  OUTPU 

.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS,OCTL,OPT 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  N8 

<OCTL> 

MOV 

SP,R1 

.IFF 

CLR 

R1 

.ENDC  . 

IF  N8  <OCTL> 

CALL 

'ROU 

.IFT   . 

IF  NB  <OPT> 

.ENDC  . 

IF  NB  <OPT> 

.ENDM  , 

•ROU 

.ENDM  , 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNMB 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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155 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
16A 

165  000000 

166  000000 

167  OOOOOA 

168  000006 

169  000010 

170  000012 

171  000020 
172 

173 
174 

175  000022 

176  000024 

177  000030 

178  000032 

179  000036 

180  000042 

181  000044 

182  000050 

183  000052 

184  000056 

185  000062 

186  000066 

187  000070 

188  000074 

189  000076 

190  000102 
191 

192 
193 
194  000104 


.SBTTL  $UPUNT  -  UPDATE  UNIT  DEFINITION 
«*»  -  SUPUNT  -  UPDATE  UNIT  DEFINITION 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


C-BIT    =   SUCCESS/FAILURE 


012700 
010001 
011000 
001435 
122760 
001371 


011011 
010067 
005720 
010067 
004767 
010546 
005067 
005001 
012702 
01.^705 
Of  67 
1  J2 
0io267 
012605 
004767 
000207 


OOOOOOG 


0000006  OOOOOOG 


OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 

OOOOOOG 


SUPUNT: : 

MOV  #$TMLST,RO  ;  POINT  AT  TEMPLATE  LIST 

10$:    MOV  R0,R1  ;  SAVE  ADDRESS  OF  CURRENT  TEMPLATE 

MOV  (r6),R0  ;  GET  NEXT  TEMPLATE 

BEQ  101$  ;  IF  EQ,  END  OF  TEMPLATES 

CMPB  #CS.UNi,C.STS(RO)  ;  IS  THIS  A  UNIT  TEMPLATE  ? 

BNE  10$  ;  IF  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


20$: 
30$: 


MOV 

MOV 

TST 

MOV 

CALL 

MOV 

CLR 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

CALL 

RETURN 


(R0),(R1) 

RO,.TEMP 

(R0)  + 

RO, .FLAGS 

$MOVST 

R5,-(SP) 

.COMMA 

R1 

#UNTKTB,R2 

#UNTSTB,R5 

.TPARS 

20$ 

$ERROR 

(SP)+,R5 

$CLNUP 


000167  OOOOOOG 


ERROR  CONDITIONS 
101$:   JMP     .CONER 


REMOVE  TEMPLATE  FROM  LIST 

SAVE  TEMPLATE 

POINT  TO  C.STS 

SAVE  FOR  OPTION  TESTING 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

SETUP  FOR  OPTIONS 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 

CALCULATE  BUFFER  LENGTH 


CONSISTENCY  ERROR 


UPDUNT  -  CfE  UPDATE  UNIT  DEFINI  MACRO  V05.05b  Saturday  29-Jun-85  05; 
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Table  ot  contents 

4-  57    MACRO  CALLS  AND  LOCAL  DATA 

5-  145    $UP)(2P  -  UPDATE  X.25  LEVEL  2  PROTOCOL  DEFINITION 

6-  181    SETLIN  -  SET  LINE  ID 
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MACRO  CALLS  AND  LOCAL  DATA 

115  '  .MACRO  $PTR50  OFS.WC 

116  MOV  OfS,R2 

117  MOV  WCRI 

118  CALL    $PTR50 

119  .ENDM 
120 
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LOCAL  DA'A 


UPDX3P  CREATED  BY     MACRO     ON  29-JUM-85  AT   05:59 

SYMBOL    CROSS   REFERENCE 


SYMBOL   VALUE 


C.CT 

C.DFP 

C.DW 

C.KM 

C.KT 

C.LEN 

C.MW 

C.MXP 

C.RM 

CRT 

C.SM 

C.ST 

F.NRBD 

X3PDF 

X3PLN 

SBUFI 

SMVASC 

SOBUF 

SOFDB 

$PTNMB 

SPTNUM 

$UPX3P 

SUDATA 

.BUFF 

.COMMA 

.FLAGS 

.TEMP 


000012 
OOOOOA 
000010 
000016 
000013 
=  000021 
000011 
000006 
000017 
000014 
000020 
000015 

-  ****** 

000000 

=  000010 

r  ****** 

-  ***•*♦ 


GX 


GX 
GX 
GX 
GX 
GX 
GX 


**«•♦* 
*♦♦♦♦♦ 
****** 

000010  RG 

******  GX 

******  GX 

******  GX 

***♦*•  GX 

»♦♦♦•*  GX 


REFERENCES 

#4-132 
#4-128 
#4-130 
#4-136 
#4-133 
#4-139 
#4-131 
#4-129 
#4-137 
#4-134 
#4-138 
#4-135 
*5-160 
#4-142 
#4-143 

5-185 

5-168 
*5-169 
•5-160 

5-172 

5-170 
#5-159 

5-184 

5-160 
♦5-164 
»5-163 
♦5-161 


5-174 
5-170 
5-172 
5-178 
5-175 

5-173 
5-171 
5-179 
5-176 
5-180 
5-177 
♦5-183 
4-143 
5-167 


5-181 

♦5-183 

5-173 

5-171 


5-165 
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CREF        04.00 


♦5-185 
5-166 


♦5-185 
5-174 


5-182 


5-175 


5-176 


5-177 


5-178 


5-179 


5-180 


UPDX3P 
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365  000372 

36A  000376 

365  00040A 

366 

367 

368 

369  000406 

370 

371  000410 

372  0004U 

373  000A20 

374  000424 
375 

376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 

388  000426 

389  000432 

390  000434 
391 

392 
393 

394  000440 

395  000444 
396 

397 
398 

399  000450 

400  000452 

401  000456 
402 

403  000460 

404  000466 

405  000474 
406 

407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 


010167  001376' 
026127  000010  002026 
001554 


016704  001364' 
005C67  001364' 


40$: 


40$: 


016704     001376'  50$: 

001461 

116403     000006 


016705     001364' 
010565     000006 


006505 

067703  177554 

011303 

116567  000002  001400' 

016567  000004  001404' 

116567  000012  001402' 


MOV 
CMP 
BNE 

.IF 

RETURN 

MOV 
CALL 
CLR 
RETURN 

.IFF 

RETURN 

.ENDC 


RI.CURQST 

C.FNC(R1),#FC.MLDtfS.RLB 

15$ 


DF 


N$$UMR 


LD8PTR,R4 

SLDBRT 

LD8PTR 


Save  address  of  CCB 

Is  this  a  microcode  load  request? 

Branch  it  not 

I t  system  has  UMRs  . . . 

Return  to  user  state  at  "50$" 

Get  address  of  CCB/LDB  pair 
Return  CCB  and  LDB  to  pool 
LDB  no  longer  avai lable 
Return  to  user  state  at  "50$ 

If  system  has  no  UMRs  . . . 

Return  to  user  state  at  "50$" 

End  UMR  conditional 


If  a  load  request  has  been  successfully  dequeued,  look  up  all 
necessary  information  for  dispatches  to  the  device  driver..  This 
lookup  is  done  once  to  save  a  search  each  time  a  dispatch  is  needed. 


Get  address  of  current  request 

Branch  it  none 

Get  system  line  number 

If  system  has  UMRs  ... 

Get  address  of  CCB/LDB 
Stuff  in  system  line  number 

End  UMR  conditional 

Form  a  word  index  with  SLN 

Get  pointer  to  SLT  vector  address 

Get  address  of  SLT  vector 

Get  driver's  PDV  index 

Save  driver's  line  table  address 

Save  device  controller  number 

If  system  is  RSX-11Mt  ... 


MOV 
BEQ 
MOVB 

CURQST,R4 

90$ 

C.LIN(R4),R3 

.IF 

DF     N$$UMR 

MOV 
MOV 

LDBPTR,R5 
R5,C.LIN(R5) 

.ENDC 

ASL 
ADD 
MOV 

R3 

aSLTMA,R5 

(R3),R3 

MOVB 

MOV 

MOVB 

L.DDM(R3),PDVIDX 
L.DDS(R5),DDMT8L 
L.CTL(R3),CTLNUM 

.IF 


DF 


R$$MPL 


On  RSX-11Mt  systems  with  multiple  CPUs,  we  must  make  sure  that 
MLD  is  running  on  the  same  processor  that  the  device  to  be  loaded 
is  on.  Get  the  UNIBUS  run  mask  of  the  device  from  the  KRB  data 
structure  pointed  to  by  the  SLT  entry  for  the  line. 


TSTB  aNCPU 

BEO  60$ 

MOV  L.KRBA(R3),R2 

RMAF$S 


More  than  one  CPU  in  configuration? 
Branch  if  not 

Get  controller  request  block  address 
Remove  previous  CPU/UNIBUS  affinity 
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Load  Control  for  RSX-11M  Systems 


931 

912 

933 

95'. 

93i 

936 

937 

938 

939 

9A0 

941 

9A2 

943 

94A 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

9c8 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 


.SBTTL  SLOAD   -  Load  Control  for  RSX-11S  Systems 
•*•  SLOAD  **♦ 


Function: 

Call  format: 
Inputs: 

Outputs  : 


To  control  microcode  load  sequences  on  RSX-11S  systems.   . 

This  routine  segments  a  microcode  partition  into  4K  word  pieces 

for  dispatch  to  the  device  driver  and  maintains  the  load  seq- 
uence counterCs)  and  status. 


CALL 


SLOAD 


PCaADR  =  address  of  partition's  PCB 
n't  =   address  of  "load  request"  CCS 

Load  sequence  ended 

R3  =  load  halt  status 

R4  =  address  of  "halt  load  CC8 


Registers:    RO  through  R5  are  destroyed 


SLOAD:  MOV 
MOV 
ADD 

10$:    MOV 


20$: 
30$: 


#N8UfS,R0 
#BL0CK.R2 
#C.8UF1,R4 

(R2)+,(R4)+ 

#140000, (R4)H 

#177, R3 

R3.(R2) 

20i 

R3,(fi2) 

30$ 

(R2),R3 
(R2) 


R3, 

6 

R3 


■(R2) 


40$: 


50$: 


R3,(R4)t 
(R4)  + 
8L0CK+2 
40$ 
R0,10$ 

#CF.LS,-'R4) 

CURQST,R4 

DSPDRV 

50$ 

BLOCK+2 

SLOAD 

R3 


RETURN 


Set  up  a  loop  counter 

Get  address  of  load  control  words 

Point  at  first  CCB  buffer  descriptor 

Copy  bias  of  next  partition  segment 
Starting  address  is  virtual  0  (APR6) 
Assume  segment  size  =177*32  =4k  words 
Is  that  greater  than  what's  left? 
Branch  it  so  and  do  some  adjusting 
Compute  #  32-word  blocks  left  to  load 
Branch  to  common  code 

Load  segment  size  =  partition  remnant 
No  data  left  to  load 

Compute  bias  of  next  load  segment 
Compute  number  of  bytes  to  load 
from  number  of  32-word  blocks 
in  current  load  segment 
Move  segment  size  in  bytes  to  CCB 
Clear  CCB  flag  word 
Has  end  of  partition  been  reached? 
Branch  if  so 
Loop  around  if  more  to  load 

Mark  last  descriptor  as  last  buffer 

Retrieve  starting  address  of  CCB 

Call  driver  to  load  microcode 

Branch  if  driver  halted  the  load 

Ha?  the  entire  partition  been  loaded? 

Branch  if  not 

Load  halt  status  =  end  of  data 

Exit 
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CREF       OA.OO 


SYMBOL      VALUE 


ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PC8 

Z.SCH 

SBLXIO 

SCBTA 

SCCBRT 

$DIV 

SEDMSG 

SLDBGT 

SLDBRT 

$NTUU 

SPARHD 

SPDSPL 

SPDVTA 

SQRMVF 

tRDBSZ 

SSLTMA 

SSTDDM 

STKTCB 

$$$ARG 


=  OOOOAO 

=  002000 

=  010000 

=  000200 

=  000000 

=  100000 

=  uoooo 

0000  K 
000016 
000000 
000010 
=  000016 
000006 
000020 
OOOOO-i 
000012 
000007 

-  ****** 

~  ****** 

r  ****** 

r  ****** 

=  ****** 

=  *****  * 

r  ****** 

=  ****** 

=  ****** 


-  ****** 
r  ****** 


-  ****** 

-  ****** 


000002 


$$$GLB 

$S$T1 

.CLOSE 

.FINIT 

.FSRCB 

.OPEN 

.PPASC 

.READ 

.WAIT 

...PCI 

...PC2 


=  000067 

=  *  *  t  **♦ 
-  *♦**•♦ 


ooow, 

00030^ 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


G 

G 

G 

G 

GX 

G 

G 
R 
R 


REFERENCES 

#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 

8-230 

9-296 

8-238 

9-290 

1 1 -609 

8-239 

8-240 

8-234 

8-235 

8-241 

8-242 

8-236 

8-243 

8-244 

8-245 

8-237 
#11-617 

11-617 

11-617 

11-617 

11-617 

8-202 
#14-765 

12-651 

9-285 

8-221 

14-765 

9-304 

15-794 

15-796 
#8-166 
#8-168 

8-169 


6-84 


11-604 


13-721 


11-617 

11-617 

11-617 

11-617 

11-617 

8-203 

14-765 

12-651 

9-283 

14-765 

15-794 
15-796 
8-168 
8-168 
#8-170 


#11-617 

#11-617 

11-617 

11-617 

11-617 

14-765 
15-808 


8-169 

#8-169 

8-170 


11-617 
11-617 
11-617 
11-617 
11-617 

14-765 
15-808 


8-169 

8-169 

#8-170 


#11-617 
11-617 

#11-617 
11-617 
11-617 

#15-794 


8-169 

#8-169 

8-170 


11-617 
11-617 
11-617 
11-617 
11-617 


#11-617 
11-617 
11-617 

#11-617 
11-617 


11-617 
11-617 
11-617 
11-617 
11-617 


#11-617 
11-617 
11-617 
11-617 


15-794 

15-794 

15-794 

8-169 

8-170 

8-170 

8-169 

#8-169 

8-169 

#8-169 

MLD 
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H  15 


005067     000156' 


005067     000U4' 
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306 

307 

308 

309 

310  000020 

311 

312 

313 

3U  00002A 

315 

316 

317 

318  000030 

319  0000A2 
320 
321 
322 
323 
324 
325 
326 
327 
328 

329  000054 

330  000060 
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MOV 

R2,DSDS»4 

.IFTF 

CLR 

CURQST 

.IF 

DF      N$$UMR 

CLR 

LD8PTR 

.ENDC 

SPRA$S 
SREASS 

/KPWRAST 
*A80AST 

.IF 


DF 


N$$UMR 


Moi/e  length  to  dataset  descriptor 

For  any  operating  system  .. 

No  load  request  outstanding 

If  system  has  UMRs  ... 

No  large  data  buffer  yet 

End  UMR  conditional 

Specify  AST  for  powerfail  reco\iery 
Specify  AST  for  requested  aborts 

If  system  has  UMRs  ... 


331  00006A 

332  000066 
533  000072 

334  000100 

335  000106 
336 

337  OOOIU 

338  000116 

339  000122 

340  000124 

341  000132 

342  000140 
343 

344 
345 
346 
347 
348 
349 
350 
351 
552  000142 

555  000146 

354  000152 

355  000154 

556  000160 
357 

358  000164 

559  000170 

560 

361  000174 

562  000200 


103413 

010467  000144" 

016467  000014  000146' 

016467  000016  000150' 

012764  001026  000010 


005767  000144' 
001007 


000745 


016704  000156' 
001404 

005067  000156' 

017700  000602' 

062700  000012 


105407 


In  order  to  guarantee  that  devices  which  DMA  in  their  own  microcode 
can  access  the  microcode,  allocate  a  large  data  buffer  before 
continuing.  LDBs  are   always  UMR-mapped  it  the  system  has  UMRs. 


Switch  to  system  state 
Allocate  a  UMR-mapped  buffer 
Branch  if  failure 
Save  address  of  CCB/LDB 
Save  LBD's  mapping  bias 
Save  LDB's  starting  address 
LDB  used  only  for  writes 

Return  to  user  state  at  "7$" 

Was  an  LDB  allocated? 

Branch  if  so 

Set  a  timer 

Wait  for  timer  to  expire 

Attempt  LDB  allocation  again 

End  UMR  conditional 


5$: 

CALL 

$SWSTK,7$ 

CALL 

aLDBGT 

BCS 

6$ 

MOV 

R4,LDBPTR 

MOV 

C.8UF1(R4),LD8IAS 

MOV 

C.6UF1+2(R4),LDBADR 

MOV 

#FC.MLDtFS.WL8,C.FNC(R4) 

6$: 

RETURN 

7$: 

TST 

LD8PTR 

BNE 

lOS 

DIRS 

*SETTMR 

DIRS 

#WAIT 

BR 

5$ 

.ENDC 


Enter  system  state  to  dequeue  a  CCB  from  our  TCB  receive  list. 
Each  CCB  is  a  load  request  queued  to  MLD  by  AUX  on  behalf  of 
a  DECnet  device  driver. 


10S; 
15$: 

CALL 

MOV 

BEQ 

CALL 

CLR 

$SWSTK,50$ 
CURQST, R4 
20$ 

aCCSRT 
CUROST 

20$: 

MOV 
ADD 

aT<TC8,R0 
#T.RCVL,RO 

30S: 

CALL 
BCS 

aORMVF 
40$ 

Switch  to  system  state 
Get  current  request  CCB 
Branch  if  none  there 
Return  CCB  to  its  pool 
Request  no  longer  outstanding 

Get  address  of  TCB 

Advance  to  TCB  receive  listhead 

Dequeue  a  load  request  CCB 
Branch  if  no  CCB(s)  queued 
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jPDPv'  -  JPCATE  PERMANENT 
Sf'S'^  -  5t'  STATE 


195 
194 
195 
196 
197 
198 
199 
?00 
201 
202 
i03  000402 

204  000406 

205  000410 

206  000412 

207  000416 

208  000420 
2^«  000422 


H  1 

.'IRTU  MACRO  ,/05.03b  Saturday  29-Jun-85  05:55  Page  7 


.SBTTL   SETSTA  -  SET  STATE 
'♦•  SI   'A  -  SET  STATE 
INPUT:        CURRENT  TEMPLATE. 
OUTPUT:       VALUE  LOADED  INTO  OUTPUT  BUFFER. 


OOOOOOG 


OOOOOOG 


2iu 
211 


0004 :o 

0004 ?4 


212  0004  .'■'■' 


016701 

010^46 

005002 

105761 

001001 

122222 

012767  000010'  OOOOOOG  10$: 

012701  000001 

004767  OOOOOOG 


2'4 
2"5 


000444 


012667 
U00207 

000001 


OOOOOOG 


SETSTA: 

MOV 

.TEMP.RI 

MOV 

R1,-(SP) 

CLR 

R2 

TSTB 

P$VSTA(R1) 

BNE 

10$ 

CMPB 

(R2)+,(R2)* 

10$: 

MOV 

#ONSTR,.TEMP 

MOV 

#1,R1 

CALL 

$PTR50 

MOV 

(SP)+,.TEMP 

20$: 

RETURN 

POINT  TO  TEMPLATE 

SAVE  TEMPLATE  ADDRESS 

ASSUME  STATE  =  ON 

CHECK  STATE 

IF  NE,  ON 

ELSE  STATE  =  OFF 

POINT  TO  START  OF  STRINGS 

ONE  RAD50  WORD 

OUTPUT  RAD50 

RESTORE  TEMPLATE  ADDRESS 


.END 


JPDPv 
Svmbo-. 


-    jPQATE    PERMANENT 
tab'e 


N  1 
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UPDRDT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:55     PAGE  ? 
MACRO  CROSS  REFERENCE  CREF   OA.OO 


NIACRO  NAME 

REFERENCES 

EPRINT 

#A-79 

ERRORS 

#4-68 

=R1NT 

#4-63 

SPTNHB 

#4-112 

SPTNUM 

#4-111 

$PTR50 

#4-116 

6-173 

6-174 

$$$PTN 

#4-9'; 

4-111 

4-112 

N  2 

••F!LE**ID««UPDREM 


Ul  , -^EM  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:55 

SYMBOL    CROSS  REFERENCE 


SYMBOL  VALUE 


BUFF 

CS.KIL 

CS.REM 

CS.SER 

C.ADD 

C.LEN 

C.NAM 

C.STS 

F.NRBD 

LA 

RA 

REMDEF 

REMDF 

REMKTB 

REMLEN 

REMLN 

REMSTB 

SETADD 

SETARE 

SETNAM 

S$ADO 

SSCIR 

SSDEV 

StDPA 

S$DPC 

S$FLG 

SSHAD 

S$HST 

SSLEN 

SSPSS 

TEMP 

UPDLL 

SALPHA 

$ANY 

SBLANK 

$BUFI 

SCNVD 

$C5TA 

IDIGIT 

SDNUMB 

$EOS 

SERROR 

SEXIT 

SFAIL 

SGPRM 

SLAMDA 

SMVASC 

SNUMBR 

$OBUF 

SoroB 

$RAD50 
SRCNL* 


REFERENCES 


000053 

R 

#4-81 

»*♦*♦* 

r,x 

10-309 

****** 

fix 

6-170 

t t **  ** 

GX 

10-299 

000010 

#4-91 

000012 

#4-92 

OOOOOA 

#4-90 

****** 

GX 

6-170 

****** 

GX 

•6-164 

00007-, 

#4-74 

000076 

#4-75 

000002 

R 

#4-77 

000023 

R 

#4-79 

000000 

RG 

#5-120 

000020 

#4-78 

000010 

#4-80 

000000 

RG 

#5-120 

000444 

R 

#9-267 

000404 

R 

#8-241 

000342 

R 

#7-217 

oooc^- 

#4-102 

oor  j 

#4-105 

OOC  ." 

#4-106 

0000 t^ 

#4-108 

000054 

#4-109 

000004 

#4-101 

000012 

#4-104 

000010 

#4-103 

000056 

#4-110 

000034 

#4-107 

000000 

R 

#4-76 

000476 

R 

6-195 

000022 

#5-120 

000020 

#5-120 

000006 

#5-120 

****** 

GX 

6-199 

****** 

GX 

8-249 

****** 

GX 

7-221 

000024 

#5-120 

000014 

#5-120 

000012 

#5-120 

****** 

GX 

*6-189 

000000 

#5-120 

177777 

#5-120 

«*♦*♦* 

5-120 

000000 

#5-120 

****** 

GX 

6-180 

000002 

#5-120 

****** 

GX 

•6-181 

»***♦♦ 

GX 

•6-164 

000016 

#5-120 

****** 

5-120 

6-164 


8-244 

7-220 
10-299 
•6-193 


4-78 

4-80 

6-183 

6-184 

6-179 

6-186 


10-301 


•6-176 
#10-291 


9-272 
7-224 


•6-197 


6-191 
•6-193 

5-120 


6-177 


9-270 

7-223 
10-309 
•6-199 


6-185 
6-178 
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CREF        04.00 
6-192 
10-301 


7-219 


7-222 


8-243 


9-269 


10-294 


7-218 
•6-199 

5-120 


•7-225 


3-242 


•8-250 


9-268 


•9-273 


UPDREM 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 
ISTATS 
MTRANS 

#5-100 
#4-67 

#5-100 

5-100 

PRINT 
STATES 

TRANS 

#4-58 
#4-67 
#5-130 
#4-6^ 

#5-131 

5-103 
#5-133 
#5-104 
#5-134 

#5-106 
#5-136 
#5-107 
#5-137 

#5-109 
#5-139 
#5-110 
#5-140 

#5-112 
#5-142 
#5-113 
#5-143 

#5-115 
#5-145 
#5-116 
#5-146 

#5-118 
#5-147 
#5-119 
#5-148 

#5-121 
#5-150 
#5-122 
#5-151 

#5-124 
#5-155 
#5-125 
#5-156 

#5-127 
#5-158 
#5-128 

N  4 

•♦FILE'«1D««UPDSER 


UPDSER           CREATED  BY     HACRO     OH  29-JUN-85  AT  05:56 

M     5 

PAGE   2 

MACRO   CROSS   REI^ERENCE 

CRE:       04.00 

MACRO  NAME              REFERENCES 

RESRG                       #4-49               7-219             8-245 
SAVRG                       #4-49               7-207             8-233 

N    5 

••FILE«MD««UPDSLT 


UPDSLT  -  CFE  UPDATE  SLT 
SETUNT  -  CHECK  THE  UNIT 

371 
372 
373 
37A 
375 
376 
377 
378 
379 
380 
381 
382 
383 
58'!  000566 

385  000566  004767 

386  000572  016700 

387  000576  126760 

388  000604  001402 

389  000606  062716 

390  000612  000207 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 

405  000614 

406  000640  000207 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 

423  000642 

424  000666  000207 
425 

426  000670  016700 

427  000674  032760 
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NUMBER 

.SBTTL   SETUNT  -  CHECK  THE  UNIT  NUMBER 
'*•*  -  SETUNT  -  CHECK  THE  UNIT  NUMBER 
INPUT: 


OOOOOOG 
OOOOOOG 
OOOOOOG  000011 

000002 


.PNUMB  =  UNIT  NUMBER 

.PNUMH  -   UNIT  NUMBER  (HIGH  ORDER) 


OUTPUT: 


C-SIT  =  SUCCESS/FAILURE 


CALL  SMOVPT         ;  MOVE  THE  UNIT  NUMBER  INTO  THE  OUTPUT  BUFFER 

MOV  .TEMP.RO       ;  GET  START  OF  TEMPLATE 

CMP6  . PNUMB, C.UNT(RO)  ;  IS  THIS  STILL  THE  RIGHT  TEMPLATE  ? 

BEQ  10$  ;  IF  EQ,  VES  ..  OKAY 

ADD  #2,(SP)        ;  ELSE,  REJECT  THE  TRANSITION 
10$:    RETURN 

.S8TTL  SETCTT  -  SET  OPTIONAL  COUNTER  TIMER  VALUE 

'•**  -  SFTUNT  -  SET  THE  OPTIONAL  COUNTER  TIMER 

INPUT: 

.PNUMB  =  UNIT  NUMBER 

.PNUMH  =  UNIT  NUMBER  (HIGH  ORDER) 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


SETCTT:  $PTNUM  *S$LCTT, ,#SL$CTM 
RETUr^N 

.SBTTL  SETHTM  -  SET  OPTIONAL  HELLO  TIMER  VALUE 
.SBTTL  SETfiPR  -  SET  OPTIONAL  ROUTER  PRIORITY 
.SBTTL  SET8RA  -  SET  BROADCAST  ROUTER  ADJACENCIES 

*♦■  -  SETUNT  -  SET  THE  OPTIONAL  HELLO  TIMER 

INPUT: 

.PNUMB  =  UNIT  NUMBER 

.PNUMH  =  UNIT  NUMBER  (HIGH  ORDER) 

OUTPUT: 

C-8I1  =  SUCCESS/FAILURE 


SET.JM:  $PTNUM  #S$LHTM,  ,#SL$HTM 
RETURN 


OOOOOOG        SETRPR:  MOV 
OOOOOOG  OOOOOOG        BIT 


.TEMP,RO 
#LF.BRO,S$LFLG(R0) 
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SETBRa  -   SET   BROADCAST   ROUTER   ADJACENCIES  


M  7 
UPDSTA  -  CFE  UPDATE  STATION  DEF  MACRO  V05.03b  Saturday  29-Jun-85  05:57 
SETADD  -  SET  UP  STATION  ADDRESS 
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204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 

220  000150 

221  000150 

222  0001 5^. 

223  000156 
22A  000162 

225  000166 

226  000172 

227  000176 


.SBTTL  SETADD  -  SET  UP  STATION  ADDRESS 

»»♦  -  SETADD  -  SETUP  STATION  ADDRESS 

THIS  ACTION  ROUTINE  SETS  UP  THE  STATION  ADDRESS 

INPUT: 

C.ADD  -  STATION  ADDRESS 

SOeUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 

OUTPUT: 

C.ADD   STORED    IN  OUTPUT   BUFFER 
SOBUF    IS   UPDATED 


016702  177624 

005001 

156201  000005 

016700  OOOOOOG 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


SETADD: 


MOV 

TEMP,R2 

CLR 

R1 

BISB 

C.ADD(R2),R1 

MOV 

SOBUF, RO 

CALL 

SCNVD 

MOV 

RO, SOBUF 

RETURN 


GET  TEMPLATE  ADDRESS 

GET  THE  STATION  ADDRESS 

..WITHOUT  SIGN  EXTEND 

GET  CURRENT  POSTITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  OCTAL 

UPDAT  THE  POINTER  INTO  OUTPUT  BUFFER 
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UPDSTA  -  CFE  UPDATE  STATION  DEF  MACRO  VO5.03b  Saturday  29-Jun-85  05:57 

SETCST  -  SET  THE  STATION  COST 
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UPOSvr  -  UPDATE  SWITCHED  VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  4-1 
MACRO  DEFINITIONS 

lit,  ;  PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 

116  '  .MACRO  $PTR50  OFS.Wl ,OPT, ?L 

117  .IF  NB  <OPT> 

118  MOV  0PT,R2 
lii  CALL    SPTOPT 

120  BCS  L 

121  .IfTF 

122  MOV  0FS,R2 

123  MOV  WC.RI 
12A  CALL    $PTR50 

125  .IFT 

126  L: 

127  .ENDC 

128  -ENDM 
129 


UPDSVC  -  UPDATE  SWITCHED  VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  5 
LOCAL  DATA 


UPDUNT  -  CfE  UPDATE  UNIT  OEFINl  MACRO  V05.05b  Saturday  29-Jun-85  05 
SETUNT  -  CHECK  UNIT  NUMBER 


58  Page  7 


196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 


.SBTTL 

I- 
♦♦♦  -  SETUNT 

INPUT; 


SETUNT  -  CHECK  UNIT  NUMBER 
-  CHECK  UNIT  NUMBER 


000110 
000110 
0001 U 
000120 
000126 
000130 
000134 


004767 
016700 
026760 
00U02 
062716 
000207 


OOOOOOG 
OOOOOOG 
OOOOOOG  000004 

000002 


.PNUMB  :  UNIT  NUMBER 
.PNUMH  =   (HIGH  ORDER) 
.TEMP  =  TEMPLATE   ADDRESS 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


SETUNT: 


10$: 


CALL 

SMOVPT 

MOVE 

MOV 

.TEMP.RO 

CMP 

. PNUMB, C.UNT(RO) 

;  IS  T 

BEQ 

10$ 

IF  ECl 

ADD 

*2,(SP) 

ELSE, 

RETURN 

MOVE  THE  UNIT  NUMBER  INTO  THE  OUTPUT  BUFFER 
;  GET  TEMPLATE  ADDRESS 
'S  THE  RIGHT  UNIT  TEMPLATE  ? 

fBS    ..    OKAV 
REJECT  THE  TRANSITION 


UPDUNT  -  CFE  UPDATE  UNIT  DEFINl  MACRO  V05.03b  Saturday  29-Jun-85  05 
SETCUO  -  SETUP  THE  CHARACTERISTICS  WORD  0 


:? 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 

^l^ 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  UPDX2P  -  UPDATE 
.IDENT  /V05.00/ 
.ENABL  LC 


X.25  LEVEL  2  CHARACTERISTICS 


COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  'HE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

UPDATE  X.25  LEVEL  2  CHARACTERISTICS  IN  CETAB 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Mkro/RSX  VI. 0 
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MACRO  CALLS  AND  LOCAL  DATA 


Page  4 
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UPDX29  -  UPDATE  X.29  3  CHARACTE  MACRO  V05.03b  Saturday  29-Jun-85  05:59  Page  5 

LOCAL  DA^A 

122  .5BTTL     LOCAL   DATA 

12^000000  Oil  130  062     X29DF :      .ASCII      <11>/X29$DF/<11> 

000003  071  OAA  104 

000006  106  Oil  ^„  .       ^^„,  ^ 

125  000010  X29LN=.-X29DF 

126  -LIST   BEX 

127  .EVEN 
128 


N  11 
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MACRO  NAME 

REFERENCES 

EPRINT 

#4-78 

ERROR$ 

#4-67 

PRINT 

#4-62 

$PTNMB 

#4-111 

5-172 

5-173 

SPTNUM 

#4-110 

5-170 

5-171 

$PTR50 

#4-n5 

$$$PTN 

#4-90 

4-110 

4-111 

5-174  5-175  5-176  5-177  5-178  5-179  5-180 
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MLD 
MLD 


Microcode  Loader      MACRO  V05.05b 
Microcode  Loader  Main  Routine 


A20 
421 
1,22 
1,21 
42'. 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
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STAfSS  K.URM(R2) 
.ENDC 


000502  062704  000014 
000506  012405 


000510 


60$: 


440 
■.41 

442  000514 

443  000520 

444  000522 

445  000526 
446 

447  000530 

448 

4'.9 

450 

451  000536 

452 

453 

454 

455 

456 

457 

458 

459  000542 

460  000544 
461 

462  000546 

463  000552 

464  000560 

465  000564 

466  000570 

467  000574 
468 

469  000576 


016704  001376' 

103003 

012703     001000 

000407 

012764  001026  000010  70$: 


005703 
100672 

016704  001376'        80$: 

012764  000026  000010 

052703  100000 

010364  000012 

000656 

90$: 


Set  new  CPU/UNIBUS  affinity 
End  RSX-IIM*  conditional 


Now  locate  the  microcode  in  the  system.  If  the  microcode  has  been 
successfully  located,  perform  the  load  cycle. 


ADD 
MOV 

.]FT 

CALL 

.IFF 

CALL 

.IFTF 

MOV 
BCC 
MOV 
BR 

MOV 

.IFT 

CALL 

.IFF 

CALL 

.IFFF 

TST 
BMI 

MOV 

MOV 

BIS 

MOV 

CALL 

BR 

EXIT$S 


#C.BUF1,R4 
(R4)+,R5 


LOCFU 


LOCPAR 


CURQST,R4 
70$ 

#CS.FTL,R3 
80$ 

#FC.MLD+FS.ULB,C.FNC(R4) 


MLOAD 


SLOAD 


R3 
10$ 

CURQST,R4 

#FC.MLDtFS.HLT,C.FMC(R4) 

*CS.ERR,R3 

R3,C.STS(R4) 

DSPDRV 

10$ 


Point  at  microcode  ASCII  name  length 
Copy  it  and  point  at  start  of  name 

If  system  is  RSX-11M  ... 

Locate  microcode  f i  le 

If  system  is  RSX-11S  ... 

Locate  microcode  partition 

For  any  operating  system  ... 

Recover  CCB  address 
Branch  if  microcode  was  found 
Else,  get  "fatal  error"  return 
Branch  to  common  code 

Change  CC8  (sub)function 

If  system  is  RSX-11M  ... 

Load  microcode  from  disk 

If  system  is  RSX-11S  ... 

Load  microcode  from  partition 

For  any  operating  system  ... 

Did  the  driver  stop  the  load? 
Branch  if  so,  save  a  dispatch 

Get  address  of  current  CCB 

Set  CCB  function  to  "load  halted 

"OR"  general  error  flag  into  status 

Pass  load  status 

Dispatch  to  device  driver 

Look  for  another  load  request 

Program  exit 
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DSPDRV  -  Dispatch  to  Device  Driver 
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MlOAD   -  Load  Control  for  RSX-llM  Systems 

ago  .ENDC  ;  End  RSX-11S  conditional 

98Q        000036'  .END    MLD  ;  End  of  source  file 
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Symbol  table 
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MA.:R0  fROSS  RfERENCE  CREF        OA.OO 


MACRO   NAME 

REFERENCES 

ALJMS 

#6-78 
#8-221 

9-269 

BDOf^t 

CALL 

9-290 

9-296 

9-304 

9-329 

9-330 

9-352 

9-451 

9-466 

10-499 

10-529 

10-574 

11-609 

12-680 

12-682 

13-721 

13-724 

14-765 

15-794 

CALLR 

10-547 

CBVTES 

#8-167 
#6-79 

8-167 

8-167 

#8-168 

8-168 

#8-169 

CCBOFS 

6-82 

CLOSES 

#6-64 

12-651 

15-608 

CMO\;tB 

#14-765 

#14-765 

14-765 

14-765 

#14-765 

14-765 

CMOVtW 

#14-765 

14-765 

14-765 

14-765 

#14-765 

14-765 

15-794 

15-794 

#15-796 

15-796 

CMOVt? 

#15-794 

15-794 

:woRDt 

#8-167 

8-167 

8-167 

8-167 

#8-168 

8-168 

8-169 

8-169 

8-169 

#8-170 

8-170 

8-170 

)CBDF$ 

#6-65 

6-68 

JEFtL 

#8-221 

DIRS 

#6-89 

#9-269 

9-269 

#9-318 

9-318 

#9-319 

9-469 

#11-617 

11-617 

#12-687 

12-687 

ERRS 

#12-651 

12-651 

#14-765 

14-765 

#15-794 

15-794 

EVLDFl 

#6-79 

6-83 

EXITSS 

#6-78 

9-469 

12-687 

FDATtA 

#6-65 

8-167 

FDBDFS 

#6-64 

8-166 

FDBKSA 

#6-65 

8-169 

fDBKSR 

#15-794 

15-794 

FDBS7$ 

#8-166 

8-166 

FDOFFS 

#8-167 

8-167 

#8-168 

8-168 

#8-169 

8-169 

FDQP$A 

#6-65 

8-170 

FDOPSR 

#14-765 

14-765 

FDRCSA 

#6-65 

8-168 

FDRCSR 

#14-765 

14-765 

FINITS 

#6-65 

9-283 

FSRS/$ 

#6-64 

8-221 

LDFDBI 

#12-651 
#15-808 

12-651 
15-808 

#14-765 

14-765 

#14-765 

14-765 

MOVS 

#9-269 

9-269 

9-269 

9-269 

#9-318 

9-318 

11-617 

11-617 

11-617 

#11-617 

11-617 

11-617 

MRKT$ 

#6-89 

8-202 

MVBt 

#11-617 

11-617 

OFF$ 

#8-202 

#8-203 

OPENS 

#14-765 

14-765 

OPENSR 

#6-64 

U-765 

PDVDfS 

#6-79 

6-84 

QDP8S5 

#11-617 

11-617 

QIOWSS 

#6-78 

11-617 

READS 

#6-64 

15-794 

RETURN 

9-337 

9-369 

9-374 

10-562 

10-577 

11-618 

Ri.'PS 

#11-617 

11-617 

n-617 

11-617 

sltdfs 

#6-79 

6-85 

SPRASS 

#6-78 

9-318 

SREASS 

#6-78 

9-319 

9-355 

12-655 

15-805 

9-361 
12-661 

9-372 
12-670 

9-434 
12-674 

8-169 

#8-170 

8-170 

8-170 

#15-794 
14-765 

15-794 
#15-794 

#15-796 
15-794 

15-796 
15-794 

8-168 
8-170 

#8-169 

8-169 

8-169 

9-319 

9-340 

9-341 

#9-469 

#15-796 

15-796 

#15-808 

15-808 

#8-170 

8-170 

#15-794 

15-794 

#15-796 

15-796 

#9-319 
#11-617 

9-319 
11-617 

#11-617 
11-617 

11-617 

12-685 

13-728 

14-770 

15-809 
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363  000202 

364  000206 

365  0002U 
366 

367 

368 

36')  000216 

370 

371  000220 

372  000224 

373  000230 
3:'4  000234 
375 

376 
377 
378 
379 
580 
381 
382 
583 
58A 
585 
386 
587 

588  000236 

589  0002A2 

590  000244 
591 

592 
395 

594  000250 

595  000254 
596 

397 
398 
599  000260 

400  000262 

401  000266 
402 

405  000270 

404  000276 

405  000304 
406 

407 
408 
409 
410 
411 
412 
415 
414 
415 
416 
417 
418 
419 


010167  000156" 
026127  000010  002026 
001554 


0167J4  000144' 
005C67  000144' 


40$: 


40$: 


016704      000156'  50$: 

001461 

116405  000006 


016705  000144' 
010365  000006 


006303 

067705  000620' 

011503 

116367  000002  000160' 

016567  000004  000164' 

116567  000012  000162' 


MOV 
CMP 
BNE 

.If 

RETURN 

MOV 
CALL 
CLR 
RETURN 

.IFf 

RETURN 

.ENDC 


R1,CURQ5T 

C.fNC(R1),#FC.MLD*fS.RLB 

15$ 


DF 


N$$UMR 


LDBPTR,R4 

SILDBRT 

LD8PTR 


Saue  address  of  CCB 

Is  this  a  microcode  load  request; 

Branch  it  not 

If  systPfii  has  UMRs  ... 

Return  to  user  state  at  "50$" 

Get  address  of  CC8/LDB  pair 
Return  CCB  and  LDB  to  pool 
LOB  no  longer  available 
Return  to  user  state  at  '50$ 

I f  system  has  no  UMRs  . . . 

Return  to  user  state  at  "50$" 

End  UMR  conditional 


If  a  load  request  has  been  successfully  dequeued,  look  up  all, 
necessary  information  for  dispatches  to  the  deuice  driver.  This 
lookup  is  done  once  to  save  a  search  each  time  a  dispatch  is  needed. 


Get  address  of  current  request 

Branch  if  none 

Get  system  line  number 

If  system  has  UMRs  ... 

Get  address  of  CCB/LDB 
Stuff  in  system  line  number 

End  UMR  conditional 

Form  a  word  index  with  SLN 

Get  pointer  to  SLT  vector  address 

Get  address  of  SLT  vector 

Get  driver's  PDV  index 

Save  driver's  line  table  address 

Save  device  controller  number 

If  system  is  RSX-11M+  ... 


MOV 
BED 

Mova 

CURQST,R4 

90$ 

C.LIN(R4),R3 

.If 

Df     N$$UMR 

MOV 

MOV 

LD8PTR,R5 
R3,C.LIN(R5) 

.ENDC 

ASL 
ADD 
MOV 

R3 

aSLTMA,R3 

(R5),r! 

M0V8 

MOV 

M0V8 

L.DDM(R3),PDVIDX 
L.DD5{R5),DDM1BL 
L.CTL(R5),CTLNUM 

.If 


DF 


R$$MPL 


On  RSX-11M*  systems  with  multiple  CPUs,  we  must  make  sure  that 
MLD  is  running  on  the  same  processor  that  the  device  to  be  loaded 
is  on.  Get  the  UNIBU5  run  mask  of  the  device  from  the  KRB  data 
structure  pointed  to  by  the  SLT  entry  for  the  line. 


TST8  aNCPU 

BED  60$ 

MOV  L.KR6A(R5),R2 

RMAF$S 


;  More  than  one  CPU  in  configuration? 

;  Branch  it  not 

;  Get  controller  request  block  address 

;  Remove  previous  CPU/UNIBUS  affinity 


B  1 


J  5 


E  10 
c  in 


M  14 

M  1L 


-JPDPV^ 
Syibci 

CS.fLG= 
F.NRBD= 
ONSTR 
PV^_OF 
OVClN   = 
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-   JPDATE   PERMANENT   vIRTj  MACRO  V05.0?b  Saturday  29-Jun-85   05:55 
tab'e 


......  GX 

......  GX 

0OGO10R 
OOOOOOR 
000010 
......  GX 

..."♦  GX 


PV$WSZ= 


****** 


GX 


PJVCT  =  ♦...».  GX 


P$\/FLG= 
P$7LCN= 
PSVNAM= 
P$VOUN= 


...... 


GX 
GX 
GX 
GX 


P$VPSZ=  ♦•*•••  GX 
P$V3TA=  «*•*♦♦  GX 
P$VWSZ=  •♦•»•♦  GX 
SETSTA  000402R 
SBUFI  =  ♦***•*  GX 
$MVASC=  *•♦.»•  GX 


AS  3 


000000 
000446 
Efcs  detectefl: 


000 
001 

0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,RE1  ,L'0N~ 
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$08UF  =  •»*♦*•  GX 
SOFDB  =  ******  GX 
$PTNMB=  »•*•**  GX 
$PTNUM:=  »*»»»*  GX 
$PTOPT=  •*♦♦*♦  GX 
$PTR50-  ******    GX 


•  •*  Asscnble"-  statistics 

Work  tiie  reads:  0 

Work   fi'Le  writes:  0 

Size  of  work  file:  8358  Words   (  ?'  Pages) 

Size  of  core  pool:  U440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 
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SUPPVL 

nOOOHRG 

$WDATA= 

».'»*.  GX 

.BUFF  = 

♦  >»•>*  ,^X 

.COMMA= 

..'■•♦•  y 

.FLAGS= 

,   .»*  L 

.TEMP  = 

.  :»♦  Q, 
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SYMBOL 

CRO:.S  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SSAVRG 

=  t»»««t  GX 

107^22 

SSTRNG 

=  OOOOUA 

#5-120 

SSUBXP 

=  000010 

*5-120 

tTMLST 

=  «»»*»♦  GX 

6-166     10-293 

SUPFIL 

=  ,*«»**  GX 

10-311 

SUPREM 

000154  RG 

#6-165 

SUPSER 

=  »'♦*♦♦  GX 

10-306 

SWDATA 

=  •»•♦•»  GX 

6-194 

SttFLG 

=  177777 

#5-120 

$$S<EY 

=  1^7777 

#5-120 

.CONER 

=  »*»....  GX 

10-3K 

.TPARS 

=  ..,..*  GX 

6-187 
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^28  000702 

429  000704 

430  000730 
431 

432  000732 

433  000736 

434  000744 

435  000746 

436  000772 
437 


001412 

000207 

016700 
032760 
001412 

000207 


OOOOOOG 
OOOOOOG  OOOOOOG 


10$: 
SETBRA; 

10$: 


BEQ 

$PTNUM 

RETURN 

MOV 

BIT 

BEQ 

$PTNUM 

RETURN 


10$ 
#S$LRPR,,*SL$RPR 


.TEMP,RO 

*LF.8RO,S$LHG(R0) 
10$ 
#S$LSRA,,*SL$BRA 
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229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
2^0 
2A1 
2A2 
243 
2A4 
2A5 
2A6 
247 
248 


.SSTTL  SETCST  -  SET  THE  STATION  COST 

*•«  -  SETCST  -  SET  THE  STATION  COST 

INPUTS: 

TEMP  =  TEMPLATE  ADDRESS 

SOBUF  =  POINTER  INTO  OUTPUT  BUFFER 

OUTPUTS: 

THE  COST  IS  WRITTEN  TO  THE  OUTPUT  BUFFER 


000200 

000200  016702  177574 

000204  116201  000007 

000210  016700  OOOOOOG 

000214  004767  OOOOOOG 

000220  010067  OOOOOOG 

000224  000207 


SETCST: 


MOV 

TEMP,R2 

MOVB 

C.CST(R2),R1 

MOV 

$08UF,R0 

CALL 

$CNVD 

MOV 

RO, SOBUF 

RETURN 

GET  THE  TEMPLATE  ADDRESS 

GET  THE  STATION  COST 

GET  THE  CURRENT  POSITION  IN  THE  OUIPUT  BUFFER 

CONVERT  THE  NUMBER  TO  DECIMAL  ASCII 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


UPDSVC  -  UPDATE  SWITCHED  VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05 
LOCAL  DATA 


..?, 
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151 

132 

133 

134  000000 

135 

136  OOOOH 

137 

138  000016 

139 

KO 

U1 

1A2 


.S8TTL  LOCAL  DATA 


Oil 
OOOOK 

117 
000002 

117 
000003 


.NLIST 

BEX 

123 

126 

SVCDF: 

.ASCII 
SVCLN=. 

<11>/SVC$DF/<11>/DLM-/ 
-SVCDF 

116 

ONSTA: 

.ASCII 
ONLEN=. 

/ON/ 
-ONSTA 

106 

106 

OFFSTA: 

.ASCII 
OFFLEN= 
.LIST 
.EVEN 

/OFF/ 
.-OFFSTA 
BEX 

UPDUNT  -  CFE  UPDATE  UNIT  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  8 
SETCWO  -  SETUP  THE  CHARACTERISTICS  WORD  0 


N  9 

05:58 


218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 


.SBTTL  SETCUO  -  SETUP  THE  CHARACTERISTICS  WORD  0 

♦»♦  -  SETCWO  -  SETUP  THE  CHARACTERISTICS  WORD  0 

INPUT: 

.PNUMB  =  THE  CHARACTERISTICS  WORD  0 

.PNUMH  =  (HIGH  ORDER) 

.TEMP  =  START  ADDRESS  OF  THE  TEMPLATE 

OUTPUT: 


000136 

000136  016702  OOOOOOG 

000U2  016201  000006 

0O0K6  016700  OOOOOOG 

000152  00A767  OOOOOOG 

000156  010067  OOOOOOG 

000162  000207 


SETCWO: 


MOV 

.TEMP,R2 

MOV 

C.CW0(R2) 

MOV 

$08UF,R0 

CALL 

$CNV0 

MOV 

RO.SOBUF 

RETURN 

,R1 


;  GET  START  OF  TEMPLATE 
GET  CHARACTERISTICS  WORD  0 
POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 
CONVERT  NUMBER  TO  OCTAL 
UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 


UPDX2P  -  UPDATE  X.25  LEVEL  2 
MACRO  CALLS  AND  LOCAL  DATA 

57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
7ij 
71 
72 
73 
7A 
75 
76 
71 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110  000000 

111  000000 
112 
113 


N  10 

CH  MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  4 

.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERRO';  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  BUFFER 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SSSPTN 
.MACRO  'ROU 
.IF  NB  <OPT> 
MOV     0PT.R2 
CALL    SPTOPT 
BCS     L 
.IFTF 

MOV     0FS.R2 
.IF  NB  <OCTL> 


ROU 
OFS.OCTL.OPT. 


L! 


MOV 
.IFF 
CLR 

.ENDC  ; 
CALL 
.IFT   ; 

.ENDC  ; 
.ENDM  ; 
.ENDM  ; 

SSSPTN 
SSSPTN 


SP.RI 

R1 

IF  NB  <OCTL> 

'ROU 

IF  NB  <OPT> 

IF  NB  <OPT> 

'ROU 

SSSPTN 

SPTNUM 
SPTNMB 


PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 
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tUPx29  -  UPDATE  X.29  CHARACTERISTICS 


130 

131 

132 

133 

134 

135 

13o 

137 

138 

139 

KO 

U1  000010 

! 

U2  000010 

012767 

OOOCOOG  ooooooc 

U3  000016 

010567 

0000  >0G 

K4  000022 

005725 

K5  OOOC.A 

010567 

OOOOOOG 

K6  000030 

012767 

177777  OOOOOOG 

K7  000036 

012700 

OOOOOOG 

U8  0000A2 

012701 

000000' 

K9  000046 

012702 

000010 

150  000052 

004767 

OOOOOOG 

151  000056 

010067 

OOOOOOG 

152  000062 

153  000074 

154  000106 

016701 

OOOOOuu 

155  000112 

162701 

OOOOOOG 

156  000116 

010167 

OOOOOOC 

157  000122 

004767 

OOOOOOG 

158  000126 

012767 

OOOOOOG  ooooooc 

159  000134 

000207 

160 

161 

162 

000001 

.SBTTL  $UPX29  -  UPDATE  X.29  CHARACTERISTICS 
'.**  -  $UPX29  -  UPDATE  X.29  CHARACTERISTICS 
INPUT: 


R5  -  ADDRESS  OF  TEMPLATE 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


$UPX29: 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

$PTNUM 

SPTNUM 

MOV 

SU8 

MOV 

CALL 

MOV 

RETURN 


.END 


#.BUFF,$0FDB+F.NRBDt2  ;  SET  NEW  OUTPUT  BUFFER 


R5,.TEMP 

(R5)t 

R5, .FLAGS 

#-!,. COMMA 

#.BUFF,RO 

#X29DF,R1 

#X29LN,R2 

SMVASC 

RO.SOBUF 

#X$9MXC 

#)($9CT 

$08UF,R1 

#.BUFF,R1 

R1,$0FDB*-F 

SWDATA 


NRBD 


SAVE  UPDATED  TEMPLATE  POINTER 

POINT  TO  C.STS 

SAVE  ADDRESS  OF  FLAGS  WORD 

SUPPRESS  INITIAL  COMMA 

POINT  AT  START  OF  OUTPUT  BUFFER 

POINT  AT  START  OF  X29  DEFINITION 

GET  LENGTH  OF  X29  DEFINITION 

MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

MAXIMUM  CIRCUITS 

COUNTER  TIMER 

CALCULATE  LENGTH  OF  BUFFER 

SET  LENGTH  OF  BUFFER 
WRITE  THE  RECORD  TO  THE 


#$8UFI,$0FDB+F.NRBD+2  ;  SET  TO  OUTPUT  THE 


OUTPUT  FILE 
"ENDSDF"  lINE 
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MMM 

MMM 

DDDDDDDDDDD 

) 

1MM 

MMM 

DDDDDDDDDDD) 

MMM 

MMM 

ODDDDDDDDDDD 

'^MMMM^ 

MMMMMM 

DDD 

DDD 

^MMMM^ 

MMMMMM 

DDD 

DDD 

^MMM"^ 

MMMMMM 

DDD 

DDD 

^MM 

1MM   MMM 

DDD 

DDD 

'^IMM 

>1MM   MMM 

DDD 

DDD 

MMM 

»1MM   MMM 

DDD 

DDD 

MMM 

MMM 

DDD 

DDD 

MMM 

MMM 

DDD 

DDD 

MMM 

MMM 

MMM 

DDD 

DDD 

MMM 

DDD 

DDD 

MMM 

MMM 

DDD 

DDD 

MMM 

DDD 

DDD 

MMM 

ODD 

DDD 

m 

MMM 

DDD 

DDD 

MMM 

MMM 

ODD 

DDD 

MMM 

MMM 

LLLLLLLLLLLLLLL 

DDDDDDDDDDDD 

MMM 

MMM 

LLLLLLLLLLLLLLL 

DDDDDDDDDDDD 

MMM 

MMM 

LLLLLLLLLLLLLLL 

DDDDDDDDDDDD 
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DSPDRv  -  Dispatch  to  Device  Driver 


A71 

472 

A73 

A  74 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

50A 

505 

506 

507 

508 

509 

510 

511 

J12 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 


000604 


.SBTTL  DSPDRV  -  Dispatch  to  Device  Driver 

»**  DSPDRV  •♦* 

Function:     To  dispatch  to  a  device  driver's  microcode  toad  entry 
point  with  a  CCB  initialized  to  point  to  one  (or  more) 
Duffer(s)  containing  microcode. 

CALL    DSPDRV 


Call  Forma"- 
Inputs: 

Outputs: 


Registers: 
Note: 

DSPDRV:  CALL 


R4     =  address  of  CC8 

PDVJDX  =  device  driver  process  index  •  2 

DDMTBL  =  address  of  driver's  line  table 

Dispatch  to  driver  is  executed  and  bufferis)  loaded. 
Device  driver  can  expect  R4  to  point  to  the  CCB  b'jt 
must  use  KISAR6  to  map  to  the  buf'er(s). 

C-bit  clear 
C-bit  '?t 
R3 


load  occurred  without  error 

load  error(s)  occurred 

dispatch  return  status  from  driver 


R3  modified  for  output 

SPDDSP  saves  KISAR5  and  KISAR6  so  that  the  driver  does 
not  have  to  save/restore  any  APR5/APR6  mappings. 


$SWSTK,20$ 


Save  registers,  enter  system  state 


If  this  is  a  write  request,  then  we  must  make  sure  that  the  load 
CCS  contains  the  correct  mapping  to  the  FCS  buffer.  This  mapping 
can  only  be  guaranteed  to  not  change  as  long  as  MLD  is  in  system 
state. 


000610  126427  000011  000002 
000616  001036 


000620  017764  177156  000014 


000626  016401  000014 

000632  016402  000016 

000636  062702  160000 

000642  016400  000020 

000646  020077  177156 

000652  003402 

00065'.  017700  177150 

000660  010005 

000662  016703  001366' 


7$: 


CMP8 
BNE 

.IFT 

MOV 

.IFTF 
.IF 

MOV 
MOV 
ADD 
MOV 
CMP 
BLE 
MOV 

MOV 
MOV 


C.M0D(R4),*FS.WLB/400 
10$ 


aiSAR5,C.BUF1(R4) 


DF 


N$$UMR 


C.BUF1(R4),P1 

C.8UF1+2(R4),R2 

*160000,R2 

C.CNT1(R4),R0 

RCaRDBSZ 

7$ 

SRDBSZ,R0 

R0,R5 
LD6IAS,R3 


;;  Is  dispatch  for  a  load? 

;;  Branch  if  not 

;;  If  system  is  RSX-11M  ... 

;;  Put  file  buffer  mapping  in  CCB 

;;  For  any  operating  system  ... 

;;  If  system  has  UMRs  . . . 

; ;  Copy  buffer's  mapping  bias 

; ;  Copy  APR6-biased  virtual  address 

; ;  Force  it  to  be  APR5-biased 

;;  Get  buffer  byte  count 

;;  Does  microcode  fit  in  an  LDB? 

;;  Branch  if  so 

; ;  Else,  copy  one  LDB's  worth  of  code 

; ;  Save  the  buffer  length 

;;  Get  bias  of  UMR-mapped  LDB 


MLD 
Symbol 


-  Microcode  Loader 
table 


MACRO  V05.03b  Wednesdai 


N  U 

28-Aug-85  11:26 
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ABOAST 

ACtDNT: 

AC$X25= 

AEtCIR= 

AEtLIN= 

AE$MOD= 

A$$CHK= 

A$$CPS: 

AttPRl= 

At$TRP= 

BLOCK 

BLXIO 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.ROB= 

CB.SDB= 

CB.SL1= 

CB.XLB= 

CCBRT 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DI5= 

CE.ERR= 

CE.UN= 

CE.LTO= 

CE.MOP^ 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.5TP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

Cf .HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.S¥N= 

CF.TRN= 

CL$ASZ= 

CL$DLL= 

CL$ECL= 

CLSLDN= 

CL$MAN= 

CL$PAZ= 

CL$PLH=: 

CL$PLL= 

CL$PRT= 

CL$ROU= 

CL$SES= 

CL$SGE= 

CL$SSF= 

CLSTRN= 


001152R 

000002 

000001 

000003 

000001 

00000^ 

000000 

000000 

000000 

000000 

001572R 

OOOOOARG 

000002 

OOOOAO 

000020 

OOOOOA 

000010 

000100 

000001 

00001 6RG 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

10036A 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

010500 

000500 

000300 

010400 

000000 

034100 

034000 

000600 

034200 

010000 

000200 

035000 

035100 

000400 


004  CL$XL2= 
CL$XL3= 
CL$X2b= 
CM.CIR= 
CM.FMT= 
CM.HRD= 
CM.LIN= 
CM.LOO= 
CM.XLO= 
CP.DCF= 

002  CP.HDL= 
CP.PS  = 
CP.PSI= 
CP.XCF= 
CP.2FR= 
CS.AB0= 
CS.BR0= 
CS.BUf 
CS 


004 


004 


._.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 

CS.DEV= 

CS.DIS= 

CS.ENA= 

CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

CTLNUM 

CURUST 

CVTPRM= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.BID 

C.8UF 

C.BUF1 

I..BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 


013700 

013600 

013500 

000002 

1 00000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

001402R 

001376R 

014010 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 


C.fLGI 
C.FLG2 
C.FNC 
C.LIN 
C.LNK 
C.MOD 
C.NSP 
C.PRO 
C.RSV 
C.STA 
C.STS 
C.URM 
C.XACP 
C.XID 
C.XLEN 
C.XPLI 
C.XPT 
C.XSVC 
C.XTC 
C.X25 
DDMTBL 
DEVERR 
DL$AST:= 
DL$HLT= 
DL$]ST= 
DL$MA]= 
DL$OFF= 
DLSON  = 
DL$RUN= 
DL$SHU= 
DL$SYN= 
DSDS 
DSPDRV 
DV.CCL= 
DV.COM= 
DV.DJR= 
DV.EXT= 
DV.F11= 
DV.ISP= 
DV.MBC= 
DV.MNT= 
DV.MSD= 
002  DV.OSP= 
002  DV.PSE= 
DV.REC= 
DV.SDJ= 
DV.SQD= 
DV.SWL= 
DV.TTY= 
DV.UMD= 
;)$$BUG= 
D$$ISK= 
D$IL11= 
D$$YNC= 
D$$YNM= 
D.DSP 
D.LNK 


000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

001404R 

000051R 

000002 

000000 

000001 

000004 

000001 

000000 

000003 

000002 

000005 

001312R 

000604R 

000002 

020000 

000010 

000400 

040000 

002000 

00040r 

100000 
000100 
004000 
010000 
000001 
000020 
000040 
001000 
000004 
000200 
177514 
000000 
000001 
000000 
000000 
000012 

oonooo 


D.MSK 
D.NAM 
D.PCB 
D.UCB 
D.UCBL 
D.UNIT 
O.VCAN= 
D.VDEB- 
D.VINI= 
D.V0UT= 
D.VPWF= 
EF$ACT= 
ETYPCL= 
EVTBLK 
EVTEFL= 
EVTLUN= 
EV$ACF= 
EV$ADR= 
EV$ADU= 
EV$APL= 
002  EV$ARC= 
002  EV$AUC= 
EV$AUS= 
EV$CDF= 
EV$C0Z= 
EV$DBR= 
EV$GAS= 
EV$HCE= 
EV$HCI= 
EV$HFE= 
EV$IFL= 
002  EV$IF0= 
'  EV$IFS=: 
EV$1^JF  = 
EV$LDL= 
EV$LDN= 
EVILD0= 
EV$LDS= 
EV$LSC= 
EV$LUP= 
EV$N0L= 
EV$NRC= 
EV$NSC= 
EV$NUL= 
EV$NVR= 
EV$OPL= 
EV$PCC= 
EV$PCI= 
EV$PCM= 
EV$PFE= 
EV$PPC= 
EV$RCF= 
EV$RDC= 
EV$RDR= 
EV$RJE= 
EV$RSC= 
EV$RUL= 


004 


000014 

000004 

000034 

000002 

000010 

000006 

000002 

177776 

000000 

000004 

000006 

000001 

010500 

001526R 

000002 

000002 

000201 

000420 

000417 

000400 

000421 

000010 

or  0003 

000520 
000011 
000302 
035101 
035114 
035113 
000506 
000413 
000415 
000414 
000515 
000407 
010416 
000411 
000410 
000500 
000412 
000402 
000416 
000200 
000401 
000406 
000403 
034000 
034001 
034002 
000404 
034003 
000517 
010001 
010002 
035106 
000501 
000405 


EV$SNA= 
EV$SNF= 
EV$SPE= 
EV$XCE= 
EV$XDI= 
EV$XGW= 
EV$XMX= 
EV$XRS= 
EV$XSC= 
EV$X2S= 
EV.CCB= 
EV.C]R= 
EV.LCB= 
002  EV.LIN= 
EV.MAP= 
EV.M0D= 
EV.NaD= 
EV.BRT= 
EXEVCL= 
EXEVEC 
ESDATA 
ESEVTS 
E$LCN 
E$LIN 
E$MOD 
E$N0D 
ESPORT 
E$PRM 
ESSTAI 
ESTCB 
E$$XPR= 
E.CTL 
E.DATA 
E.EVT 


LCN 
LEN 
LIN 
LNK 
MOD 


E.NOD 


.PDV 
E.PORT 
E.PRM 
E.PVC 
E.SIZ 
E.TIME 
FCSBSZ= 
FCSBUF 
FCSEFL= 
FCSERR 
FCSIOS 
FCSLUN= 
FC.CCP= 
FC.CTL= 
FC.KCP= 
FC.KIL= 
FC.MAN= 


035000 

000516 

035001 

034110 

013600 

034111 

000514 

000512 

000513 

013500 

000001 

000020 

000100 

000004 

000002 

000040 

000010 

000200 

000017 

OOOOOOR 

000020 

000000 

000016 

000000 

000012 

000010 

000014 

000002 

000006 

000004 

000000 

000020 

000046 

000002 

000042 

000216 

000024 

000000 

000036 

000034 

000021 

000040 

000026 

000044 

000022 

000004 

001000 

000304R 

000001 

001302R 

001304R 

000001 

000020 

000006 

000016 

000004 

000024 


004 


002 

004 
002 


NILD  CREATED  B*     MACRO     ON  ?8-AuG-85   At    11:27 

MACRO   (ROSS  REFERENCE 
MACRO  NAME  REFERENCES 
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CREF        OA.OO 


STSES 

#6-89 

8-20? 

TCBDFl 

#6-79 

6-81 

dCBDft 

#6-65 

6-67 

WAHl 

#6-6A 

15-796 

B 

J 

5 

E  10 

p 

< 

5 

F  10 

n 

L 

G  10 

^ 

M 

5 

H  10 

F   1 

uPDPv: 

N 

5  UPOSLT 

'  19 

G  1 

6 

6 

J  9 

H  1 

C 

6 

K    10 

1 

J 

D 

6 

L  ]8 

E 

6 

M  10 

K 

F 

6 

N  10 

li  ' 

G 

H 

6 
6 

B  11 

C  11 

N 

1 

6 

D  11 

B  : 

J 

6 

E  11 

C  2 

K 

6 

F  11 

D  2 

UPDRDT 

L 

6 

G  11 

E  2 

M 

6 

H  11 

F  2 

N 

6 

I  11 

G  2 

a 

7 

J  11 

H  i 

c 

7 

K  11 

I  2 

D 

7 

L  11 

J  i 

E 

7 

M  11 

K  2 

F 

7 

N  11 

G 

7     UPDSTA 

B  12 

M  2 

H 

7 

C  12 

N  2 

UPDREM 

I 

7 

D  12 

B  : 

J 

7 

E  12 

K 

7 

F  12 

D  i 

L 

7 

G  12 

E 

1*1 

7 

H  12 

F 

N 

7 

1  12 

G 

B 

8 

J  12 

H 

C 

8 

K  12 

I 

D 

8 

L  12 

J 

E 

8 

M  12 

K  , 

F 

8 

N  12 

L  , 

G 

8 

B  13 

M 

H 

8 

C  13 

N  ! 

I 

8  UPDSVC 

D  13 

B  A 

J 

8 

E  13 

C  A 

UPDROU 

K 

S 

F  13 

0  4 

L 

8 

G  13 

E  « 

M 

8 

H  13 

F  4 

N 

8 

I  ]| 

G  A 

B 

9 

J  13 

H  4 

C 

9 

K  13 

I  4 

D 

9 

L  13 

J  4 

E 

9 

M  13 

K  4 

F 

9  UPDUNl 

N  13 

L  4 

G 

9 

B  14 

M  A 

H 

9 

C  U 

N  4 

LIPDSER 

I 

9 

D  14 

B  5 

J 

9 

E  14 

c  1 

0  5 

K 

9 

F  14 

L 

9 

G  14 

H  5 

M 

9 

H  14 

F  5 

N 

9 

I  14 

G  5 

B 

10 

J  14 

H  5 

C 

10 

K  14 

I 

5 

D 

10 

L  14 

UPDX2P 


UPDX29 


UPDX3P 


MLD 


fli 

J 
K 


N  _ 
B  16 
C  16  MLD11S 

0  1^ 

F  ( 
6 

H  ., 

1  U 
J 
K 

L  . 
H  6 


06270A  OOOOU 
012A05 


MLD     -  Microcude  Loac. 
MLD     -  Microcode  Load'" 


420 

A21 
A22 
A2? 
424 
425 
426 
427 
428 

429  000312 

430  000316 
431 

432 

433 

434 

435 

436 

437 

438  000320 

439 

440 

441 

442  000324 

443  000330 

444  000332 

445  000336 
446 

447  000340 

448 

4'.9 

450 

451 

452 

453 

454 

455  000346 

456 

457 

458 

459  000352 

460  000354 
451 

462  000356 

463  000362 

464  000370 
455  000374 
455  000400 
467  000404 
468 

469  000406 


MACRO  V05.03h 
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STAFSS  K.URM(R2) 
.ENDC 


60$: 


016704  000155' 

103003 

012703  001000 

000407 

012764  001026  000010  70$: 


005703 
100672 

016704  000156'        80$: 

012764  000026  000010 

052703  100000 

010364  000012 

000656 

90$: 


Set  new  CPU/UNIBUS  affinity 
End  RSX-11M+  conditional 


Now  locate  the  microcode  in  the  system.  If  the  microcode  has  been 
successfully  located,  perform  the  load  cycle. 


ADD 
MOV 

.IFT 

CALL 

.IFF 

CALL 

.IFTF 

HOV 
BCC 
MOV 
BR 

MOV 

.IFT 

CAf 

.IFF 

CALL 

.IFTF 

'ST 
BMI 

MOV 

MOV 

BIS 

MOV 

CALL 

BR 

EXIT$S 


#C.BUF1,R4 
(R4)+,R5 


LOCFIL 


LOCPAR 


CURQST,R4 
70$ 

#CS.FTL,R3 
80$ 

*FC.MLDtFS.WLB,C.FNC(R4) 


MLOAD 


SLOAD 


R3 
10$ 

CURQST,R4 

*FC.MLDtFS.HLT,C.FNC(R4) 

#CS.ERR,R3 

R3,C.STS(R4) 

DSPDRV 

10$ 


Point  at  microcode  ASCII  name  length 
Copy  it  and  point  at  start  of  r.ame 

If  system  is  RSX-11M  ... 

Locate  microcode  file 

If  system  is  RSX-11S  ... 

Locate  microcode  partition 

For  any  operating  system  ... 

Recover  CCB  address 
Branch  if  microcode  was  found 
Else,  get  "fatal  urror"  return 
Branch  to  common  code 

Change  CCB  (sub) function 

If  system  is  RSX-11M  ... 

Load  microcode  from  disk 

If  system  is  RSX-11S  ... 

Load  microcode  from  partition 

For  any  operating  system  ... 

Did  the  driver  stop  the  load? 
Branch  if  so,  save  a  dispatch 

Get  address  of  current  CCB 

Set  CCB  function  to  "load  halted" 

"OR"  general  error  flag  into  status 

Pass  load  status 

Dispatch  to  device  driver 

Look  for  another  load  request 

Program  exit 


C  1 
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MLD 
SLOAD 


B  2 
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989 


>:ooooo' 


.ENDC 

.END    MLD 


End  RSX-11S  conditional 
End  of  source  file 


MM 
MM 
MM 
MM 
MM 
MM 
MM 
MM 
MM 
MM 

M^ 
M^ 
Ml* 
Mf^ 
M^ 
M^ 
M^ 
M^ 
M^ 
M^ 
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RE" 


MMM 

MMM 

MMM 

MMMMMM 

MMMMMM 

MMMMMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

y\m 

MMM 


MMM 

MMM 

MMM 

MMMMMM 

MMMMMM 

MMMMMM 

MMM   MMM 

MMM   MMM 

MMM   MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 

MMM 


AAAAAAAAA 
AAAAAAAAA 
AAAAAAAAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
MA  AAA 
AAA 
A,^AAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAA AAAAAAAAA 
AAA  AA/i 
AAA  AArt 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA         AAA 


NNN 

NNN 

AAAAAAAAA 

NHN 

NNN 

AAAAAAAAA 

NNN 

NNN 

AAAAAAAAA 

NNN 

NNN 

AAA        AAA 

NNN 

NNN 

AAA        AAA 

NNN 

NNN 

AAA        AAA 

NNNNNN 

NNN 

AAA        AAA 

NNNNNN 

NNN 

AAA        AAA 

NNNNNN 

NNN 

AAA        AAA 

NNN 

'NN   NNN 

AAA        AAA 

NNN 

\M        NNN 

AAA        AAA 

NNN 

NNN   NNN 

AAA        AAA 

NNN 

NNNNNN 

AAAAAAAAAAAAAAA 

NNN 

NNNNNN 

AAAAAAAAAAAAAAA 

NNN 

NNNNNN 

AAAAAAAAAAAAAAA 

NNN 

niNN 

AAA        AAA 

NNN 

NNN 

AAA        AAA 

NNN 

NNN 

AAA        AAA 

NNN 

NNN 

AAA         AAA 

NNN 

NNN 

AAA         AAA 

NNN 

NNN 

AAA        AAA 

CCCCCCCCCCCC 

pppppppppppp 

CCCCCCCCCCCC 

pppppppppppp 

CCCCCCCCCCCC 

pppppppppppp 

ccc 

ppp      ppp 

ccc 

ppp      ppp 

ccc 

ppp      ppp 

ccc 

ppp      ppp 

ccc 

ppp      ppp 

ccc 

ppp      ppp 

ccc 

pppppppppppp 

ccc 

pppppppppppp 

ccc 

pppppppppppp 

ccc 

ppp 

ccc 

ppp 

ccc 

ppp 

ccc 

ppp 

ccc 

ppp 

ccc 

ppp 

CCCCCCCCCCCC 

ppp 

CCCCCCCCCCCC 

ppp 

ccccccacccc 

ppp 

•f  ILE*MD««MANACP 
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477 

.SBT 

TL 

RETURN  I/O  ERRORS 

478 

+ 

479 

THESE 

ROUTINES  RETURN  I/O  ERROR 

CODES 

FOR  $IOFIN  COMPLETION. 

480 

481 

INPUTS: 

482 

NONE 

483 

484 

OUTPUTS: 

48"^ 

RO  = 

I/O  ERROR  CODE 

486 

R1  = 

ZERO 

487 

488 

REGISTERS: 

489 

ALL 

OTHER  REGISTERS  ARE  Pf 

tSERVED 

490 

- 

491 

492 

.ENA8L 

LSB 

494  002226 

012700 

000376 

IFCERR: 

MOV 

#IE.IfC£377,R0 

;  ILLEGAL  FUNCTION 

495  002232 

000416 

BR 

10$ 

496 

497  002234 

012700 

000336 

ALNERR: 

MOV 

#IE.ALNS377,R0 

;  FILE  ALREADY  ACCESSED  ON  LUN 

498  002240 

499 

500  002242 

000413 

BR 

10$ 

012700 

000363 

DAOERR: 

MOV 

*IE.DA0&377,R0 

;  DATA  OVERRUN 

501  002246 

502 

503  002250 

000410 

BR 

10$ 

012700 

000270 

NDRERR: 

MOV 

#IE.NDR8377,R0 

;  N'"  DYNAMIC  SPACE  AVAILABLE 

504  002254 

505 

506  002256 

000405 

BR 

10$ 

012700 

000333 

NLNERR: 

MOV 

#IE.NLN&377,R0 

;  NO  FILE  ON  LUN 

507  002262 

508 

509  002264 

510 

511  C02270 

000402 

BR 

10$ 

012700 

000360 

PRIERR: 

MOV 

#:E.PRIS377,R0 

;  PRIVILEGE  VIOLATION 

005267 

175722 

10$: 

INC 

DELFLG 

;  MARK  CONTEXT  FOR  DELETION 

512  002274 

0C5G01 

CLR 

R1 

;  NO  BYTES  TO  RETURN 

513  002276 

RETURN 

514 

515 

.DSA8L 

LS8 
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PAGE  2 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

DAOERR 

O02242  R 

6-402 

6-452 

#7-500 

DDEACB 

■'00016  RG 

#5-91 

DDMAN 

OU0066  RG 

#5-111 

DEACTX 

=  «•♦*♦»  GX 

6-437 

DECPT 

000070  RG 

#5-112 

DELFLG 

000216  R 

#5-263 

*6-315 

6-435 

•7-511 

•  8-59>, 

•9-626 

•10-651 

DREXT 

000020  RG 

#5-92 

6-366 

EXRON 

000022  RG 

#5-93 

EXRUP 

00002A  RG 

#5-94 

FDNCNT 

000224  RG 

#5-266 

•6-337 

6-358 

FE.CEX 

=  ♦,♦»»*  GX 

6-324 

FILHD 

100072  RG 

#5-113 

FINREQ 

002736  R 

8-557 

8-595 

9-627 

#11-673 

FMASK 

000026  RG 

#5-95 

6-324 

FRKDON 

=  ******  GX 

6-412 

FTAPLE 

3  ******  GX 

5-272 

GETPKT 

OO^i^'O^  RG 

#6-312 

6-41' 

HEADR 

000030  f-  ' 

#5-96 

IDBUFF 

001410  Rg 

#5-277 

8-582 

lE.ALN 

=  177736 

7-497 

iE.DAO 

=  177763 

7-500 

lE.IFC 

=  177776 

7-494 

lE.NDR 

^  177670 

7-503 

lE.NLN 

=  177733 

7-506 

IE. PR! 

=  177760 

7-509 

IFCFRR 

002226  R 

6-475 

#7-494 

INIACP 

=  ******  GX 

6-307 

INIREQ 

-   ******  GX 

8-589 

lOFIN 

000032  RG 

#5-07 

6-467 

ISAR5 

000002  RG 

#5-85 

ISAR6 

000004  RG 

#5-86 

ISTACK 

000226  RG 

#5-267 

*6-306 

IS. sue 

=  000001 

10-652 

11-674 

I.FCN 

000012  G 

6-395 

6-417 

8-573 

8-576 

I  .LN2 

000006  G 

6-387 

6-463 

I .  PRM 

000024  G 

6-397 

6-400 

6-430 

•6-439 

8-541 

8-554 

•3-554 

8-555 

•8-555 

8-556 

•8-556 

8-580 

8-583 

8-584 

•8-584 

8-585 

•8-585 

8-586 

*8-586 

9-620 

I.7CB 

000004  G 

6-351 

6-371 

•6-37? 

•6-443 

8-561 

KIS,'-R5 

=  ,.»*»*  GX 

5-85 

KICAR6 

=  ******  GX 

5-86 

5-87 

i<;SAR6 

000006  RG 

#5-87 

LDBAF 

000074  RG 

#5-114 

LDBGT 

000076  RG 

#5-115 

LDBRT 

000100  RG 

#5-116 

LGCON 

000102  RG 

#5-117 

LGFNB 

000104  RG 

#5-118 

L6M0N 

000106  RG 

#5-119 

LGSTT 

000110  RG 

#5-120 

LGUIC 

0CC112  RG 

#5-121 

LICRS 

000114  RG 

#5-122 

LLCTA 

OOOIIfc  RG 

#5-123 

MAN 

SYM 

SYM 

AST 
AST 
CF$ 
C$F 
C$L 
CSS 
DLX 
EXR 
FDN 
MRK 
NTL 
REX 
TKT 


MANACP 


CREATED  BY  MACRO  ON  29-JUN-85  AT  10:29 
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SYMBOL    CRO'^S   REFERENCE 
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CREF       OA.OO 


MAN 
WBU 


SYIIBOL 

VALUE 

REFERENCES 

ASTX 

000022  R 

#6-86 

8-U3 

ASTXl 

00002A  R 

#6-87 

7-'  18 

CFSFDN 

=  ,,,*»*  GX 

6-8A 

7-'  16 

8-U2 

CSFLAG 

=  «**••»  GX 

•  6-8A 

•7-116 

♦8-1A2 

C$LOC 

=  ***♦»»  GX 

»8-1A2 

CtSTAT 

;  .»*,».   GX 

♦  6-85 

♦  7-'!16 

DLXASl 

00005A  RG 

#7-113 

EXRQN 

:  ,,**.,   GX 

6-90 

FDNCNT 

=«**«♦*  GX 

♦  6-91 

MRKA5T 

C0007A  RG 

#8-139 

NTLAST 

000000  RG 

#6-81 

REXAST 

G00OA6  RG 

#6-92 

T<TCB 

;  tt.«**  GX 

6-89 

MANAST 
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MA^ 
MA( 


375 
376 
377 
378 
379 
380 
381 
382 
383 
38^. 
385 
386 
337 
3E? 
389 
390 
391 
392 
393 
39A  000526 

395  000526 

396  000532 

397  000531 

398  0005AO 

399  0005A1 
AOO  000550 
101  000554 

402  000556 

403  000562 

404  000566 
405 

406 


.SBTTL  W8UFF  -  WRITE  "BUFFER"  INTO  USER'S  BUFFER 

♦♦-UBUFF-WRITE  "BUFFER"  INTO  USER'S  BUFFER 

THIS  ROUTINE  COPIES  THE  CONTENTS  OF  "BUFFER"  INTO  THE  USER'S  SUFFER. 

INPUTS: 

R1  =  LENGTH  OF  DATA  TO  COPV 

R3  =  ADDRESS  OF  I/O  PACKET  WITH: 

I.PRM   =  APR  BIAS  OF  BUFFER 

I.PRM+2  =  VIRTUAL  ADDRESS  OF  BUFFER 

OUTPUTS: 

DATA  COPIED  TO  USER'S  BUFFER 

REGISTERS: 

NO  REGISTERS  MODIFIED 


WBUFF: 


010146 

012700  OOOOOOG 

042702  160000 

052702  120000 
012600 

C16304  000026 

016303  000024 


000001 


CALL 

MOV 

MOV 

CALL 

SIC 

BIS 

MOV 

MOV 

MOV 

CALLR 

.END 


SSAVAL 

R1,-(SP) 

#BUFFER,RO 

aRELOC 

*160000,R2 

*120000,R2 

(SP)+,R0 

I.PRM+2(R3),R4 

I.PRMtR3),R3 

aSLXIO 


SAVE  ALL  REGISTERS 

SAVE  NUMBER  OF  BYTES  TO  MOVE 

GET  DESTINATION  BUFFER  ADDRESS 

RELOCATE  THE  BUFFER         ;  RJK02 

STRIP  OFF  APR  OFFSET 

MAKE  SOURCE  DISPLACEMENT  VIA  APR  5 

RETRIEVE  NUMBER  OF  BYTES  TO  MOVE 

GET  DESTINATION  APR  6  DISPLACEMENT 

GET  DESTINATION  APR  6  BIAS 

COPY  DATA  AND  RETURN        ;  RJK02 
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MA 
LO 
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MANBYE   -  PERFORM  LOGOUT   CLEANUP  MACRO  V05.03b  Wednesday    l8-Sep-85   17:20     Page   5-4 
MACRO   CALLS   AND   LOCAL    DATA 


Ml 
F( 


71 
72 
73 
^l^ 
75 
76 
77 
78 
79 

80  000000 

81  000000 

82  000000 

83  000000 
8A  000000 


NEW  ENTRIES  CAN  BE  ADDED  BY  DEFINING  THEIR  ADDRESS  IN  THE  PSECT  "$$$BYE' 
AND  LINKING  THE  MODULES  IN  THE  SAME  OVERLAY  SEGMENT  (BUT  AFTER!)  MANBYE. 

EACH  LOGOUT  ROUTINE  IS  CALLED  WITH: 

R3  =  ADDRESS  OF  BUFFER 

RA  =  ADDRESS  OF  CONTEXT  AREA 
ROUTINES  SHOULD  PRESERVE  R-;  AND  R5, 


BUT  CAN  MODIFY  RO  -  R3. 


000040' 
000000 


.°SECT  $$$BYE 

BYETBL:  .WORD  DECB^E 

.PSECT  $$$BYF 

.WORD  0 
.PSECT 


CLEANUP  FOR  DECNET 

FORCE  NEXT  PSECT  TO  BE  CONTIGUOUS 

END-OF-TABLE  MARKER 

RETURN  TO  CODE  PSECT 
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FRKDON  -   CHECK   FOR   COMPLETED   FORKS 

151 

152 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

165 

16A 

165 

166 

167 

168 

169 

170 

171 

172  000202 

173 

-7A 

V5 

176  000202  012700  OOOOOOG 

177  000206  011000 

178  000210  001001 

179  000212 
180 

181  0002U  032760 

182  000222  001771 
183 
18A 
185 

186  00022A  0A2760 

187  000232  005367 

188  000236  010067 

189  0002A2 

190  0002A6  016706 

191  000252  016001 

192  000256  012U6 

193  000260  020127 

194  00026A  001 37A 

195  000266  017701 

196  000272  012661 

197  000276  012667 

198  000302  012667 

199  000306  016067 
200 
201 
202 

203  0003U  012605 

20A  000316  005305 

205  000320  002A06 

206  000322  012667  OOOOOA 

207  000326 
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'«*-FRKDON-CHECK  FOR  COMPLETED  FORKS  AND  RE-LOAD  CONTEXT 

THIS  ROUTINE  IS  CALLED  TO  CHECK  IF  ANV  CONTEXT  FORKS  ARE  COMPLETED. 
IF  NONE  ARE,  THE  ROUTINE  RETURNS,  ELSE,  'HE  CONTEXT  IS  LOADED,  AND 
THE  THREAD  IS  RESUMED. 


INPUTS: 


CTXHD 


CONTEXT  LISTHEAD 


OUTPUTS: 

IF  NO  FORKS  ARE  COMPLETE,  NONE. 

ELSE: 
CURCTX  =  ADDRESS  OF  SAVED  CONTEXT  AREA  WITH 
CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 
STATUS  =  CSSTAT  (RETURN  STATUS)  FROM  SAVED  CONTEXT 
BUFFER  =  BUFFER  COPIED  FROM  USER'S  BUFFER 
REGISTERS  RESTORED. 


FRKDON: 


OOOOOOG  OOOOOOG  20$ 

BEQ     10$  ;  IF  b(J,  NU  -  KttI 

'TI:"  ADDRESS 


ooroooG  OOOOOOG 

OOCOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOC 

OOOOOOG 
000026 
OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 


■  LOOK  FOR  FIRST  COMPLETED  FORK 

MOV 

#CTXHD,RO              ; 

10$:     MOV 

(RO),RO 

BNE 

20$ 

RETURN 

; 

20$:    BIT 

#CF$FDN,C$FLAG(RO) 

BEQ 

10$ 

;  RELOAD  TASK 

STACK,  RESTORE  CURRENT  I/O 

BIC 

*CF$FDN,C$FLAG(RO) 

DEC 

FDNCNT 

MOV 

RO, CURCTX 

CALL 

UPDCTX 

MOV 

ISTACK.SP 

MOV 

C$SP(R0),R1 

30$:    MOV 

(R1;+,-(SP)            ; 

CMP 

R1,*C0NTEX+CTXSIZ 

BNE 

30$ 

MOV 

aTKTCB,R1 

MOV 

(SP)+,T.UCB(R1) 

MOV 

(SP)+,TSKLN2 

MOV 

(SP)+, CURIOP 

MOV 

C$STAT(RO), STATUS 

;  RELOAD  THE  OVERLAY  SEGMENTS 

MOV 

(SP)+,R5 

AGS:    DEC 

R5 

BLT 

60$ 

MOV 

(SP)+,50$ 

CALL 

a.NAUTO 

POINT  TO  CONTEXT  AREA  LISTHEAD 
GET  ADDRESS  OF  NEXT  CONTEXT  AREA 
IF  NE,  GOT  ONE 
ELSE,  NO  FORK  TO  PROCESS  -  RETURN 


IS  THERE  A  COMPLETED  FORK  HERE 
IF  EQ,  NO  -  KEEP  LOOKING 


CLEAR  FORK  DONE  FLAG 

THIS  FORK  NO  LONGER  NEEDS  PROCESSING 

SET  THIS  AS  CURRENT  CONTEXT 

RESTORE  THE  CONTEXT 

RE-INITIALIZE  TASK  STACK 

AND  GET  SAVED  THREAD  SP 

RELOAD  TASK  STACK 

AT  Ef>.'n  OF  CONTEXT  STACK  ? 

IF  NE,  NO 

GET  OUR  TCB  ADDRESS  ;  RJKOl 

...  AND  RESTORE  OUR  TI:  UCB  ADDRESS 

RESTORE  TASK'S  2ND  LUN  WORD 

RESTORE  AND  I/O  PACKET  ADDRESS 

RETURN  STATUS 


GET  THE  NUMBER  OF  SEGMENTS  Tn  LOAD 

AN-i  MORE  TO  LOAD  ? 

IF  LT,  NO  -  FINISHED 

ELSE,  POINT  TO  SEGMENT  DESCRIPTOR 

CALL  $AUTO  ... 
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240 
2A1 
2A2 
2A3 
2AA 
2A5 
2A6 
2A7 
2A8 
2 '.9 
250 
251 
252 


0OOAO2 
OOOA06 
OOOAIO 
0OOA12 
OOOAIA 
000A16 


016702 
001003 
005202 
100001 
000251 


177A0A 


89$: 


90$: 


SEC 

.ENDC 

MOV 
3NE 
INC 
BPL 
SEC 
RETURN 


;  DF  R$$PRO 

NMSTATt2,R2 

90$ 

R2 

90$ 


ELSE,  SET  CARRY 


GET  BUFFER  LENGTH 

IF  NE,  SOMETHING  IN  BUFFER 

ELSE,  INDICATE  ONE  BYTE 

IF  PL,  SUCCESS 

ELSE,  ERROR 


.DSABL  LS3 
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OA.OO 


MA> 
lat 


MACRO   NAME 

REFERENCES 

ANBDFS 

#5-5A 

5-57 

CALL 

6-90 

7-122 

MANDfS 

#5-5A 

5-56 

RESMAP 

#5-5A 

9-213 

RETC 

#5-5A 

9-195 

RETURN 

6-96 

7-129 

SAVMAP 

Ifi-Si, 

9-192 

SWSTKS 

9-191 

8-155 


-164 


9-191 


9-2U 


9-195 


9-250 


,,f ;le«»id»»manvcd 
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PS 
Ta 


S- 
6- 


50 
72 


MACRO  CALLS  AND  LOCAL  DEflMlTlONS 
FTABLE  -  FUNCTION  DISPATCH  TABE 
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50 
65 


Macro  calls  and  definitions 

PSIBYE  -  LOGOUT  cleanup  for  PSI  user 
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121 
122 
125  000102 

124  000110 

125  000112 

126  000116 

127  000120 

128  000122 

129  000126 

130  000152 

131  C00156 

132  0001A2 

155  000150 

134  000154 

135  000162 

156  000164 

157  000172 

158  000174 
159 

140 
141 

142  000176 

143  000202 
144 

145 
146 

147  000204 

148  000210 

149  000212 

150  000214 
151 

152 


If  "CLEAR"  OPERATION  FOR  SPECIFIED  ALIAS,  MAKE  SURE  THAT  iT  EXISTS 


052764 
001452 
105764 
005452 
010400 
062700 
016401 

012700 
012764 
016705 
032763 
001405 
012764 
105412 
000405 


105406 


012700 
005702 
001002 


000100  000002 
000011 


000012 
000020 

177770 

000010  000004 
OOOOOOG 
OOOOOOG  OOOOOOG 

000005  000004 


5$: 


BIT  #M0$CLE,A$0PT(R4) 

BEQ  10$ 

TST8  A$TYP(R4) 

BLE  20$ 

MOV  R4,R0 

ADD  #A$ALI,RO 

MOV  A$SC0(R4),R1 

CALL  TSTALI 

MOV  #ME.UCO,R0 

MOV  *ME$ALI,A$PAR(R4) 

MOV  CURCTX,R5 

BIT  *Cf$VR2,C$fLAG(R5) 

BEQ  5$ 

MOV  #ME$AL2,A$PAR(R4) 

BCS  50$ 

BR  20$ 


IF  "SET"  OPERATION  CHECK  DESTINATION 


10$: 


CALL 
BCS 


CHKDcS 
30$ 


177776 
000002 


CHECK  FOR  JUNK  AT  END  OF  MESSAGE 

50$:    MOV     #ME.F0R,R0 
TST     R2 
BNE     50$ 
MOV     #MS.MOR,R0 


IS  THIS  A  CLEAR  OPERATION  ? 

IF  EQ,  NO  -  BYPASS  CHECK  FOR  EXISTANCE 

WAS  AN  ALIAS  NAME  SPECIFIED  ? 

IF  LE,  NO  -  BYPASS  CHECK 

ELSE,  POINT  TO  CONTEXT  BLOCK 

POINT  TO  ALIAS  NAME 

GET  THE  SCOPE 

TRY  TO  FIND  THE  ALIAS 

ASSUME  IT  DIDN'T  EXIST 

ASSUME  VERSION  2.1  OR  HIGHER 

GET  ADDRESS  OF  CONTEXT  AREA 

CONNECTED  TO  VERSION  2  NCP? 

BR  IF  NO 

ELSE  STORE  VERSION  2  ENTITY  CODE 

IF  CS,  INVALID  ALIAS  ID 

ELSE,  IT  EXISTED 


ELSE,  CHECK  DESTINATION 
IF  CS,  ILLEGAL  DESTINATION 


ASSUME  ILLEGAL  INPUT  FORMAT 
ANYTHING  LEFT  IN  INPUT  BUFFER 
IF  NE,  YES  -  ILLEGAL  INPUT 
ELSE,  SET  SUCCESSFUL  RETURN 


154  000220 

012702 

000001 

30$: 

MOV 

#1,R2 

155  000224 

016403 

000006 

MOV 

A$BUF(R4),R3 

156  000230 

052764 

000001 

000000 

BIS 

*AF.INI,A$FLG(R4) 

157  000256 

110013 

MOve 

R0,(R5) 

158  000240 

100015 

b°L 

50$ 

159  000242 

005064 

OOuOOO 

CLR 

A$FLG(R4) 

160  000246 

116465 

000004 

000001 

M0V8 

A$PAR(R4),1(R5) 

161  000254 

001404 

BEQ 

40$ 

162  000256 

105063 

000002 

CLRB 

2(R3) 

163  000262 

012702 

000003 

MOV 

#5,R2 

164  000266 

000261 

40$: 

SEC 

165  000270 

50$: 

RETURN 

USE  THE  STATUS  W   RO  TO  BUILD  THE  RETURN  MESSAGE  AND  C-BIT  RETURN 

ASSUME  1  BYTE  RETURN  MESSAGE 

RESTORE  THE  BUFFER  ADDRESS 

ASSUME  INIT  WAS  SUCCESSFUL 

SET  THE  RETURN  CODE 

IF  PL,  SUCCESS  -  FINISHED 

ELSP,  UNSUCCESSFUL  INIT 

SET  THE  PARAMETER  TYPE  IN  ERROR 

IF  EQ,  THERE  WAS  NONE 

ELSE,  MAKE  PARAMETER  TYPE  2  BYTES  LONG 

SET  LENGTH  OF  RETURN  TO  5  BYTES 

SET  ERROR  RETURN 
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75 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 

94  000000 

95  000000 

96  000004 

97  000010 

98  00O014 

99  000022 
100 

101 
102 

103  000024 

104  000032 

105  000034 

106  000040 

107  000042 
108 

109 
110 

111  000046 

112  000052 

113  000056 

114  000062 

115  000064 

116  000066 

117  000C70 


004567  OOOOOOG 

010364  000006 

012700  177600 

032764  000001      000000 
001411 


032764     000100     000002 
001403 

000402 


005064  000000 
012702  000001 
016403  000006 
110013 
100001 
000261 


.S8ITL  ALCHOP  -  ALIAS  CHANGE  PARAMETERS  OPERATE 

'♦♦-ALCH  -ALIAS  CHANGE  PARAMETERS  OPERATE  ROUTINE 

THIS  ROUTINE  IS  CALLED  TO  PERFORM  THE  CHANGE  ALIAS  PARAMETERS 
OPERATIONS  (SET  AND  CLEAR). 

INPUTS: 

R3  =  ADDRESS  OF  INPUT/OUTPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA  (WITH  DATA  SET  UP  FROM  ALCHIN) 

OUTPUTS: 

RO  =  NICE  RETURN  CODE 

R2  =  LENGTH  OF  DATA  IN  OUTPUT  BUTFER 

R3  =  ADDRESS  OF  OUTPUT  BUFFER 

C-6IT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 


SAVE  R3-R5 
SAVE  BUFFER  POINTER 
ASSUME  WE'RE  ALL  DONE 
HAVE  WE  BEEN  INITIALIZED 
IF  EQ,  NO  -  ALL  DONE  1 


REGISTERS. 
R3, 

R4, 

R5  ARE  PRESERVED 

CHOP:: 

JSR 
MOV 
MOV 
BH 
BEQ 

R5,$SAVRG 

R3,A$8UF{R4) 

#ME.DON,R0 

*AF.INI,A$FLG(R4) 

20$ 

DISPATCH  TO  SET  OR  CLEAR  ROUTINES 

BIT     #M0$CLE,A$0PT(R4) 
BED     10$ 
CALI     CLRALI 
BR      20$ 
10$:    CALL     SETALI 


IS  THIS  A  CLEAR  OPERATION  ? 

IF  EQ,  NO  -  SET 

ELSE,  rES  -  CLEAR  ALIAS(ES) 

AND  RETURN 

SET  ALIAS 


USE  THE  STATUS  IN  RO  TO  BUILD  RETURN  MESSAGE  AND  C-BIT  RETURN 


^0$: 


30$: 


CLR 

MOV 

MOV 

M0V8 

BPL 

SEC 

RETURN 


A$FLG(R4) 

*1,R2 

A$6UF(R4),R3 

R0,(R3) 

30$ 


CLEAR  INIT  FLAG  IN  FLAGS  WORD 
MESSAGE  IS  1  BYTE  LONG 
RESTORE  BUFFER  POINTER 
BUILD  THE  RETURN  MESSAGE 
IF  PL,  SUCCESS 
ELSE,  FAILURE 
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^  .0 
DSPDRV 

471 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

485 

484 

485 

486 

4P 

4a8 

m89 

490 

491 

'92 

H 

4^H 
495 
496 
497 

498 
499 

500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
52' 
522 
■;?■• 

5^4 

525 
526 
527 
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000414 


00043C 
000434 
000440 
000444 
0004  50 
C0P4  54 
000456 

C00462 
000464 


.SBTTL  DSPDRV 


Dispatch  to  Device  Driver 
»♦*  DSPDRV  ♦** 


Function: 

Call  Format: 
Inputs: 

Outputs: 


Registers: 
Note: 


To  dispatch  to  a  device  driver's  microcode  load  entry 
point  with  a  CCB  initialized  to  point  to  one  (or  more) 
buffer(s)  containing  microcode. 


CALL 


DSPDRV 


R4     =  address  of  CCB 

PDVIDX  =  device  driver  process  index  *  2 

DDMTBL  =  address  of  driver's  line  table 

Dispatch  to  driver  is  executed  and  buffer(s)  loaded. 
Device  driver  can  expect  R4  to  point  to  the  CCB  but 
must  use  KISAR6  to  map  to  the  buffer(s). 

C-bit  clear  =  load  occurred  without  error 

C-bit  set   =  Load  error(s)  occurred 

R3        =  dispatch  return  status  from  driver 

R3  modified  for  output 

SPDDSP  saves  KISAR5  and  KISAR6  so  that  the  driver  does 
not  have  to  save/restore  any  APR5/APR6  mappings. 


DSPDRV:  CALL    $SWSTK,20$ 


Save  registers,  enter  system  state 


000420  126427  000011  000002 
000426  001033 


If  this  is  a  write  request,  then  we  must  make  sure  that  the  load 

CCB  contains  the  correct  mapping  to  the  FCS  buffer.  This  mapping 

can  only  be  guaranteed  to  not  change  as  long  as  MLD  is  in  system 
state. 


; ;  Is  dispatch  for  a  load? 
; ;  Branch  if  not 


016401  000014 

016402  0000)6 
062702  160000 
016400  0C0020 
020077  000616' 
003402 

017700  000616' 

010005 

016703  00014b' 


7$: 


CMPB 
BNE 

C.MOD(R4),*F5.WLB/400 
10$ 

.IFT 

MOV 

aiSAR5,C.BUF1(R4) 

.IFTF 
.IF 

DF      N$$UMR 

MOV 
MOV 
ADD 
MOV 
CMP 
BLE 
MOV 

C.8UF1{R4),R1 

C.eUF1«2(R4),R2 

#160000, R2 

C.CNT1(R4),R0 

RO.aRDBSZ 

7$ 

aRD8SZ,R0 

MOV 
MOV 

R0,R5 
LDe]AS,R3 

;;  If  system  is  RSX-11M  ... 

; ;  Put  file  buffer  mapping  in  CCB 

; ;  For  any  operating  system  ... 

;;  If  sys^^em  has  UMRs  ... 

;;  Copy  buffer's  mapping  bias 

;;  Copy  APR6-bia5ed  virtual  address 

;;  F:-ce  it  to  be  APR5-bia5ed 

; ;  Get  buffer  byte  count 

; ;  Does  microcode  fit  in  an  LDB? 

; ;  Branch  if  00 

; ;  Else,  copy  one  LDB's  wor^h  cf  code 

;;  Savo  the  buffer  length 

;;  Get-  bias  of  UMR-mapped  LDB 
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ABOAST 

AC$DNT= 

ACSX25= 

AESC1R= 

AE$L1N= 

AE$MO[)= 

AS.DEL= 

AS.EXT= 

AS.RED= 

AS.WRT= 

AS$CHI!;  = 

A$$CPS= 

A$$PR1= 

A$$TRP= 

A. IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRl 

A.STAT 

A.TCB 

A.TCBL 

BLOCK 

BLXIO 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB,SDB= 

CB.SLI= 

CB.XLB= 

CCBRT 

CC.LLC= 

CE.ABO= 

CE.DAn= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP^ 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

C- .CHN= 

CF.EOM^ 

fKHDR  = 

CF.LB  = 

cf..;n=- 

CF.SOM= 
CF.SVN= 
CF.TRN= 


0C075AR 

000002 

000001 

000003 

000001 

000004 

000010 

OOOOOA 

000001 

000002 

000000 

000000 

000000 

000000 

0000&3 

oooou 

000011 

000012 

000000 

000002 

000010 

000004 

000006 

0001 52R 

000572RG 

000002 

OOOOAO 

000020 

000004 

000010 

000100 

000001 

000604RG 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100i-'-4 

00000' 

000004 

000020 

100000 

000002 

CJOO'O 

000040 

000100 

010500 


003  CL$DLL= 
CL$ECL= 
CL$LDN= 
CL$MAN= 
CL$PAZ= 
CL$PLH= 
CLT?LL= 
CL$PRT= 
CL$R0U= 
CL$SES= 
CL$SGE= 
CL$SSE= 
CL$TRN= 
CL$XL2= 
CL$XL3= 
CL$X2S= 
CM.C1R= 
CM.FMT= 
CM.HRD= 
CM.LIN= 
CM.L00= 
CM.XL0= 
CP.DCF= 
CP.HDL^ 
CP.PS  = 
CP.PSI= 
CP.XCF= 
CP.2FR= 
CS.AB0= 
CS.BR0= 
CS.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.DIS^ 
CS.ENA= 
CS.ENB= 
CS.ERR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 
CS.R0V= 
CS.RSN= 
CS..SHU= 
CS.SI»= 
CS.STR= 
CS.SUr.^ 
CS.TMO= 
CS.X'JR= 
CTLNO^I 
CURQSr 


002 
002 


002 


000500 

C$$CKP= 

000000 

EV$APL= 

000400 

000300 

C$$0RE= 

000400 

EV$ARC= 

000421 

010400 

C$$RSH= 

177564 

EVSAUC^ 

000010 

000000 

C.ADD 

000034 

EV$AUS= 

000003 

034100 

r.BID 

000003 

EV$CDF= 

000520 

034000 

C.BUF 

000014 

EV$C0Z= 

000011 

000600 

C.BUF1 

000014 

EV$DBR= 

000302 

034200 

C.BUF2 

000024 

EV$GAS= 

035101 

010000 

C.CNT 

000020 

EV$HCE= 

035114 

000200 

C.CNT1 

000020 

EV$HCI= 

035113 

035000 

C.CNT2 

000030 

EV$HFE= 

000506 

035100 

C.FLG 

000022 

EV$IFL= 

000413 

000400 

C.FLG1 

000022 

EV$IF0= 

000415 

013700 

C.FLG2 

000032 

EV$IFS= 

000414 

013600 

C.FNC 

000010 

EV$INF= 

000515 

013500 

C.LJN 

000006 

EV$LDL= 

000407 

000002 

C.LNK 

000000 

EV$LDN=^ 

010416 

100000 

C.MOD 

000011 

EV$LDO= 

000411 

000002 

C.NSP 

000004 

EV$LDS= 

000410 

OOOOCO 

C.PRO 

000042 

EV$LSC= 

000500 

000001 

C.RSV 

000002 

EV$LUP= 

000412 

000004 

C.STA 

000007 

EV$NCL= 

000402 

000040 

C.STS 

000012 

EV$NRC= 

000416 

000007 

C.URM 

177776 

EV$NSC= 

000200 

177400 

C.XACP 

000004 

EV$NUL= 

000401 

000200 

C.XID 

000035 

EV$NVR= 

000406 

000100 

C.XLEN 

000044 

EV$0PL= 

000403 

000030 

C.XPLI 

000040 

EV$PCC= 

034000 

000100 

c.xpr 

oooo;;4 

EV$PCI= 

034001 

000002 

C.XSVC 

000042 

EV$PCM= 

034002 

000200 

C.XTC 

000037 

EV$PFE= 

000404 

000002 

C.X25 

000036 

EV$PPC= 

034003 

000010 

DDMTBL 

000164R 

002  EV$RCF= 

000517 

000200 

DEVERR 

000051R 

002  EV$RDC= 

010001 

000400 

[)L$AST= 

000002 

EV$RDR= 

010002 

000004 

DL$HLT= 

000000 

EV$RJE= 

035106 

000002 

DL$IST= 

000001 

EV$RSC= 

000501 

000040 

DL$MAI= 

000004 

EV$RUL= 

000405 

000001 

DL$0FF= 

000001 

EV$SNA= 

035000 

000020 

DLSON  = 

000000 

EV$SNF:= 

000516 

100000 

DL$RUN= 

000003 

EV$SPE= 

035001 

001000 

DL$SHU= 

000002 

EV$XCE= 

034110 

000001 

DL$SYN= 

000005 

EV$XD1= 

013600 

002000 

OSPDRV 

000414R 

003  EV$XGU= 

034111 

040000 

[)$$BUG= 

177514 

EV$Xi'1X= 

000514 

004000 

D$$ISK= 

000000 

EV$XRS= 

000512 

0OO01O 

D$$L11= 

000001 

EV$XSC= 

000513 

000004 

DS$YNC= 

000000 

EV$X2S= 

013500 

010000 

D$$YNM= 

000000 

EV.CCB= 

000001 

000001 

EF$ACT= 

000001 

EV.CIR= 

000020 

000002 

ETVPCL= 

010500 

EV.LC8= 

0Q91x 

00000^; 

EVTBIK 

0''0306R 

002  EV.LIN= 

000004 

Ofioooi 

EVTEfL= 

0L0002 

ev.i*;ap= 

000002 

020000 

EVTLUN= 

000002 

EV.M0D= 

000040 

000004 

EV$ACF= 

000201 

E^^.NOD= 

000010 

000162R 

002  EV$ADR= 

000420 

EV.PRT= 

000200 

000156R 

002  EVSADU= 

000417 

EXEVCL=- 

000017 

EXEVEC 

ESDATA 

ESEVTS 

ESLCN 

E$LIN 

ESMOD 

E$NOD 

ESPORT 

E$PRM 

ESSTAT 

E$TCB 

E$$XPR= 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME=: 

FR$BCC= 

FR$CCF= 

FR$CDF= 

FR$DAO= 

FR$EXC= 

FR$FRM= 

FR$FTL= 

FR$0PN= 

FR$RFD= 

FR$SBU= 

FR$SHO= 

FRSUEj 

FR$UPT^ 

FS.AST= 

FS.CIB= 

Fb.CRA= 

FS.01S= 


000566R 

000020 

000000 

000016 

000000 

000012 

000010 

000014 

000002 

000006 

000004 

000000 

000020 

000046 

000002 

000042 

000216 

000024 

000000 

000036 

000034 

000021 

000040 

000026 

000044 

000022 

000004 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

OOOO^'O 

000012 

000000 

000007 

000001 

000002 

000011 

ocoooo 

000010 
000005 
000004 
000006 
000012 
000003 
000013 
000014 
000000 
002000 
001000 
015000 


002 
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.SBTTL  MANINI  -  PROCESS  NM.INI  REQUESTS 

«*-MAN]NI-PROCESS  NM.lNl  REQUESTS 

THIS  ROUTINE  PERFORMS  ALLOCATES  A  CONTEXT  AREA  AND  A  WINDOW  BLOCK, 
(UNLESS  RFSNCX  IS  SET  IN  THE  FUNCTION  FLAGS  WORD), AND  CALLS  THE 
CORRECT  INITIAIZATION  ROUTINE  FOR  THE  REQUESTED  FUNCTION. 

INPUTS: 

R3  =  ADDRESS  OF  I/O  PACKET 

OUTPUTS: 

RO  =  I/O  STATUS  TO  RETURN 

Rl  =  NUMBER  OF  BYTES  TO  TRANSFER  TO  USER  BUFFER 

IF  SUCCESS,  CONTEXT  ALLOCATED,  AND  WINDOW  BLOCK  CREATED. 

REGISTERS: 

R3  IS  PRESERVED 


MANINI 


5$: 

10$: 


175716 

175726 
000024 
000024 

000224 

070000 


000010 
000002 

000001 

000034  000024 

000036  000026 

000042  000030 


000001  000002  20$: 

000004 

OOOOOOG  177777G 

1777776 
OOOOOOG  OOOOOOG 


C00002  000002 


002401  000012 


30$: 


TST  TSKLN2 

BNE  ALNERR 

MOV  MANTBL,R5 

MOV  I.PRM(R3),R4 

CMPB  R4,;*MF$REA 

8EQ  5$ 

CMPB  R4,#MF$REA:CM$RSX 

BNE  10$ 

BIC  #<MO$INF*256. 

CMP  R4,(R5) 

BEQ  20$ 

ADD  #R$SIZE,R5 

TST8  R$FLAG(R5) 

BPL  10$ 

MOv'B  #ME.FUN,RO 

MOV  #1,R2 

MOV  I.PRMt10(R3), 

MOV  I.PRM+12(R3)  , 

MOV  I.PRM+16(R3), 

CALLR  FINREQ 

BITB  #RF$PRV,R$FLA6(R5) 

BEQ  30$ 

MOV  l.TC8(R3),R4 

BIT  *T3.PRV,T.ST3-1(R4) 

BNE  30$ 

MOV  T.UC8-UR4l,R4 

BIT  #U2.PRV,U.CW2(R4) 

BEC  PRIEhR 

CALL  ijPDCTX 

BITB  #RF$NCX,R1FLAS{R5) 

B.vE  40$ 

CALL  ALLCTX 

BCS  NDREfi" 

CMPB  #NM."R2,I.FCN(R3) 


R4 


I.PRM(R3) 

I.PRM+2(R3) 

I.PRM+4(R3) 


IS  THERE  A  WINDOW  BLOCK  ALREADY  ? 

IF  NE,  YES  -  ERROR 

POINT  TO  MANAGEMENT  FUNCTION  TABLE 

GET  FUNCTIONS  AND  OPTIONS 

IS  THIS  A  READ  FUNCTION  ? 

IF  EQ,  YES  -  CLEAR  INFO  TYPE 

ELSE,  IS  IT  A  SYSTEM  SPECIFIC  READ  ? 

IF  NE,  NO 

CLEAR  INFO  TYPE  FROM  OPTION 

IS  THIS  FUNCTION  A  MATCH  ? 

IF  EQ,  YES 

ELSE,  POINT  TO  NEXT  FUNCTION  ENTRY 

AT  END  OF  TABLE  (RF$END  SET)  ? 

IF  PL,  NO  -  LOOK  AT  NEXT  ENTRY 

ELSE,  ILLEGAL  FUNCTION  OR  C°T10N 

LENGTH  OF  RESPONSE  MESSAGE 

REARRANGE  BUFFER  POINTER  FOR 

...  COPYING  DATA 

...  TO  USER  BUFFER 

PASS  IT  BACK  TO  USER  AND  RETURN 

IS  THIS  A  PRIVILEGED  REQUEST  ? 

IF  EQ,  NO  -  SKIP  PRIVILEGE  CHECK 

ELSE,  GET  USER'S  TCB  ADDRESS 

IS  TASK  PRIVILEGED  ? 

IF  NE,  YES  -  OK 

ELSE.  GET  UCB  ADDRESS  OF  TASK'S  Tl: 

IS  TERMINAL  PRIVILEGED  ? 

II    EQ,    NO  -  PPIVK.EGE   VIOLATION 

RE-WRITE  THE  LAST  CONTEXT  IF  NEEDED 

DOES  THIS  FUNCTION  NEED  A  CONTEXT  ? 

IF  NE,  NO  -  SKIP  ALLOCATICf 

ALLOCATE  CONTfcxT  AREA 

IF  CS,  INSUFFICIENT  RESOURCES 

IS  THIS  REQUEST  fkcM  /2.0  NC''? 
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SYMBOL  TROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

LSTCTX 

000214  RG 

#5-262 

*6-438 

MANACP 

001472   RG 

#6-302 

11-696 

VIANCLN 

002"    '   R 

6-474 

#10-646 

■1ANINI 

002         R 

6-472 

#8-537 

MANOPR 

002-     ;  R 

6-473 

#9-615 

MANTBL 

000240  R 

#5-272 

8-540 

MAXID 

=  000062 

#5-78 

5-277 

MAXLID 

=  000020 

#5-79 

5-204 

ME. DON 

177600 

9-624 

ME. FUN 

177777 

8-552 

MFSREA 

000024 

8-542 

8-544 

MN$VOL 

=  000000 

#5-74 

6-318 

MOULS 

000034  RG 

#5-98 

MOSENT 

000017 

8-581 

MOSINF 

000160 

8-546 

NDRERR 

002250  R 

#7-503 

8-572 

NLNERR 

002256  R 

#7-506 

9-617 

NMCLH 

000120  RG 

#5-124 

6-326 

NMCL2 

000122  RG 

#5-132 

6-336 

NMCRS 

000124  RG 

#5-136 

NMLST 

000126  RG 

#5-137 

NMVVCL 

=  000102     G 

#5-180 

NMVVEC 

000000  RG 

#5-83 

5-180 

NM.CLN 

003400 

6-474 

NM.INI 

002400 

6-395 

6-472 

NM.OPR 

003000 

6-473 

NM.VR2 

002401 

8-5,3 

NM.>/R3 

002402 

8-576 

NTLPT 

000130  RG 

#5-138 

NUMUSR 

000220  RG 

#5-264 

6-363 

OBJHD 

000132  RG 

#5-139 

PDVID 

000134  RG 

#5-140 

PPVNM 

000136  RG 

#5-141 

PDVTA 

000140  RG 

#5-142 

POOLPT 

000234   RG 

#5-270 

POOLSZ 

000236  RG 

#5-271 

PRIERR 

002264  R 

#7-509 

8-566 

PSIP^ 

000142  RG 

#5-143 

RBUFF 

=    ,..»♦.      GX 

6-399 

RDBAF 

000144   RG 

#5-144 

RDBCT 

000146  RG 

#5-145 

RDBNM 

000150  RG 

#5-146 

RDBSZ 

000152  RG 

#5-147 

RDBTH 

0001  5^.  RG 

#5-148 

RELOC 

000036  RG 

#5-99 

RF$END 

=  000200     G 

#5-214 

RFSNCX 

:=  000002     G 

#5-216 

8-569 

RfSPRV 

r.  000001      3 

#5-215 

8-550 

RIJ 

r     «».♦»*         5X 

6-404 

o$fLAf 

000002     G 

#5-213 

8-550 

RSFJNC 

C  00000     G 

#5-212 

RIINT 

0-00004     G 

"5-21^ 

8-591 

C  5 
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6-400 


8-i59 
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CREF   0^.00 


ASTXSS 

*5-57 

6-92 

CALL 

6-88 

CALLR 

6-90 

DIRS 

#6-92 

6-92 

SWST<$ 

6-88 

MAN 
Syr. 

AAL 

AB. 

AB. 

AF. 

AT. 

AF. 

AF. 

AF. 

AF. 

AF. 

AF. 

A<. 

AK. 

AK. 

AK. 

ALL 

AS. 

AS. 

AS. 

AS. 

AS. 

AS. 

AS. 

AS. 

A$5 

A$1 

A$1 

A$J 

A./ 

kJ 

kJ 

A.E 

A.( 

A.( 

A.( 

A.[ 

A.i 

A.[ 

A.[ 

A.I 

A.. 

A.. 

A., 

A. 

A. 

A.I 

A.I 

A.I 

A.I 

A.I 

A.I 

A.I 

A.I 

A. 

A.I 

A. 

A. 
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AALQTB- 

******  Gx 

A. RES  = 

000032 

CP.DSB= 

000010 

C.BUF2 

000024 

FS.DIS= 

013000 

AB.NPV= 

000001 

A.SBUF 

000022 

CP.EXT= 

000400 

C.CNT 

000020 

FS.DVC= 

001000 

AB.TYP= 

000002 

A.SLEN 

000024 

CP.HDL= 

000007 

C.CNT1 

000020 

FS.ENB= 

012000 

AF .AST= 

000010 

A.SMAP 

000020 

CP.LG0= 

000004 

C.CNT2 

000030 

FS.EXI= 

001000 

Ai"  .ESO- 

0O0020 

A.STA 

000015 

CP.MSG= 

000002 

C.FLG 

000022 

FS.GET= 

006000 

AF !lCK= 

OOOOAO 

A.TRAN 

000022 

CP.N10= 

000100 

C.FLG1 

000022 

FS.HLT= 

000000 

AF .MDE= 

000200 

BLXIO  = 

»*««**  Gx 

CP.NUL= 

00000 1 

C.FLG2 

0C0032 

FS.INI= 

000000 

AF .NOT= 

000002 

BUFFER= 

♦*«***  GX 

CP.PRV= 

000020 

C.FNC 

000010 

FS.KIL= 

000000 

AF .008= 

CC0004 

BUFTBL 

000306R 

002  CP.PS  = 

177400 

C.LIN 

000006 

FS.LCL= 

100000 

/\    /\    M      f\  f\    /\ 

AF .QUE= 

000100 

CB.CCB= 

000002 

CP.PSI= 

000200 

C.LNK 

000000 

FS.LTM= 

001000 

AF .XCC= 

000001 

CB.DDM= 

000040 

CP.RST= 

000200 

C.MOD 

000011 

FS.MNT= 

004000 

AK.PUF= 

000200 

CB.DLC= 

000020 

CP.SGL= 

000040 

C.NSP 

000004 

FS.MSN= 

014000 

AK .GBI= 

000202 

CB.RDB= 

000004 

CP.XCF= 

000100 

C.PCPL 

000011 

FS.REA= 

001000 

AK.GGF= 

000303 

CS.SDB= 

000010 

CP.2FR= 

000030 

C.PDPL 

000010 

FS.RET= 

000000 

ak;.ocb= 

000201 

CB.SLI= 

000100 

CSSRT  = 

***»»*  GX 

C.PNAM 

000002 

FS.REZ= 

003000 

ALLCTX 

OOOOOORG 

CB.XLB= 

000001 

CS.ABO= 

000100 

C.PRMT 

000012 

FS.RLS= 

002000 

/\S.CAA  = 

000006 

CCBRT  = 

**«»»»  GX 

CS.BRO= 

000002 

C.PRO 

000042 

F$.RNG= 

011000 

AS.DIS= 

000002 

CC.ILC= 

000200 

CS.SUF= 

000200 

C.PSTS 

000006 

FS.RST= 

000000 

AS.DLT= 

000001 

CE.ACO= 

100362 

CS.CES= 

000002 

C.PTCB 

000000 

FS.RTN= 

001000 

AS.FPA= 

000001 

CE.DA0= 

100346 

CS.CHN= 

000010 

C.RSV 

000002 

FS.SET= 

005000 

AS.rFA= 

OOOOOA 

CE.DIS= 

100366 

CS.CMP= 

000200 

C.STA 

000007 

FS.SFC= 

005000 

AS.RCA- 

000002 

CE.ERR= 

100370 

CS.DCR= 

000400 

C.STS 

000012 

FS.SFR= 

006000 

AS.REA= 

000005 

CE.ILN= 

100350 

CS.DEF= 

000004 

C.URM 

177776 

FS.SFS= 

004000 

AS.RRA= 

000003 

CE.LT0= 

100356 

C3.DEV= 

000002 

C.XACP 

000004 

FS.SPW= 

040000 

A$$CHK= 

000000 

CE.M0P= 

100372 

CS.DIS= 

000040 

C.XID 

000035 

FS.STM= 

000000 

A$$CPS= 

000000 

CE.NTE= 

100361 

CS.ENA= 

000001 

C.XLEN 

000044 

FS.STP= 

002000 

A$$PR1= 

ocoooo 

CE.RrE  = 

00376 

CS.EN6= 

00002C 

C.XPLI 

000040 

FS.STR= 

001000 

A$$TRP= 

000000 

CE.SRC= 

100364 

CS.ERR= 

100000 

C.XPT 

000034 

FS.TRM= 

003000 

A.ACC 

oooou 

CE.STP= 

100352 

CS.FTL= 

001000 

C.XSVC 

000042 

FS.WLB= 

001000 

A.ACCE 

000000 

CE.TME= 

10035-, 

CS.HCR= 

000001 

C.XTC 

000037 

FS.XKL= 

002000 

A. AST 

000006 

CE.TM0= 

100374 

CS.HFE= 

002000 

C.X25 

000036 

FS.XOF= 

010000 

A. BYT 

OOOOOA 

CE.UNS= 

100344 

CS.LST= 

040000 

[)DEACB= 

«*«»**  GX 

FS.XON= 

007000 

A. CALL 

000024 

CF.CHN= 

000001 

CS.MTL= 

004000 

OEACTX 

000264RG 

FS.ZER= 

002000 

A.CBL 

000002 

CF.EOM= 

000004 

CS.RNG= 

000010 

D$$BUG= 

177514 

F$$LVL= 

000001 

A. CONN 

000012 

CF.HDR-- 

000020 

CS.ROV= 

000004 

D$$ISK= 

000000 

GS.DEL= 

000001 

A.DEQU 

000002 

CF.LB  = 

100000 

CS.RSN= 

010000 

D$$L11= 

000001 

G$$TPP= 

000000 

A.ais 

OU0002 

CF.LIN= 

000002 

CS.SHU= 

000001 

D$$YNC= 

000000 

G$$TSS= 

cooooo 

A. DISC 

000014 

CF.SOM= 

000010 

CS.SID= 

000002 

D$$YNM= 

000000 

G$$TTK= 

000000 

A.DQSR 

177776 

CF.SVN= 

000040 

CS.STR= 

000004 

E$$XPR= 

000000 

G$$WRD= 

000000 

A.FLEN 

000011 

CF.TRN= 

000100 

CS.SUC= 

000001 

FC.CCP= 

000020 

G.CNT 

000004 

A.IBUf 

00001 A 

CM.CDS= 

000004 

CS.TMO= 

020000 

FC.CTL= 

000006 

G.EFLG 

000006 

A.  ILEN 

000016 

CM.CEN= 

000003 

CS.XUR= 

000004 

FC.KCP= 

000016 

G.GRP 

000002 

A. I  MAP 

000012 

CM.CIR= 

000002 

CTXHD  = 

******  GX 

FC.MI.= 

000094 

G.LGTH= 

000012 

A.INPU 

0000O6 

CM.ELM= 

000005 

CTXPOO 

OOOOOOR 

002  FL.MAN= 

000024 

G.LNK 

000000 

A.  lOS 

000026 

CM.EXT= 

000006 

CTXSiZ= 

**♦»*♦  GX 

FC.MLD= 

000026 

G.STAT 

000005 

A.KSR5 

177774 

CM.FMT= 

100000 

CURCTX= 

»*♦*»*  GX 

FC.PCT= 

000030 

G.TSDU= 

000036 

A.LIN 

000012 

CM.HRD= 

0U0002 

CURIOP= 

******  GX 

FC.PWR= 

000022 

G.TSFW= 

000024 

A.MAS 

000004 

CM.IND= 

000002 

C$DAIA= 

******  GX 

FC.RCE= 

000002 

G.TSGC= 

000017 

A.NPR 

000010 

CM.INE= 

000001 

C$FLAG= 

.****»  GX 

FC.RCP= 

000014 

G.TSMT= 

000022 

A.NUM 

0000 iO 

CH.LIN= 

000000 

CSSIZE- 

'»♦****  GX 

FC.TiM-- 

000010 

G.TSNL= 

000020 

A.OUTP 

000010 

CM.LKr= 

C00007 

C$$CKP= 

OOOOOC 

■^C.XCP^ 

000012 

G.TSPC= 

000016 

A.PLEN= 

000016 

CM.L0O= 

000001 

C$$ORE= 

000400 

FC.XME= 

000000 

G.TSPN= 

000004 

A.POWE 

000004 

CM.MSG= 

000011 

C$$RSH= 

177564 

FE.CEX= 

***«♦«  GX 

G.TSPR= 

000014 

A.PRM 

0000^2 

CM.RMT= 

000010 

C.ADD 

000034 

FMA3K  = 

*»»*-»  GX 

G.TSRN= 

000010 

A.PROC 

000020 

CM.XL0= 

000004 

c.b;? 

000003 

FS.AST= 

000000 

G.TSSY= 

000034 

A.RECE 

000016 

CONTEXT 

«***,.  GX 

C.BUF 

000014 

FS.CIB= 

002000 

G.TSTN= 

000000 

A.REL 

000000 

rP.DCf: 

000040 

C.BUF1 

000014 

FS.CRA= 

001000 

G.TSTS= 

000032 
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LOGOUT  -  PERFORM  LOGOUT 


87 


90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 

106  000000 

107  000000 

108  000004 

109  000006 

110  000010 

111  000016 

112  000020 

113  000026 
IK 

115  000030 

116  000032 

117  000036 
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.SBTTL  LOGOUT  -  PERFORM  LOGOUT  CLEANUP  FOR  A  USER 

**-LOGOUT-PERFORM  LOGOUT  CLEANUP  FOR  A  USER 

THIS  ROUTINE  IS  CALLED  TO  DELETE  ALL  LOCAL  ALIASES  FOR  A  USER. 

INPUTS: 

CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 
R3  =  ADDRESS  OF  INPUT/OUTPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

RO  =  NICE  RETURN  CODE  (MS.SUC) 

R2  =  LENGTH  OF  RETURN  DATA  (0) 

R3  =  ADDRESS  OF  OUTPUT  BUFFER 

REGISTERS: 

R3,  M,    R5  ARE  PRESERVED 


012700 
005720 
OOUIO 


000766 

005002 
012700 


000000' 


000001 


LOGOUT: 
10$: 


20$: 


MOV 

*8YETBL,R0 

TST 

(R0)  + 

BEQ 

20$ 

SAVRG 

<R0,R2,R3> 

CALL 

a-(RO) 

RESRG 

<R3,R2,R0> 

BR 

10$ 

CLR 

R2 

MOV 

*MS.SUC,RO 

RETURN 

POINT  TO  START  OF  TABLE 
AT  END  OF  TABLE  ? 
IF  EQ,  YES  -  ALL  DONE 
ELSE,  SAVE  A  FEW  REGISTERS 
CALL  THE  ROUTINE 
RESTORE  WHAT  WE  SAVED 
...  AND  SO  ON 

DON'T  RETURN  NOTHING! 
SET  SUCCESSFUL  RETURN 
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[ 


208  000332 

50$: 

.BLKW        1 

209  000334 

210 

211 

212 

213  000335 

000316' 

.WORD        40$ 

•    RESTORE    "BUFFER"  FROM    T 

60S: 

SWSTKS      70$ 

2U  0003A2 

016703 

fOOOOOG 

MOV           CUR]0P,R3 

215  0003A6 

062703 

I.-0002A 

ADD           *I.PRM,R3 

216  000352 

CALLR        READ 

217  000356 

70$: 

RETURN 

218 

2'9 

000001 

.END 

WITH  ADDRESS  OF  SEG  DESCRIPTOR 
AND  TRANSFER  ADDRESS 


ENTER  SVSTEM  STATE 
GET  1/0  PACKET  ADDRESS 
POINT  TO  BUFFER  DESCRIPTOR 
"READ"  THE  USER'S  BUFFER  BACK  IN 
RESTORE  REGS  AND  RETURN  VIA  SAVAL 
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25A 

255 

256 

257 

258 

259 

260  0OOA20 

012704 

261  000A22 

010 

262  000A23 

223 

263  00042A 

000435 

26A  000^26 

012704 

265  OOOA50 

CIO 

266  000431 

224 

267  000432 

000432 

268 

269 

270 

271  00043A 

012704 

272  000436 

005 

273  000437 

024 

274  000440 

000504 

275 

276 

277 

278  000442 

012704 

279  000444 

003 

280  000445 

023 

281  000446 

000424 

282  000450 

012704 

283  000452 

003 

284  000453 

024 

285  000454 

000421 

286  000456 

012704 

287  000460 

003 

288  000461 

025 

289  000462 

000416 

290 

291 

292 

293  000464 

012704 

294  000466 

001 

295  000467 

023 

296  000470 

J00413 

297  000-':  72 

012704 

298  000474 

001 

299  000475 

024 

300  000476 

000410 

301  000500 

012704 

302  000502 

001 

303  000503 

025 

304  000504 

000405 

305 

306 
307 
308  000506 

012704 

309  000510 

005 

310  000511 

223 

.S8TTL  PRIVILEGED  ROUTINE  ENTRY  POINTS 
.ENABL  LS8 


;  ALIAS 

INITIALIZE 

ALCHIN: 

:MOV 

(PC)+,R4 

.BYTE 

MESALI 

.BYTE 

MF$CHAICM$RSX 

BR 

ALID 

ALREIN: 

:MOV 

(PC)+,R4 

.BYTE 

MESALI 

.BYTE 

MUREAICMSRSX 

BR 

ALID 

;  AREA 

INITIALIZE 

ARREIN: 

:MOV 

(PC)+,R4 

.BYTE 

MESARE 

.BYTE 

MFSREA 

BR 

ARID 

•  CIRCUIT  INITIALIZE 

CICHIN: 

:MOV 

(PC)+,R4 

.BYTE 

MESCIR 

.BYTE 

MfSCHA 

BR 

CIID 

CIREIN: 

:MOV 

(PC)+,R4 

.BYTE 

MESCJR 

.BYTE 

MFSREA 

BR 

CJJD 

CIZEIN: 

:MOV 

(PC)t,R4 

.BYTE 

MESCIR 

.BYTE 

MFSZER 

BR 

CUD 

;  LINE 

INITIALIZE 

LICHIN: 

:MOV 

(PC)+,R4 

.BYTE 

flESLIN 

.BYTE 

MFSCHA 

BR 

LIID 

LIREIN 

:MOV 

(PC)+,R4 

.BYTE 

MESLIN 

.BYTE 

MFSREA 

BR 

LIID 

LIZEIN 

:MOV 

(PCH,R4 

.BYTE 

MESLIN 

.B"TE 

MF'^ZER 

BR 

LII'^ 

;  PROCESS  INITIALIZE 

PRCHIN 

:MOl 

(PC)+,R4 

.BYTE 

MESFRO 

.BYTE 

mfscha:cmsrsx 
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Table  ot  contents 

5-  50    MACRO  CALLS  AND  LOCAL  DATA 

6-  65    TRAADD  -  TRANSLATE  AN  ADDRESS  TO  A  NAME 

7-  98    TRANAM  -  TRANSLATE  A  NAME  TO  AN  ADDRESS 

8-  131    TRAALl  -  TRANSLATE  AN  ALIAS  TO  AN  NAME 

q-  166    TRAACC  -  TRANSLATE  AN  ALIAS  TO  AN  NAME  AND  ACCESS  CONTROL 


MM 
Ml* 
Mf 
M^ 
M^ 
M^ 
M^ 
M^ 

M^ 
M^ 
M^ 
M^ 

M^ 


Ll 
Lt 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
L! 


L 
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Ml 
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••f  ILE«MD««M*NVCD 


MAI 


MM      MM 

AAAAAA 

m 

NN 

VV 

VV 

cccccccc 

DDDDDDDD 

MM      MM 

AAAAAA 

m 

NN 

VV 

VV 

cccccccc 

DDDDDDDD 

MMMM  MMMM 

AA 

AA 

m 

NN 

VV 

VV 

DD      DD 

MMMM  MMMM 

AA 

Ai 

m 

NN 

VV 

VV 

DD      DP 

MM  MM  MM 

AA 

AA 

mut\ 

NN 

VV 

VV 

DD      DD 

MM  MM  MM 

AA 

AA 

mm 

NN 

VV 

VV 

DD      DD 

MM      MM 

AA 

AA 

m 

MN  NN 

7V 

VV 

DD      OD 

MM      MM 

AA 

AA 

m 

MN  NN 

VV 

VV 

DD      DD 

MM      MM 

AAAAAAAAAA 

m 

NNNN 

VV 

VV 

DD      DD 

MM      MM 

AAAAAAAAAA 

m 

NNNN 

VV 

VV 

DD      DD 

MM      MM 

AA 

AA 

m 

NN 

VV 

VV 
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MM      MM 

AA 

AA 

m 

NN 

VV 

VV 

DD      DD 

MM      MM 

AA 

AA 

m 

NN 

VV 

■ccccccc 

DDDDDDDD 

MM      MM 

AA 

AA 

m 

NN 

Vl' 

■ccccccc 

DDDDDDDD 

LL 

ssssssss 

TTTTTTTTTT 

LL 

SSSSSS" 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

.L 

ss 

LL 

ss 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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PS 


1 
2 
5 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
IQ 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
4  5 
46 
47 
48 


.TITLE  MANVTB  -  VOLATILE  MANAGEMENT  ACP  TABLES 
.IDENT  /V05.00/ 


COPVRIbHT  (C)  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD, 


MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  Of  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

MANVTB  -  TABLES  SPECIFIC  TO  THE  VOLATILE  MANAGEMENT  ACP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


ITS 


L 
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1 

2 

3 

I, 

5 

6 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4? 


.IITLE  PSieVE  -  Perform  logout  cleanup  for  PSI 

.IDENT  /V05.00/ 

.ENA8L  LC 

.NLIST  BEX 

COPVRlGHr  (C)  1983,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATIOf>J,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OIHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

Deallocate  per-terminal  PSI  data  structures  when  a  user  logs  out 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  29-May-83 

First  written 
[Tim  Dixon  EDSSEG] 

'..OO  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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ALCHIN  - 
CHUDES  - 

167 
168 

169 
170 
171 
172 
173 
17A 
175 
176 
177 
i; " 
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12:0i 
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179 

180 

181 

182 

183 

18A 

185 

186 

187 

188 

189 

190 

191  00027? 

192 

193 

^9t, 

195  000272 

196  000276 

197  000302 

198  000306 

199  000310 
200 

201 

202 

203  0003U 

20A  000316 

205  000322 

206  000324 

207  000326 

208  000330 

209  00033A 
21C  000336 

211  000340 

212  000342 

213  000344 

214  000346 

215  000352 

216  000354 
217 

218  000356 

219  000360 

220  000362 

221  000364 

222  000366 

223  00037C 


.SBTTL  CHKDES  -  CHECK  DESTINATION  FORMAT 

•»-lHKDEC-CHECK  DESTINATION  PARAMETER  FORMAT 

THIS  ROUTINE  CHECKS  THE  PASSED  DESTINATION  PARAMETER  FORMAT  FOR 
VALIDITV,  AND  IF  VALID,  SAVES  THE  DESTINATION  IN  THE  CONTEXT  AREA. 

INPUTS: 

R2  =  NUMBER  OF  BVTES  REMAINING  IN  INPUT  BUFFER 

R3  =  ADDRESS  OF  REMAINING  INPUT 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

R2  =  NUMBER  OF  BYTES  REMAINING  IN  INPUT  BUFFER 
R3  =  ADDRESS  OF  REMAINING  INPUT 
C-BIT  ERROR  INDICATOR 

IF  CLEAR,  A$DES  =  SAVED  DESTINATION  INFORMATION,  A$NUM  =  LENGTH  OF 

ALIAS  BLOCK  TO  ALLOCATE 
IF  SET,  ERROR  RETURN  IN  RO,  PARAMETER  TVPE  SET  IN  A$PAR 


REGISTERS: 

. 

R4  IS 

PRESERVED 

•HKDES: 

CHECK 

PARAMETER  TYPE  =  DESTINATION 

005064 

000004 

CLR 

A$PAR(R4) 

012701 

000156 

MOV 
CALL 

#MP$DES,R1            ; 
CHKPAR 

103467 

BCS 

40$ 

110164 

000004 

M0V8 

R1,A$PAR(R4) 

CHECK 

AND  SAVE  THE  DESTINATION  NAME 

010400 

MOV 

R4,R0 
#A$DES,RO 

062700 

000022 

ADD 

112305 

M0V8 

(R3)+,R5              ; 

003014 

BGT 

10$ 

002454 

BLT 

30$ 

162702 

000003 

SUB 

*3,R2 

005001 

CLR 

R1 

152301 

BIS8 

(R3)t,R1 

000301 

SWAB 

R1                  ; 

152301 

BISB 

(R3)+,R1 

000301 

SWAB 
CALL 

R1 
MAPADD 

103442 

BCS 

50$ 

000411 

BR 

20$ 

005303 

10$: 

DEC 

R3 

010301 

MOV 

R3,R1 

005302 

DEC 

R2 

160502 

SUB 

R5,R2 
30i 

002434 

BLT 

CALL 

SAVNAM 

NO  "CURRENT  PARAMETER"  YET 

SET  PARAMETER  TYPE  TO  CHECK  FOR 

CHECK  FOR  THE  PARAMETER 

IF  CS,  ERROR  -  RETURN 

CURRENT  PARAMETER  =  DESTINATION 


COPY  THE  CONTEXT  BLOCK  POINTER 
POINT  TO  THE  DESTINATION  NAME  AREA 
GET  NAME  BYTE  COUNT,  SIGN  EXTENDED 
IF  GT,  SPECIFIED  BY  NAME 
IF  LT,  ILLEGAL  FORMAT 
SUB  DESTINATION  FIELD  LENGTH 
ELSE,  INIT  NODE  ADDRESS 
GET  LOW  BYTE  OF  ADDRESS 

GET  HIGH  BYTE 

MAP  ADDRESS  INTO  NAME 

IF  CS,  NO  NAME  FOUND  -  ERROR 

ELSE,  CONTINUE  WITH  ACCESS 

POINT  TO  BEGINNING  OF  BUFFER 

COPY  BUFFER  ADDRESS 

DEC  BUFF  COUNT  BY  NAME  LENGTH 

IF'lT,  BUFFER  TOO  SMALL  -  ERROR 
CHECK  A  NODE  NAME  AND  SAVE  IT 
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CHOP  -  ALIAS  CHANGE  PARAMfTER  MACRO  V05.05b  Tuesday  10-Sep-85  1 
'  -  SET  AN  ALIAS 


i.l'^ 


Page 


121 
122 
12? 
12A 
125 
126 
127 
128 
129 
130 
151 
132 
133 

13^; 

155 
136 
137 
158 
139 
KO 
HI 
1A2 
K3 
14A 
U5 
146 
147 

U9 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 
167 
168 
169 
170 
171 
172 
175 
174 
175 


000072 

000072  012700  000001 


.SBTIL   SETALi  -  SET  AN  ALIAS 

•*-SETALI-SET  AN  ALIAS 

THIS  ROUTINE  IS  CALLED  TO  BUILD  AN  ALIAS  NAME  BLOCK  (ANB)  AND  LINK 
IT  INTO  THE  ALIAS  LIST  OFF  OF  D$ANN.  IF  AN  ALIAS  ALREADY  EXISTS 
WITH  THE  SAME  NAME  AND  SCOPE,  IT  IS  DELETED  BEFORE  THE  NEW  ONE  IS 

THE  ALIAS  LIST  IS  ORDERED  BV  SCOPE  (NUMERIC  UCB/PUD  ADDRESS),  WITH  THE 
EXCEPTION  Of  GLOBAL  ALIASES  WHICH  ARE  AT  THE  END  OF  THE  LIST. 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA  WITH  THE  FOLLOWING  OFFSETS  FILLED  IN: 
A$NUM  =  LENGTH  OF  ANB  TO  ALLOCATE 
A$ALI  =  ALIAS  NAME,  SPACE  FILLED 

A$SCO  =  SCOPE  (0=GL08AL,  ELSE  UCB  ADDRESS  OF  TERMINAL) 
AIDES  =  DESTINATION  NAME,  SPACE  FILLED,  FOLLOWED  BY 
ACCESS  CONTROL  FIELDS 

OUTPUTS: 

RO  --  RETURN  CODE 

REGISTERS: 

R4  IS  PRESERVED 


SETALI: 


000076 

000102 

000106  017700  OOOOOOG 

000112  001506 

000114  062700  000000 


000120 

000124  103412 

000126  026164  000010  000020 

000154  001003 

000136 

000142  000405 

000144  016700  OOOOOOG 

000150  000765 


5$: 


MOV 

.If  DF 

MOV 

CALL 

BCC 

MOV 

RETURN 

.LNDC 

SUSTKS 

SAVMAP 

MOV 

BEQ 

ADD 


*MS.SUC,RO 

R$$PRO 

*Df .AUP,R1 
CKLOCK 
5$ 
#ME.OPE,RO 

;  IF  DF  R$$PRO 

100$ 

aDECPT.RO 

90$ 

#D$ANN,R0 


AS<;UME  SUCCESS 

PRO/DECNET 

SET  ALIAS  UPDATE  BIT 

WAIT  UNTIL  NT. CFG  PARTITION  IS  UNLOCKED 

IF  CC,  UNLOCKED 

ELSE  OPERATION  FAILURE 


ENTER  SYSTEM  STATE 
SAVE  CURRENT  MAPPING 
POINT  TO  DEC  HOME  BLOCK 
NO  HOME  BLOCK,  NO  ALIASES 
POINT  TO  ALIAS  NAME  LIST 


LOOK  FOR  AN  EXISTING  ALIAS,  If  FOUND,  DELETE  IT 


10$:     CALL  FINDA 

BCS  30$ 

CMP  A.UC8(R1),A$SC0(R4) 

BNE  20$ 

CALL  DEAANB 

BR  50$ 

20$:    MOV  $CRUNM,R0 

BR  10$ 

;  ALOCATE  NEW  ALIAS  BLOCK 


LOOK  FOR  MATCHING  ALIAS  NAME 
IF  CS,  NAME  IS  NOT  A  DUPLICATE 
ELSE,  DOES  IT  HAVE  THE  SAME  OWNER 
IF  NE,  NO  -  CONTINUE  SCAN 
DEALLOCATE  OLD  ALIAS  NAME  BLOCK 
AND  CREATE  NEW  ONE 
CONTINUE  SCAN  FROM  THIS  BLOCK 
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:2i   000470 

529  000474 

530  000500 

531  000504 

532  000510 
53? 

534 
535 


016704  000150" 


016704 
010564 
016764 


000144- 
000020 
000150'  000016 


538 

) 

539 

540 

541 
542 
543  000516 

016702 

000160' 

10$ 

544  000522 

016705 

000164' 

545  000526 

010403 

546  000530 

062703 

000010 

547  000534 

548 
549 
550  000540 

105764 

000011 

20$ 

551  000544 

001426 

552 

553 

554 

555  000546 

016705 

000144' 

556  000552 

016503 

000012 

557  000556 

001011 

558  000560 

067764 

000616'  000016 

559  000566 

167764 

000616'  000020 

560  000574 

003307 

561  000576 

000241 

562  000600 

563 

564  000602 

25$ 

565 

566 

567 

568 

569 
570 
571  000602 

032703 

077777 

572  000606 

001404 

573  000610 

012702 

000051' 

574  000614 

575 

576  00062C 

000261 

30$ 

577  000622 

40$ 

MOV 

CALL 

MOV 

MOV 

MOV 

.ENDC 


LD8ADR,R4 

aSLXIO 

LD8PTR,R4 

R5,C.CNT1(R4) 

LD8ADR,C.BUF1+2(R4) 


;;  Get  APR6-biased  LD8  address 

;;  Copy  microcode  to  LD8 

;;  Get  address  of  LD8's  CCB 

;;  Copy  LDB  byte  count  to  CCB 

;;  Recopy  address  if  driuer  changed  it 

;;  End  UMR  conditional 


Pick  up  the  information  needed  to  dispatch  to  the  driver  and  perform 
the  dispatch.  Return  to  user  state  after  the  dispatch  -  all  registers 
and  mappings  prior  to  the  switch  into  system  state  are  preserved  across 
the  transition. 


MOV 
MOV 
MOV 
ADD 
CALLR 


pnvJDX,R2 

DDMTBL,R5 

R4,R3 

#C.fNC,R3 

aPDSPL 


TST8 
BEQ 

.IF 

MOV 
MOV 
BNE 
ADD 
SUB 
BGT 
CLC 
RETURN 

.IFF 

MOV 
BEQ 

.ENDC 

BIT 
BEQ 
MOV 
CALL 

SEC 
RETURN 


C.M0D(R4) 
40$ 


DF 


N$$UMR 


LDBPTR,R5 

C.STS(R5),R3 

25$ 

SRD8SZ,C.BUF1+2tR4) 

aRD8SZ,C.CNTl(R4) 

DSPDRV 


C.STS(R4),R3 
40$ 


#*C<CS.ERR>,R3 
30$ 

#DEVERR,R2 
LOGEVT 


Get  driver's  PDV  index 
Get  line  table  address  as  well 
Copy  CCB  address 

Compute  address  of  function  code 
Dispatch  to  driver  at  process  level^ 
and  return  to  user  state  at  "20$ 

Clear  C-bit  and  test  for  halt 
Branch  if  "halt"  CCB,  ignore  status 


;  If  system  has  UMRs  ... 

;  Get  address  of  LDB's  CCB 

;  Get  driver's  load  status 

;  Branch  if  error(s)  occurred 

;  Advance  load  buffer  address 

;  Subtract  enough  data  to  fill  an  LDB 

;  Branch  if  more  of  buffer  to  load 

;  Else  clear  C-bit  to  continue  load 

;  Exit 

;  If  system  has  no  UMRs  ... 

;  Else,  get  driver's  completion  status 

;  Branch  if  loading  is  to  continue 

;  End  UMR  conditionaL 

;  Errors  other  than  logical  data  end? 

;  Branch  if  not 

;  Get  "device  error"  string  address 

;  Go  log  the  event 

;  Set  C-bit  to  indicate  load  halt 

;  Exit 


MLD     -  Microcode  Loader 
LOGEVT  -  Log  a  Network  Event 
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FS.DVC= 

FS.ENB= 

FS.EXI= 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM-- 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET=: 

FS.REZ= 

FS.RLB= 

FS.RNG= 

fS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 

FS.SFS= 

FS.SPU= 

FS.STM= 

FS.STP= 

FS.STR=: 

FS.TRM= 

FS.WLB= 

FS.XKL= 

FS.XOF= 

FS.XON= 

FS.ZER= 

F$SLVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

IO.WLB= 

ISAR5 

I$$RAR= 

I$$RDN= 

KISAR5= 

K$$CNT= 

<$$CSR= 

K$$LDC= 

K-$$TPS  = 

LDBADR 

LDBGT 

LDBIAS 

LDBPTR 

LDBRT 

LDBWTS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.BWT= 

LF.ENA= 


001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
OOAOOO 
OUOOC 
OOlOtO 
000000 
003000 
002000 
011000 

ouoooo 

001000 

005000 

005000 

006000 

004000 

OAOOOO 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 

«**«**  GX 

000570RG 

000000 

000000 

«»♦*♦«  GX 

1775A6 

177546 

000000 

000074 

0001 50R 

000606RG 

000U6R 

OOOIIAR 

000610RG 

000001 

000000 

100000 

000400 

000007 

002000 


LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

Lr.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CL0= 

LN.DUM= 

LN.L0A= 

LN.L00= 

LN.0AU= 

LN.0FF= 

LN.ON  = 

LN.0OP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRi= 

LOCPAR 

LOGEVT 

L$$ASG= 

L$$DRV= 

L$$pn  = 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 


002 


.DDS 
.DLC 
.DLM 
.DLS 
.FLG 
.KRBA 
.LEN  = 
L.HPF 
L.NHST 
L.NSTA 
L.OUNR 
L.UNT 
002  MLD 
002  MLDERR 
002  MO$SAC= 
002  MO$SPR= 
MO$SSV= 
MO$25A= 
MO$25P= 
MO$25S= 
MO$29S: 
MSHIGH: 


002 


001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

001074R 

000624R 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

OOOOOOR 

OOOOOOR 

000016 

000012 

000014 

000006 

000002 

000004 

000010 

000003 


H$$CRB= 
MI$CRX--= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$0\/R- 
H$3100= 
M13101= 
M$3102= 
H$3103= 
M.KTAE= 
H.KTEF= 
M.KTMG= 
M.KTUN= 
NBUFS  = 
NTUIC 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
N$$UHR= 
003  OP$]NJ= 
003  OP$TER= 
PARERR 
PARHD 
PCBADR 
PDSPL 
PDV.IDX 
PDVTA 
PH$HDE- 
Pri$L0C= 
PH$HTS= 
PH$UHP= 
PH$UCS= 
PS.APR= 
PS.CHK= 
PS.CKP= 
PS.CKR= 
PS.CCM= 
PS.DEL= 
PS.DfiV= 
PS.FXD= 
PS.LIO= 
003  PS.NSF= 
002  PS.0UT= 
PS.PER= 
PS.PIC= 
PS.SYS= 
PWRAST 
P$$P45= 
P$$WRD= 
P.6LKS 
P. BUSY 


000124 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000002 

000003 

000010 

000002 

000004 

000006 

000001 

000574RG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000001 

000000 

000001 

0C00/3R 

000576RG 

000124R 

0n0612RG 

000160R 

000614RG 

00000' 

000002 

000003 

000000 

000001 

000007 

010000 

040000 

020000 

000200 

000010 

000020 

004000 

001000 

000400 

100000 

002000 

000100 

000040 

000754R 

000000 

000000 

000016 

000024 


p.mc 

P.L.\IK 


.MAIN 
.NAM 
.OWN 
.PRI 
.REL 
.SIZE 
.STAT 
P.  SUB 
P.SWSZ 
P.TCB 
P. WAIT 
QRMVF 
Q$$0PT= 
002  RDBSZ 
RE$ADC= 
RE$ADF= 
RE$ADR= 
RE$BLK= 
RE$CAF= 
RE$DAT= 
RE$DRP= 
RE$LDT= 
RE$LSN= 
RE$NHL= 
RE$0PE= 
002  RE$0OR= 
002  RE$RCV= 
002  RE$SED= 
002  RE$SKW= 
002  RE$STA= 

002  RE$SUH= 
RE$SYN= 
RE$TME= 
RE$TMO= 
RE$TMR= 
RbBUPT= 
RE$URE= 
RE$VER= 
RE$VRQ= 
RT$IN]= 
RT$OFF= 
RT$ON  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
R$$11S= 
SCSOFF: 
SC$ON  : 
SCSRST: 

003  SCSSHU^ 
SETTMR 
SF.ACT: 
SF.ENA^ 
SF.LPB^ 


00000! 

000000 

000012 

000004 

000026 

000002 

000014 

000016 

000030 

000010 

000022 

000026 

000020 

000600RG 

000010 

00061 6RG 

000004 

000017 

000007 

000010 

000014 

000001 

000016 

000013 

000012 

000001 

000004 

000000 

000001 

000011 

000006 

000002 

000003 

000000 

000021 

000000 

000020 

000002 

000003 

000005 

000015 

000002 

000001 

000000 

000000 

000001 

000000 

000000 

000001 

000001 

000000 

000003 

000002 

000126R 

000200 

000100 

000004 


SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLOAD 

SLTHA 

SRNAM 

STDDM 

SV$bUM= 

SV$LOA= 

S$$URG= 

002  S$$YSZ= 
S.COST 

002  S.FL6 
S.LEN 
S.NMST 
S.OWNR 
S.TSEF= 
TKTCB 
THREFL= 
TS.BLK= 
TS.CKP= 
TS.CKR= 
TS.EXE= 
TS.HLD= 
TS.MSG= 
TS.NRP= 
TS.OUT= 
TS.RDN= 
TS.RUN= 
TS.STP= 
T$$KMG= 
T$$MIN= 
T.ACTL 
T.ASTL 


ATT 
CPCB 
DPRI 
EFLG 
IOC 
..LBN 
T.LDV 
T.LNK 
T.MXSZ 
T.NAM 
T.OFF 
T.PCB 
T.PRI 


RCVL 
RRFL 


T.SAST 
002  T.SRCT 
T, 
T. 


.STAT 
.ST2 


T.5T3 


000040 

000020 

000010 

000001 

000002 

000040 

001330R 

000620RG 

001246R 

000622RG 

000001 

000000 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000002 

000602RG 

000003 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 

004000 

001000 

000000 

000000 

000052 

000016 

000062 

000004 

000040 

000022 

000003 

000041 

000044 

000000 

000050 

000006 

000066 

000046 

000002 

000012 

000072 

000054 

000071 

000032 

000034 

000036 


Ti 


003 
002 
003 
002 


002 
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MANINl  -  PROCESS  NM..NI  REQUESTS 


574  002502 

575  002504 

576  002512 

577  002520 

578  002522 
579 

580  002530 

581  002534 

582  002540 

583  002544 

584  002550 

585  002556 

586  002564 

587  002572 

588  002576 

589  002602 

590  002606 

591  002610 

592  002614 

593  002616 

594  002620 

595  002624 


001003 
052764 
122763 
001003 
052764 

116300 
042700 
012701 
016302 
016363 
016363 
016363 
012703 
012704 

103404 

103700 
100002 
005267 
000444 


BNE 

35$ 

000004 

000002 

BIS 

*CF$VR2,C$FLAG(R4) 

002402 

000012 

35$: 

CMPB 
BNE 

#NM.VR3,I.FCN(R3) 
40$ 

000010 

000002 

BIS 

#CF$VR3,C$FLAG(R4) 

000025 

40$: 

MOVE 

I.PRM+1(R3),R0 

000017 

BIC 

#MO$ENT,R0 

001410' 

HOV 

#IDBUFF,P1 
I.PRM+U(R3),R2 

000040 

MOV 

000034 

000024 

MOV 

I.PRM+10(R3),I.PRM(R3)  ; 

000036 

000026 

MOV 

.PRM*-12(R3),I.PRM+2(R3); 

000042 

000030 

MOV 

.PRM+16(R3),I.PRM+4(R3); 

000734' 

MOV 

#BUFFER,R3 

000244' 

MOV 

CALL 

BCS 

CALL 

TST8 

8PL 

#C0NTEX,R4 

INIREQ 

45$ 

aR$.NIT(R5) 

RO 

50$ 

175372 

45$: 

INC 

OElFLG 

50$: 

BR 

FINREQ 

BR  IF  NC 

INDICATE  V2.0  REQUEST 

IS  THIS  REQUEST  FROM  V3.0  NCP? 

BR  IF  NO 

INDICATE  V3.)  REQUEST 

SET  OPTION  FOR  CALL 

CLEAR  OUT  ENTITY  BITS 

GET  ID  BUFFER 

...  LENGTH  OF  BUFFER 

REARRANGE  BUFFER  POINTER  FOR 

...  COPYING  DATA 

...  TO  USER  BUFFER 

SET  BUFFER  ADDRESS 

...  CONTEXT  ADDRESS 

SET  UP  TO  INITIALIZE  FOR  THE  REQUEST 

IF  CS,  DON'T  CALL  THE  FUNCTION 

CALL  INITIALIZE  ROUTINE 

SUCCESSFUL  OPERATION  ? 

IF  PL,  YEb 

ELSE,  MARK  CONTEXT  FOR  DELETION 

FINISH  THE  REQUEST 
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#5-232 
#5-226 
#5-227 
#5-228 
#5-229 
#5-230 
#5-231 
#5-220 

5-171 

5-55 
#5-140 
#5-150 
#5-151 
#5-152 
#5-153 
#5-15^1 
#5-100 
#5-268 
#5-101 
#5-102 
#5-265 

6-330 

6-348 

8-562 
*6-347 

8-562 

8-56P 

8-565 

8-565 

6-434 
#5-186 
#5-187 
#5-188 
#5-189 
#5-155 
#5-156 
#5-157 
#5-165 

5-88 

5-89 

5-169 

5-103 

5-104 

5-105 

5-106 

5-108 

5-107 

5-109 

5-90 
#5-259 

5-110 
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SYMBOL 

VALUE 

RSOPER 

000006 

R 

npc 

=  000016 

G 

HRO 

=  000002 

(i 

RSRI 

=  000004 

G 

nR2 

=  000006 

G 

nR3 

=  000010 

G 

R$R4 

=  000012 

G 

nR5 

=:  000014 

G 

RSSIZE 

000010 

G 

R$$HPL 

=  ****** 

R$$PRO 

r  ****** 

SDBAF 

000156 

RG 

SDBCT 

000160 

RG 

SDBNM 

000162 

RG 

SLTMA 

000164 

RG 

SLTNM 

000166 

RG 

SNAPT 

000170 

RG 

SRSTD 

000040 

RG 

STATUS 

000230 

RG 

STPCT 

000042 

RG 

TKTCB 

000044 

RG 

TSKLN2 

000222 

RG 

T.NAM 

-  ****** 

GX 

T.RCVL 

=  ****** 

GX 

T.ST3 

r  ****** 

GX 

T.UCB 

=  ****** 

GX 

T3.PRV 

=  ****** 

GX 

UPDCTX 

=  ****** 

GX 

U.CW2 

-  ****** 

GX 

U2.PRV 

zz     ****** 

GX 

WBUF  F 

=     ****** 

GX 

WSACP 

000000 

(i 

W$CTX 

000002 

G 

USOPR 

000004 

G 

WSSIZ 

000006 

G 

XAVL 

000172 

RG 

XBIAS 

000174 

RG 

7TIME 

000176 

RG 

iTIM2 

000200 

RG 

SALOCB 

j:      ***»*♦ 

GX 

SBLXIO 

=      ■?**«♦♦ 

GX 

SCALLX 

~      *■***♦* 

GX 

SCCBAF 

-  t  *r  *  *** 

GX 

SCCBAL 

-  ****** 

uX 

scceci 

r  ****** 

GX 

$c;-3GT 

=:  ****** 

GX 

SriBNM 

r:  ****** 

'..< 

SCCBRT 

-  ****** 

GX 

SCEACC 

=     ****** 

GX 

fCOPT 

r     +***♦* 

GX 

SCRUNM 

■ 0C206 

RG 

SfSBRT 

-   ****** 

GX 

6-457 
11-676 


6-365 
6-316 
*6-387 
6-332 
6-445 

6-378 

9-619 


9-618 
9-623 


6-444 
*6-388 


*6-378 
10-650 

10-649 


6-463 


8-564 


8-538 


9-616 


10-647 


MM 

MM 

MMf 

MH^ 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL, 
LL 
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G.TSVA= 
G.TSVL= 
HEADR  = 

:dbuff= 

IE.ABO= 

INIBUf 

lOFIN  = 

IP.ABO= 

IP.FAK= 

1P.PND= 

IP.UMR= 

I$$RAR= 

I$$RDN= 

LAST 

I.ATlL= 

l.EFN 

I.FCN 

I.IOSB 

I.LGTH= 

I.LNK 

I.LN2 

I.PRI 

I.PRM 

I.TCB 

I.UCB 

I.XDBF 

I.XDBL 

.  ABS. 


000026 
000030 
♦»»*»*  GX 
»**»«*  GX 
«»«♦**  GX 
OOOOAORG 

OOOOAO 
000020 
000100 
000200 
000000 
000000 
000022 
OOOOAA 
000003 
000012 
OOOOU 
000044 
000000 
000006 
000002 
000024 
000004 
000010 
000040 
000044 


002 


I.XIOP 

I.XLEN= 

l.XLNK 

I.XHOD 

'.XPBF 

I.XPBL 

I.XPBV 

I.XRBF 

I 


XRBL 
XTCB 
XTMO 
I.XTTB 
I.XTTL 
K$$CNT= 
K$$CSR= 
H;$$LDC  = 
K$$TPS= 
LDBRT  = 
LD$LP  = 
LSTCTX= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MN$VOL= 
M$$CR8= 
M$$CRX= 


000002 

000046 

000000 

000006 

000022 

000026 

000030 

000012 

000016 

000004 

000020 

000032 

000036 

177546 

177546 

000000 

000074 

*.***«  GX 

000000 

***«*«  GX 

000000 

000000 

000001 

000000 

000000 

000124 

000000 


M$$FCS= 

H$$MGE= 

M$$NET= 

M$$0VR= 

NMCLH  = 

NMCL2  = 

NUMUSR= 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$NCP= 

N$$MLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

O.AST 

O.EFN 

0.ES8 

O.LGTH= 

O.LNK 

O.MCRL 

O.PTCB 

O.STAT 

PC.ALF= 

PC.ALM= 

PC.HIH= 

PC.LOU= 


000000 

PC.NRM= 

000000 

PC.XA'^  = 

000000 

PC.XIT= 

000000 

PF.ALL= 

*»**♦«  GX 

PF.1NS= 

»**.♦*  GX 

PF.L0G= 

»♦****  GX 

PF.REQ= 

000001 

P00LPT= 

000001 

POOLSZ= 

000001 

P$$P45= 

000001 

P$$WRD= 

000001 

0$$OPT= 

000010 

RBUFF 

000001 

READ 

000001 

RELOC  = 

000006 

REXAST= 

000010 

RID 

000012 

RX$IAS= 

000034 

RX$11D= 

000000 

RX$11M= 

000002 

RX$11S= 

000004 

R$OPER= 

000014 

R$$DER= 

000004 

R$i;il  = 

001000 

R$$SND= 

000001 

R$$11M= 

000002 

S$$WRG= 

000400 

000010 

000200 

M7777 

000040 

000100 

000200 

******  GX 

******  GX 

000000 

000000 

000010 

000434RG 

000444HG 

******  GX 

******  GX 

000452RG 

000003 

000000 

000001 

000002 

******  GX 

000000 

000001 

000000 

000000 

000000 


177776 
000572 
$$$xxx  000316 
Errors  detected: 


000 
001 
002 
0 


(RU.I.GBL.ABS.OVR) 
(RW,I,LCL,REL,C0N) 
(nW,I,LCL,REL,0VR) 


S$$YSZ= 

TKTCB  = 

TSKLN2= 

T$$KMG= 

T$$MIN= 

T.NAM  = 

T.RC\/L= 

UA.ACC= 

UA.ALL= 

UA.CAL= 

UA.COM= 

UA.ECH= 

UA.PR0= 

UA.PUT= 

UA.SPE= 

UA.TRA= 

UA. rRN= 

UA.TYP= 

UPDCTX 

V$$CTR= 

WBUFF 

W$SIZ  = 

X$$DBT= 

$SAVAL= 

$$$OST= 

.$$$$.= 


GX 
GX 


GX 
GX 


0C7600 
****** 
****** 
000000 
000000 

****** 

****** 

000001 

000400 

000100 

000200 

000004 

000002 

000040 

000020 

002000 

001000 

000010 

000346RG 

001000 

000526RG 

******  GX 

000000 

******  GX 

000004 

000034 


«♦«  Assembler  statistics 

Work   file  reeds:  46 

Work  file  writes:  60 

Size  of  work  file:  20423  Words   C  80  Pages) 

Size  of  core  pool:  17608  Words   (  67  Pages) 

Operating  system:  RSX-11M/PLUS 

SYfSANBUF!v2![?35?°34]MANBUF/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[150,110]NETLlB/ML,[130,10]RSXMCM/PA:1,C135,10]MANBUF 


MANBUF 
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Page  7 


119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 

137  000040 

138  OOOOAO 

139  000046 

140  000054 

141  000062 

142  000066 

143  000074 
144 

145 


.SBTTL  DECBYE  -  LOGOUT  CLEANUP  FOR  DECNET 

**-DEC8YE-L0GOUT  CLEANUP  FOR  DECNET 

THIS  ROUTINE  DEALLOCATES  THE  ALIASES  FOR  A  USER  ON  LOGOUT. 

INPUTS: 

CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 
R3  =  ADDRESS  OF  INPUT/OUTPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

ALL  ALIASES  FOR  THIS  USER  ARE  CLEARED 

REGISTERS: 

R3,  R4,  R5  ARE  PRESERVED 


012764 
112764 
112764 
017700 
016064 


000001 


000001  000000 
000100  000002 
177777  000011 
OOOOOOG 
OOCUOOG  000020 


DECBYE: 


MOV 

MOVB 

MOVB 

MOV 

MOV 

CALLR 

.END 


#AF.INI,A$FLG(R4) 

#M0$CLE,A$0PT(R4) 

*MF$KN0,A$TYP(R4) 

aTKTCB,RO 

T.UC8(R0),A$SC0(R4) 

ALCHOP 


INDICATE  WE'VE  BEEN  INITIALIZED 

SET  OPERATION  TO  "CLEAR" 

SET  TYPE  TO  "KNOWN" 

GET  ADDRESS  OF  OUR  TCB       ;  RJK01 

SET  SCOPE  TO  ISSUING  TASK'S  TI: 

CLEAR  THE  ALIASES 


MANBYE  -  PERFORM  LOGOUT  CLEANUP  MACRO  V05.03b  Wednesday  18-Sep-85 
Symbol  table 
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Symbol  table 
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AB.NPV= 
AB.TYP= 
AF.AST= 

:f.esq= 

AF.LCIC= 

AF.MDE= 

AF.NOT= 

AF.OOB= 

AF.QUE= 

AF.XCC= 

AK.BUF= 

AK.GBI= 

AK.GGF= 

AK.OCB= 

AS.CAA= 

AS.[)IS= 

AS.DLT= 

AS.FPA= 

AS.PFA= 

AS.RCA= 

AS.REA= 

AS.RRA= 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

A.ACC 

A.ACCE 

A. AST 

A. BYT 

A. CALL 

A.CBL 

A.  CONN 

A.DEQU 

A.DIS 

A. DISC 

A.DQSR 

A.FLEN 

A.IBUF 

A.ILEN 

A.IMAP 

A.INPU 

A.IOS 

A.KSR5 

A.LIN 

A.MAS 

A.NPR 

ANUM 

A.OUTP 

A.PLEN= 

A.POWE 

A.PRM 

A.PROC 

A.RECE 

A.REL 

A. RES  = 

A.SBu'F 


000001 
000002 
000010 
000020 
OOOOAO 
000200 
000002 
00000^ 
000100 
000001 
000200 
000202 
000303 
000201 
000006 
^00002 
OOO01 
000001 
OOOOO'i 
000002 
000005 
000003 
000000 

ooocoo 

000000 
000000 

oooou 

000000 
000006 
OOOOOA 
00002A 
000002 
000012 
000002 
000002 

oooou 

177776 
000011 
OOOOK 
000016 
000012 
000n06 
000026 
M777i. 
000012 
000004 
000010 
000010 
000010 
000016 
000004 
000012 
000020 
000016 
000000 
000032 
000022 


A.SLEN 

A.SMAP 

A.STA 

A.TRAN 

BUFfER= 

CF$FDN= 

CM.CDS= 

CM.CEN= 

CM.ELM= 

CM.EXT= 

CM.IND= 

CM.INE= 

CM.LKT= 

CI«I.MSG= 

CM.RMT= 

CONTEX= 

CP.DSB= 

CP.EXT= 

CP.LGO= 

CP.MSG= 

CP.Nia= 

CP.NUL= 

CP.PRV= 

CP.RST= 

CP.SGL= 

CTXHD  = 

CTXS1Z= 

CURCTX= 

CURIOP= 

f$FLAG= 

C$SP  = 

C$STAT= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.PCPL 

C.PDPL 

C . PNAM 

C.PRMT 

C.PSTS 

C.PTCB 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNH= 

E$$XPR= 

FDNCNT= 

FORK 

FRKDON 

F$$LVL= 

GETPKT= 

GS.DEL= 

G$STPP= 

G$$TSS= 

G$$TTK= 

G$$URD= 


GX 
GX 


000024 

000020 

000015 

000022 

****** 

****** 

000004 

000003 

000005 

000006 

000002 

000001 

000007 

000011 

000010 

******  GX 

000010 

000400 

000004 

000002 

000100 

000001 

000020 

000200 

000040 

****** 


****** 
****** 
****** 
****** 
****** 
****** 

000000 
000400 
177564 
000011 
000010 
000002 
C00012 
000006 
000000 
177514 
000000 
000001 
000000 
000000 
OOOCGO 

K***** 

OOOOOORG 
000202RG 
000001 

****** 

000001 
000000 
000000 
000000 
000000 


GX 


GX 


G.CNT 
G.EFLG 
G.GRP 
G.LGTH= 
G.LNK 
G.STAT 
IP.ABa= 
IP.FAK= 
IP.PND= 
1P.UMR= 
ISTACK= 
I$$RAR= 
I$$RDN= 
LAST 
I.ATTL= 
I.EFN 
I.FCN 
I.JOSB 
I.LGTH= 
I.LNK 
I.LN2 
I.PRI 
I.PRM 
I.TC8 
I.UC8 
I.XDBF 
.XD8L 
.XIOP 


I 

I 

I.XLEN= 

I.XLNK 

I.XMOD 

I.XPBF 

I.XPBL 

I.XP8V 

I.XRBF 

I.XRBL 

I.XTCB 

I.XTMO 

I.XTT8 

I.XTTL 

K$$CNT= 

t;$$CSR= 

K$$LDC= 

KI$TPS= 

LD$LP  = 

L3TCTX= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$nR= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

H$$OVR= 

N$$ACC= 


000004 

000006 

000002 

000012 

000000 

000003 

000040 

000020 

000100 

000200 

******  GX 

000000 

ooooco 

000022 

000044 

000003 

000012 

000014 

000044 

000000 

000006 

000002 

000024 

000004 

000010 

000040 

000044 

000002 

000046 

000000 

000006 

000022 

000026 

000030 

000012 

000016 

000004 

000020 

000032 

0000'6 

1775.6 

177546 

000000 

000074 

000000 

******  GX 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 


N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEH= 

O.AST 

O.EFN 

O.ESB 

O.LGTH= 

O.LNK 

O.MCRL 

O.PTCB 

O.STAT 

PC.ALF= 

PC.AL«= 

PC.HJH= 

PC.LOW= 

PC.NRM= 

PC.XAF= 

PC.XIT= 

PF.ALL= 

PF.INS= 

PF.LOG= 

PF.REQ= 

P$$P45= 

P$$WRD= 

Q$$OPT= 

READ  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SS$LOA= 

SS$NDA= 

SS$OUT= 

STATUS= 

SJDISK 

SSDOUN 

SSLOAP 

SSNAMt 

SSNEXT 

SSSIZE 

SSSTAT 

S$UP 

SSWIND 

S$$URG= 

ss$;sz= 

TKTCB  = 
TSKLN2= 
TS.BLK= 
TS.CKP= 
TS.CKR= 
TS.EXE= 
TS.HLD= 
TS.MSG= 


000001 

000001 

000001 

000001 

000C10 

000001 

000001 

000006 

000010 

000012 

000034 

000000 

000002 

000004 

000014 

000004 

001000 

000001 

000002 

000400 

000010 

000200 

■\77777 

000040 

000100 

000200 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

020000 

040000 

010000 

******  GX 

000000 

000010 

000002 

000014 

000012 

000004 

000000 

000006 

000020 

000000 

007600 


171700 
00C200 
000100 
100000 
002000 
020000 


GX 
GX 


TS.NRP= 

TS.0UT= 

TS.RDN= 

TS.RUN= 

TS.STP= 

T$$KMG= 

T$$MJN= 

T.ACTL 

T.ASTL 


ATT 
CPCB 
DPR  I 


T.EFLG 


IOC 
T.LBN 
T.LDV 
T.LNK 
T.MXSZ 
T.NAM 
T.OFF 
T.PCB 


PR  I 
RCVL 


T.RRFL 


SAST 
SRCT 


T.STAT 

T.sr2 

T.ST3 

T.TCBL 

T.TIO 

T.TKSZ 

T.UCB 

T2.AB0= 

T2.AST= 

T2.CAF= 

T2.CHK= 

T2.CKD= 

T2.DST= 

T2.FXD= 

T2.HLT= 

T2.REX= 

T2.SEF= 

T2.SPN= 

T2.STP= 

T2.UFR= 

T3.ACP= 

r3.CAL= 

T3.CL1= 

T3.GFL= 

T3.MCR= 

T3.NET= 

T3.NSD- 

T3.PMD= 

T3.PRV= 

T3.REM= 

T3.R0V= 


010000 
000400 
040000 
004000 
001000 
000000 
000000 
000052 
000016 
000062 
000004 
000040 
000022 
000003 
000041 
000044 
000000 
000050 
000006 
000066 
000046 
000002 
000012 
000072 
000054 
000071 
000032 
000034 
000036 
000030 
000057 
000060 
000026 
000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 
000004 
000020 
000001 
100000 
000100 
001000 
000010 
004000 
000020 
000200 
040000 
010000 
020000 
000040 
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311  000512 

312  000514 

313  000516 
3U  000517 

315  000520 

316  000520 

317  000520 

318  000520 

319  000522 

320  00052A 

321  000526 

322  000530 
323 

32A 
325 

326  000532 

327  000534 

328  000535 

329  000536 

330  000540 

331  000542 

332  000543 

333  000544 

334  000550 
335 

336 
337 

338  000552 

339  000554 
3^.0  000555 

341  000556 

342  000560 

343  000562 

344  000563 

345  000564 
3i6  000566 

347  000570 

348  000571 

349  000572 

350  000574 

351  000576 
352 

353 
354 

355  000600 

356  000602 

357  000603 

358  000604 

359  000606 

360  000610 

361  000611 

362  000612 

363  000614 

364  000616 

365  000617 

366  000620 

367  000622 


000402 

012704 

005 

224 


111146 
100001 
005016 
005^16 
000467 


012704 

002 

023 

000402 

012704 

002 

024 

012746 

000457 


012704 

004 

023 

000405 

012704 

004 

024 

000402 

012704 

004 

025 

111146 

005216 

000444 


012704 

000 

023 

r00405 

2704 

000 

024 

10402 

,2704 

000 

025 

,11146 

001002 


000001 


BR 

PRID 

PHREIN::MOV 

(PC)+,R4 

.BYTE 

ME$PRO 

.BYTE 

MF$REA!CM$RSX 

ALID: 

CUD: 
LIID: 
PRID:   HOVB 

(R1),-(SP) 

BPL 

10$ 

CLR 

(SP) 

10$:    INC 

(SP) 

BR 

100$ 

;  LOGGING  INITIALIZE 

L0CHIN::M0V 

(PC)+,R4 

.BYTE 

HE$LOG 

.BYTE 

MFSCHA 

BR 

LOID 

L0REIN::M0V 

(PC)+,R4 

.BYTE 

MESLOG 

.BYTE 

MFSREA 

LOID:   MOV 

#1,-(SP) 

BR 

io6$ 

;■  MODULE  INITIALIZE 

M0CHIN::M0V 

(PC)+,R4 

.BYTE 

ME$MOD 

.BYTE 

MFSCHA 

BR 

MOID 

M0RE1N::M0V 

CPC)+,R4 

.BYTE 

MESMOD 

.BYTE 

MFSREA 

BR 

MOID 

M0ZEIN::M0V 

(PC)+,R4 

.BYTE 

MESMOD 

.BYTE 

MFSZER 

MOID:   MOVB 

(R1),-(SP) 

INC 

(SP) 

BR 

100S 

;  NODE  INITIALIZE 

N0CHIN::M0V 

(PC)+,R4 

.BYTE 

MESNOD 

.BYTE 

HF$CHA 

BR 

NOID 

N0REIN::M0V 

(PC)+,R4 

.BYTE 

MESNOD 

.BYTE 

MFSREA 

BR 

NJID 

NOZEIN::M0V 

(PC)+,h4 

.BYTE 

MESNOD 

.BYTE 

MFSZER 

NOID:   MOVB 

(R1),-(SP) 

PNE 

20S 

GET  LENGTH  OF  STRING 

IF  PL,  COUNTED  STRING 

ELSE,  ONLY  1  BYTE 

INCLUDE  COUNT  IN  COUNTED  STRING 

ON  TO  COMMON  CODE 


LOGGING  ID  LENGTH  IS  ALWAYS  1  BYTE 


ALWAYS  COUNTED  STRING 
INCLUDE  FORMAT  BYTE  IN  LENGTH 


ASSUME  COUNTED  STRING 
IF  NE,  NOT  AN  ADDRESS 
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M« 


] 

2 

3 

A 

5 

6 

7 

8 

9 
10 
11 

:2 

13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 


•TITLE 
.  IDENT 


MANTRA  -  TRANSLATE  NAMES  AND  ADDRESS  FOR  MANACP 
/V05.00/ 


COPYRIGHT  (C)  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD, 


MASS. 


THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
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CORPORATION. 
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OF   ITS 
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DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1,00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-l'iM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECne'-'IIM/S  V4.2 
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MANVCD  -  VOLATILE  MANAGEMENT  AC  MACRO  V05.03b  Saturday  29-Jun-85  10:31 
Table  ot  contents 

5-  49    MACRO  CALLS  AND  IMPURE  DATA 

6-  75    INIACP  -  INITIALIZE  ACP 

7-  99    INIREQ  -  INITIALIZE  ACP  FOR  A  REQUEST 


MA 

MA 


E  12 


MANVCD 
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MACRO  CALLS  AND  LOCAL  DEFINITIONS 


50 

51 

52 

53 

5A 

55 

56  OOOOOO 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 


000200 


.SBTTL  MACRO  CALLS  AND  LOCAL  DEFINITIONS 
MACRO  LIBRARY  CALLS 

.MCALL  MANDF$ 

MANDFS  ;  DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

CM$RSX=200  ;  DEFINE  RSX  SPECIFIC  FUNCTION  FLAG 

LOCAL  MACRO  DEflNTIONS 

FUNC=0,OPT=0,INIT=0,OPER=0,FLAGS=0 


.MACRO 

MNFUNS  FUNC=0, 

.BYTE 

FUNC 

.BYTE 

OPT 

.BYTE 

FLAGS 

.BLKB 

1 

.IIF  N8 

INIT  .WORD  INIT 

.IIF  N8 

OPER  .WORD  OPER 

.ENDM 

MNFUNS 

.ENABl 

LC 
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Macro  calls  and  definitions 


50 
51 
52 
53 

54  000000 

55  COOOOO 

56  000000 
57 

58  000000 

59  000000 
bO  000000 
61 


000000' 


.SBTTL 

.MCALL 

PHBDF$ 
RDTDFS 
TCBDF$ 

.PSECT 

.WORD 

.PSECT 


Macro  calls  and  definitions 

CALLX,CEACCt,PHBDf$,RDTDF$,RESMAP,SAVMAP,TCBDF$ 

Define  PSI  home  block  offsets 
Define  remote  DTE  descriptors 
Define  TCB  offsets 


$$$8YE 
PSI8YE 


CLEANUP  FOR  PSI 
RETURN  TO  CODE  PSECT 


E  H. 


PSIBYE  -  Perform  logout  cleanup  MACRO  V05.03b  Saturday  29-Jun-85  10:32  Page  6 
PSIBYE  -  LOGOUT  cleanup  for  PS!  user 
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ALCHIN  -  ALUS  CHANGE  PARAMETER  MACRO  V05.O3b  Saturday  29-Jun-85  12:0A  Page  7-1 
CHKDES  -  CHECK  DESTINATION  FORMAT 

BCS  30$ 

MOV  R1,R3 

20$:    MOV  RA.RO 

ADD  #A$DESt6,R0 

CHECK  AND  SAVE  ACCESS  CONTROL  FIELDS 


22A  000374 

103431 

225  000376 

010103 

226  000400 

010400 

227  000402 

062700 

000030 

228 

229 
230 
231  000406 

012"05 

000020 

232  000412 

233  000416 

103420 

234  000420 

012705 

000010 

235  000424 

236  000430 

103413 

237  000432 

012705 

000020 

238  000436 

239  000442 

103406 

240 

241 

242 

243 

244 

2-5  000444 

160400 

24c  000446 

162700 

000010 

247  000452 

110064 

000010 

248  000456 

000403 

249 

250  000460 

012700 

177760 

251  000464 

000261 

232  000466 

MOV 

#MAX1D,R5 

CALL 

CHKACC 

BCS 

30$ 

MOV 

#MAXPAS,R5 

CALL 

CHKACC 

BCS 

30$ 

MOV 

#MAXACC,R5 

CALL 

CHKACC 

DCS 

30$ 

IF  CS,  ERROR 

POINT  PAST  NAME  FIELD 

COPY  CONTEXT  BLOCK  POINTER 

POINT  TO  DEST.  ACCESS  CONTROL  BUFFER 


SET  MAXIMUM  LENGTH  FOR  USER  ID 

LENGTH  CHECK  IT  AND  MOVE  IT 

IF  CS,  ERROR 

SET  MAXIMUM  LENGTH  FOR  PASSWORD 

LENGTH  CHECK  IT  AND  MOVE  IT 

IF  rs   FRROR 

SET  MAXIMUM  LENGTH  FOR  ACCOUNT 

LENGTH  CHECK  IT  AND  MOVE  IT 

IF  CS,  ERROR 


AT  THIS  POINT,  A  DUMMY  ALIAS  BLOCK  HAS  BEEN  CREATED  AND  SAVED  AT 
A$ALI-2(R4).  THE  LENGTH  OF  THE  ALIAS  BLOCK  IS  CALCULATED,  AND 
SAVED  FOR  LATEf<  ALLOCATION  AND  COPYING. 


30$: 
40$: 


SUB 
SUB 
M0V8 
BR 

MOV 
SEC 
RETURN 


R4,R0 

#<A$ALI-2>,R0 
R0,A$NUM(R4) 
40i 

#ME.PVA,R0 


CALC  HOW  FAR  WE  ARE  INTO  CONTEXT  AREA 
CALC  LENGTH  OF  ALIAS  BLOCK 
SAVE  THE  LENGTH 
AND  RETURN 

SET  PARAMETER  VALUE  ERRO,'^ 


E  15 

ALCHIN  -  ALIAS  CHANGE  PARAMETER  MACRO  V05.03b  Saturday  29-Jun-85  12:04  Page 
CHKACC  -  CHECK  ACCESS  CONTROL  FIELDS 
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SETALI  -  SET  AN  ALIAS 
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176 

177 

178 

179 

180 

181 

182 

185 

18^ 

185 

186 

187 

188 

189 

190 

191 

192 

195 

194 

195 

196 

197 

198 

199 

200 

201 

202 

205 

204 

205 

206 

207 

208 

209 

210 

211 

212 

215 

2V. 

215 

216 

217 

218 

219 

220 

221 

222 

225 

224 

225 

226 

227 

228 

229 

250 

251 

252 


.IF  Df  R$$PRO 


000152  116401  000010 


000156  010105 

000160 

000164  105004 

000166  012766  177761  000004 


50$; 


55$: 


50$: 


MOV 

TST 

8GT 

MOV 

BR 

DEC 

MOVB 

.IFF 

M0V8 

.ENDC 

MOV 
CALL 
BCC 
MOV 


aOECPT.Rl 

D$ALNA(R1) 

55$ 

#ME.RES,2<-BIAS(SP) 

"0$ 

u$ALNA(R1) 

A$NUM(R4),R1 


AINUM(R4),R1 


R1,R5 

ALOCe 

40$ 

#ME.RES,2tBIAS(SP) 


.]F  DF   R$$PRO 


PRO/DECNET 

POINT  TO  DECNET  HOME  BLOCK 

CHECK  #  OF  AVAILABLE  ALIAS  ENTRIES 

IF  GT,  SOME  AVAILABLE  IN  NT. CFG 

ELSE,  MAX  ALIAS  ENTRIES  ERROR 

DECLARED  AND  RETURN 

DECREMENT  #  OF  AVAILABLE  ALIASES 

GET  LENGTH  OF  BLOCK  TO  ALLOCATE 


GET  LENGTH  OF  BLOCK  TO  ALLOCATE 


SAVE  A  COPY  OF  THE  LENGTH 
TRV  TO  ALLOCATE  ALIAS  BLOCK 
IF  CC,  GOT  IT  -  CONTINUE 
ELSE,  DECLARE  RESOURCE  ERROR 

PRO/DECNET 


IF  ALLOCATION  ERROR  SET  #  OF  AVAILABLE  ALIASES  TO  PREVIOUS  VALUE 


000174  000455 


000176  010046 

000200 

000204  012601 

000206  010402 

000210  062702     000010 

000214  112221 

000216  005505 

000220  001575 


000222     010046 

000224     017701      OOOOOOG 


MOV  aDECPT,Rl 

INC  D$ALNA(R1) 

.ENDC        ;    DF   R$$PRO 

BR  90$ 

copy  DATA  INTO  NEW  ALIAS  BLOCK 

40$: 


50$: 


MOV 

CALL 

MOV 

MOV 

ADD 

MOVB 

DEC 

BNE 


RO,-(SP; 

aCEACC 

(SP)+,R1 

R4,R2 

#A$ALI-2,R2 

(R2)t,(R1)+ 

R5 

50$ 


POINT  TO  DECNET  HOME  BLOCK 
INCREMENT  #  OF  AVAILABLE  ALIASES 


AND  RETURN 


RO  IS  UNMAPPED  ADDRESS/  MAP  TO  ADDRESS 

MAP  TO  SLOCK 

MAPPED  ALIAS  BLOCK  ADDRESS 

■■-OIM'  TO  THE  CONTEXT  AREA 

POINT  TO  SAVfcu  ALIAS  BLOCK  OATA-2 

COPY  ALIAS  DATA  INTO  BLOCK 

LOOP  FOR  COUNT 


LINK  NE'J  BLOCK  INTO  LIST,  SORTED  BY  SCOPE 

MOV     RO,-(SP) 
MOV     aDECPT.RI 

.IF  DF  R$$PRO 

BIS     #DF.AFN,D$nAT(R1) 

.ENDC 


SAVE  THE  NEW  ANB  ADDRESS 
POINT  TO  DEC  BLOCK 

PRv.  DECNET 

SET  UPDATE  ALIAS  FILE  BIT 


ALCHOP 
SETALI 


E  16 
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MLD     -  Microcode  Loader     MACRO 

LQGEVT  -  Log  a 

Network 

Fuent 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

59A 

595 

596 

597 

598 

599  00062A 

010205 

600  000626 

016746 

000162' 

601  000632 

017701 

000614- 

602  000636 

066701 

000160' 

603  000642 

011101 

604  000644 

016146 

000004 

605 

606  000650 

012700 

000326' 

607  000654 

012701 

000000' 

608  000660 

010602 

609  000662 

6'  0  000666 

105020 

6-  1  000670 

022626 

612 

613  000672 

112520 

614  000674 

001376 

615  000676 

162700 

000306' 

616 

617  000702 

618  000752 

E  1 
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Ml 


.S8TTL  LOGEVT 


Log  a  Network  Euent 
♦**  LOGEVT  *♦♦ 


Function: 

Call  Format: 
Inputs: 

Outputs: 
Registers: 


LOGEVT:  MOV 
MOV 
MOV 
ADD 
MOV 
MOV 

MOV 

MOV 

MOV 

CALL 

CLRB 

CMP 


To  log  microcode  loading  ewents  to  the  network  using  the 
NM:  network  management  pseucio-deuice. 


CALL 


LOGEVT 


R2  =  address  of  specific  error  ASCII  string 
PDVIDX  =  PDV  index  for  device  driver 
CTLNUM  =  device  controller  number 

DECnet  event  is  logged  to  the  event  sink  for  the  node 
this  program  is  running  on. 

RO,  R1,  R2  and  R5  destroyed 


R2,R5 

CTLNUM, -(SP) 
aPDVTA.RI 
PDVIDX, R1 
(RD.RI 
Z.NAM{R1),-(SP) 

*EVT8LIC+E$DATA,R0 

*HLDERR,R1 

SP,R2 

SEDMSG 

(R0)  + 

(SP)+,(SP)+ 


10$: 


M0V8    (R5)+,(R0)t 

3NE     10$ 

SUB     #EVTeLK,RO 


Copy  address  of  input  string 
Put  controller  number  on  stack 
Get  address  of  PDV  table 
Advance  to  PDV  address  of  driver 
Get  driver's  PDV  address 
Put  RAD50  process  name  on  stack 

Get  address  of  e  ent  output  data 
Get  $EDMSG  edit  instructions  address 
Get  $EDMSG  argument  block  address 
Form  first  ASCII  string 
Make  it  an  ASCIZ  string 
Clean  off  the  stack 

Append  a  byte  from  input  string 
End  of  string  is  marked  by  zero 
Get  event  buffer  size,  log,  and  exit 


QIOWSS 
RETURN 


#IO.WL8,#EVTLUN,#EVTEFL,,,,<#EVTBLK,R0,#ETYPCL,#0> 


hLD 
PURAST 


Microcode  Loader     MACRO  V05.03b  Wednesday  28-Aug-85 
Powerfail  Recovery  AST 
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MLD     -  Microcode  Loader 
Symbol  table 
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T.TCBL 

T.TIO 

T.TKSZ 

T.UCB 

T2.AB0= 

T2.AST= 

T2.CAF= 

T2.CHK= 

T2.CKD= 

T2.DST= 

T2.FXD= 

T2.HLT= 

T2.REX= 

T2.SEf= 

T2.SPN= 

T2.STP= 

T2.UFR= 


000030 
000057 
000060 
000026 
000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 
000004 
000020 
000001 


T3.ACP= 
T3.CAL= 
T3.CL1= 
T3.GFL= 
T3.MCR= 
T3.NET: 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM= 
T3.R0V= 
T3.RST: 
T3.SLV: 

T3.SUS: 

V$$CTR= 

WAIT 

UORKSP 


100000 

000100 

001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 

000400 

002000 

000002 

001000 

000140R 

000166R 


X$$P8T= 
ZF.C0U= 
ZF.DDH= 
ZF.D]A= 
ZF.DLC= 
ZF.DVP= 
ZF.IN1= 
ZF.KMX= 
ZF.LLC= 
ZF.LMC= 
ZF.MAN= 
ZF.MFL= 
ZF.MTM= 
ZF.MUX= 
ZF.PSE= 
002  ZF.SLI= 
002  ZF.TIM= 


000000 
001000 
"00001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 


ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PC8 

Z.SCH 

$BLXI0= 

$CAT5  = 

$CCBRT= 


000000 
100000 
140000 
000014 
000016 
000000 
000010 
C00016 
000006 
000020 
000004 
000012 
000007 


GX 
GX 
GX 


$EDMS6= 

♦****« 

GX 

$LDBGT= 

****** 

GX 

$LDBRT= 

****** 

GX 

$NTUIC= 

****** 

GX 

$PARHD= 

****** 

GX 

$PDSPL= 

****** 

GX 

$PDVTA= 

****** 

GX 

$QRMVF= 

****** 

GX 

$RDBSZ= 

****** 

GX 

$SLTMA= 

****** 

GX 

$STDDM= 

****** 

GX 

$TKTCB= 

****** 

GX 

$$$   = 

000062 

$$$ARG= 

000002 

$$$0ST= 

000004 

.$$$$.= 

000034 

.  ABS.  17, '776 
000000 
MLDDAT  000624 
MLDCOD  001456 
Errors  detected: 


COO 
1J1 
002 
003 
0 


(RW,I,GBL,AB5,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,'.Cl,OVR) 
(RO,!,LCL,RbL,OVR) 


**♦  Assembler   statistics 

Work      file     reads:  125 

Work      file  writes:  96 

Size  of  work    file:  23690  Words      (   93  Pages) 

Size  of  core  pool:  17608  Words      (   67  Pages) 

Operating      system:  RSX-llM/PLUS 

DB2^MLD11S?T34?n32!?34]MLDllS/CR/-SP=DB2:[1  J]RSXMCM.SML/ML,[130J10]NETLia/ML,[130J0]RSXMCM/PA:l,[132JO]^ 
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MA 
MA 


2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 


.TITLE   MANACP  -  NETWORK  MANAGEMENT  ACP 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1981,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIF'LITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  iS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  AC'^  FUNCTION  DISPATCHING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu3  V3.0 
DECnet-Micro/RSX  VI. 0 


L 
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MANOPR  -  PROCESS  NM.OPR  REQUESTS 


597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6U 

615  002626 

616  002626 

617  002632 

618  002634 

619  002642 

620  002646 

621  002652 

622  C02656 

623  002662 

624  002666 

625  002672 

626  002674 

627  002700 


.SBTTL  MANOPR  -  PROCESS  NM.OPR  REQUESTS 

«»-MANOPR-PROCESS  NM.OPR  REQUESTS 

THIS  ROUTINE  CALLS  THE  CORRECT  OPERATE  ROUTINE  FOR  THE  REQUESTED 
FUNCTION. 

INPUTS: 

R3  =  ADDRESS  OF  I/O  PACKET 

OUTPUTS: 

RO  =  I/O  STATUS  TO  RETURN 

R1  =  NUMBER  OF  BYTES  TO  TRANSFER  TO  USER  BUFFER 


016705 
001611 
016567 

016302 
012703 
012704 

120027 
001002 
005267 
000416 


175370 

000002 

000030 

000734' 

000244' 

177600 

175316 


175350 


REGISTERS: 

R3  IS 

PRESERVED 

NOPR: 

MOV 

TSKLN2,R5 

BEQ 

NLNERR 

MOV 

W$CTX(R5),C 

CALL 

UPDCTX 

MOV 

i.PRM+4(R3) 

MOV 

#BUFFER,R3 

MOV 

#C0NTEX,R4 

CALL 

aw$0PR(R5) 

CMPB 

R0,#ME.DON 

BNE 

10$ 

INC 

DELFLG 

)$:    BR 

FINfiEQ 

CURCTX 
,R2 


GET  WINDOW  BLOCK  ADDRESS 

IF  EQ,  NO  FILE  ON  LUN 

SET  CONTEXT  AREA  ADDRESS 

RESTORE  THE  CONTEXT  AREA 

GET  LENGTH  OF  BUFFER 

SET  BUFFER  ADDRESS 

...  CONTEXT  ADDRESS 

CALL  OPERATE  ROUTINE 

LAST  TIME  THROUGH  OPERATE  ? 

IF  NE,  NO 

ELSE,  MARK  CONTEXT  FOR  DELETION 

FINISH  THE  REQUEST 


F  4 
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SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 


E  5 

PAGE  5 

CREF   OA.OO 


MA^ 
Tat 


SDDMAN 

SDEACB 

SDECPT 

SDREXT 

SEXRQN 

$EXRQP 

tFILHO 

SFHASK 

SHEADR 

SIGFIN 

SLDBAF 

SLDBGT 

SLDBRT 

SLGCON 

SLGFNB 

SLGMON 

SLGSTT 

SLGUIC 

SLLCRS 

SLLCTA 

SHOULS 

SNHCLH 

$NI«1CL2 

SNMCRS 

SNMLST 

$NTLPT 

SOBJHr; 

SPDVID 

SPDVNM 

SPDVTA 

SPRUNM 

SPSIPT 

SRDBAF 

SRDBCT 

SRDBNM 

SRDBSZ 

SROBTH 

SRELOC 

SSDBAF 

$SD3CT 

SSDBNM 

SSLTMA 

SSLTNM 

SSNAPT 

tSRSTD 

SSTPCT 

$TKTC8 

SXAVL 

tXBIAS 

SZTIME 

$ZT1M2 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
00020A 

:  *#***♦ 

:  »*+*** 
*♦*♦*■* 

■  ****** 

;  ****** 

:  ****** 

;  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

-  ****** 

:  ****** 

:  ****** 


*** 


tt-k 


****** 

****** 


GX 

5-111 

GX 

5-91 

GX 

5-112 

GX 

5-92 

GX 

5-93 

GX 

5-94 

GX 

5-113 

GX 

5-95 

GX 

5-96 

GX 

5-97 

GX 

5-1U 

GX 

5-115 

GX 

5-116 

GX 

5-117 

GX 

5-118 

GX 

5-119 

GX 

5-120 

GX 

5-121 

GX 

5-122 

GX 

5-123 

GX 

5-98 

GX 

5-12A 

GX 

5-132 

GX 

5-136 

GX 

5-137 

GX 

5-138 

GX 

5-139 

GX 

5-140 

GX 

5-141 

GX 

5-1A2 

RG 

#5-258 

GX 

5-143 

GX 

5-144 

GX 

5-145 

GX 

5-146 

GX 

5-147 

GX 

5-148 

GX 

5-99 

GX 

5-149 

GX 

5-150 

GX 

5-151 

GX 

5-152 

GX 

5-153 

GX 

5-154 

GX 

5-100 

GX 

5-101 

GX 

5-102 

GX 

5-155 

GX 

5-156 

GX 

5-157 

GX 

5-165 
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MANBOf  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10: 
Table  of  contents 

MACRO  CALLS  AND  LOCAL  DATA 

CONTEXT  AREA  POOL  AND  INITIALIZATION  CODE 

ALLCTX  -  ALLOCATE  A  CONTEXT  AREA 

DEACTX  -  DEALLOCATE  CONTEXT  AREA 

UPDCTX  -  UPDATE  THE  CURRENT  CONTEXT 

RBUFF  -  READ  THE  USER'S  BUFFER  INTO  "BUFFER  ' 

READ  -  READ  A  SPECIFIED  BUFFER  INTO  "BUFFER'' 

RID  -  READ  THE  USER'S  ID  STRING  INTO  "JDBUFF" 

WBUFF  -  WRITE  "BUFFER"  INTO  USER'S  BUFFER 


s- 

i^ 

6- 

^.9 

/- 

1S< 

H- 

,-44 

9- 

r>KA 

10- 

<r'S 

10- 

v^ 

10- 

^■?/ 

11- 

ttb 

MAC 

SYf 

SYf 

AAl 
ALL 
BL) 
BUf 
BUI 
CC! 

cor 

CSf 

CT) 
CT) 

ct; 

CUI 
CUI 
C$1 

C$1 

c$; 

C.I 
C.I 
DDI 
DE, 
FE 
FM, 
G. 
G. 
HE, 
IDI 
IE 
IN 
10 
I. 
I. 
LD 
LS 
MN 
NM 
NM 
NU 
PO 
PO 
RB 
RE 
RE 
RE 
RI 
R$ 
TK 
TS 
T. 
T. 
UP 
WB 
W$ 
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CREF   04.00 


SYMBOL  VALUE 


AALOCB 

ALLCTX 

BLXIO 

BUFFER 

BUFTBL 

CCBRT 

CONTEX 

CSBRT 

CTXHD 

CTXPOO 

CTXSIZ 

CURCTX 

CURIOP 

CSDATA 

CSFLAG 

CtSIZE 

C.BID 

C.BUF2 

DDEACB 

DEACTX 

FE.CEX 

FMASK 

G.TSTN 

G.TSTS 

HEADR 

IDBUFF 

IE. ABO 

INIBUF 

lOFIN 

I.PRM 

I.TCB 

LDBRT 

LSTCTX 

MNSVOL 

NMCLH 

NMCL2 

NUMUSR 

POOLPT 

POOLSZ 

RBUFF 

READ 

RELOC 

REXAST 

RID 

RSOPER 

TKTCB 

TSKLN2 

T.NAM 

T.RCVL 

UPDCTX 

WBUFF 

WSSIZ 


6X 
GX 
GX 


»*«♦♦*  GX 
000000  RG 
******  GX 
******  GX 
000306  R 
******  GX 
******  GX 
******  GX 
******  GX 
000000  R 
******  GX 
******  GX 
******  GX 
****** 
****** 
*****^ 
000003 
000024 
******  GX 
00026A  RG 
»**«**  GX 
**.**«  GX 
000000 
000032 
******  GX 
******  GX 
******  GX 
000040  RG 
******  GX 
000024 
000004 

:   *♦♦♦** 
:  ****** 

■■   000000 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

000434  RG 
000444  RG 

:      ******         GX 
:      ******         GX 

000452  RG 

:  «**♦«*  GX 

:  ******  GX 

r  .***.*  GX 

:  ******  GX 

:  ******  GX 

000346  RG 
000526  RG 

r     »*»»*♦        GX 


GX 
GX 

GX 
GX 
GX 
GX 
GX 


REFERENCES 

7-232 

#7-184 

10-371 

10-355 

6-119 

6-144 

7-226 

6-147 

7-185 

#6-80 

7-227 

♦7-224 

8-274 

9-312 

7-188 

7-193 

6-117 

6-110 

8-279 

#8-263 

6-104 

6-104 

6-127 

6-131 

7-234 

10-360 

6-98 

#6-83 

6-100 

10-354 

6-90 

6-145 

9-308 

#5-56 

6-106 

6-116 

♦7-225 

♦6-126 

♦6-133 

#10-353 

#10-355 

10-362 

6-134 

#10-358 

7-241 

6-85 

♦7-238 

6-no 

6-86 
#9-305 
#11-394 

7-231 


11-404 
11-397 
#6-144 

9-307 


6-126 
9-320 
8-265 

9-317 

♦7-221 

7-195 

6-112 


10-359 
♦6-94 


6-103 


♦8-268 
7-196 
7-193 


11-398 


7-239 
8-275 
6-112 


8-278 


9-318 


6-127 

6-131 

6-132 

♦8-272 

9-310 

9-315 

♦7-223 
7-216 

♦8-271 
7-218 

11-402 


6-142 


7-217 
7-202 


•8-277 


11-403 


•7-218 
♦7-214 


♦7-216 


m 

AE 
AE 
Af 
A[ 
Al 
AI 
Ai 
Al 
Al 
Al 
Al 
Al 
Al 
Al 
Al 
Al 
Al 

a: 
a: 
a: 
A 
A 
A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
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AB.NPV= 

AB.TYP= 

AF.AST= 

AF.ESQ= 

AF.INI= 

AF.LCK= 

AF.MDE= 

AF.NOT= 

.\F.OOB= 

AF.OVR= 

AF.QUE= 

AF.XCC= 

AK.BUF= 

AK.GBI= 

AK.GGF= 

AK.OCB= 

ALCHOP= 

AS.CAA= 

AS.DIS= 

AS.DLT= 

AS.FPA= 

AS.PFA= 

AS.RCA= 

AS.REA= 

AS.RRA= 

At  All 

ASBUF 

AIDES 

A$FLG 

ASLEN 

ASNUM 

ASOPT 

ASPAR 

ASSCO 

AtTYP 

A$SCHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

A.ACC 

A.ACCE 

A. AST 

A. BYT 

A. CALL 

A.CBL 

A. CONN 

A.DEQU 

A.DIS 

A. DISC 

A.DQSR 

A.FLEN 

A.IBUF 

A.ILEN 

A.IMAP 

A.INPU 

A.IOS 

A.KSR5 


000001 

000002 

000010 

000020 

000001 

OOOOAO 

000200 

000002 

OOOOOA 

000002 

000100 

000001 

000200 

000202 

000303 

000201 

»x»»««  GX 

000006 

000002 

000001 

000001 

000004 

000002 

000005 

000003 

000012 

000006 

000022 

000000 

000103 

000010 

000002 

000004 

000020 

000011 

000000 

000000 

000000 

000000 

000014 

000000 

000006 

000004 

000024 

000002 

000012 

000002 

000002 

000014 

177776 

000011 

000014 

000016 

000012 

000006 

000026 

177774 


A.LIN 

A.MAS 

A.NPR 

A.NUM 

A.OUTP 

A.PLEN= 

A.POUE 

A.PRM 

A.PROC 

A.RECE 

A.REL 

A. RES  = 

A.SBUF 

A.SLEN 

A.SMAP 

A.STA 

A.TRAN 

BYETBL 

CM.CDS= 

CM.CEN= 

CM.ELM= 

CM.EXT= 

CM.IND= 

CM.INE= 

CM.LKT= 

CH.MSG= 

CM.RMT= 

CP.DSB= 

CP.EXT= 

CP.LGO= 

CP.MSG= 

CP.NIO= 

CP.NUL= 

CP.PRV= 

CP.RST= 

CP.SGL= 

C$$CKP= 

C$$0RE= 

C$$RSH= 

C.PCPL 

C.PDPL 

C . PNAM 

C.PRMT 

C.PSTS 

C.PTCB 

DECBYE 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

GS.DEL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 


000012 

000004 

000010 

000010 

000010 

000016 

000004 

000012 

000020 

000016 

000000 

000032 

000022 

000024 

000020 

000015 

000022 

OOOOOOR 

000004 

000003 

000005 

000006 

000002 

000001 

000007 

000011 

000010 

000010 

000400 

000004 

000002 

000100 

000001 

000020 

000200 

000040 

000000 

000400 

177564 

000011 

000010 

000002 

000012 

000006 

000000 

000040R 

177514 

000000 

000001 

000000 

000000 

000000 

000001 

000001 

000000 

000000 

000000 


G$$WRD= 
G.CNT 
G.EFLG 
G.GRP 
G.LGTH= 
G.LNK 
G.STAT 
IP.ABO= 
IP.FAK= 
IP.PND= 
!P.UMR= 
I$$RAR= 
I$$RDN= 
LAST 
I.ATTL= 
I.EFN 
I.FCN 
002  I.JOSB 
I.LGTH= 
I.LNK 
I.LN2 
I.PRI 
I.PRH 
I.TCB 
I.UCB 
I.XDBF 
I.XDBL 
I.XIOP 
I.XLEN= 
I.XLNK 
I.XMOD 
I.XPBF 
I.XPBL 
I.XPBV 
I.XRBF 
I.XRBL 
I.XTCB 
I.XTMO 
I.XTT8 
I.XTTL 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LC$EXT 
LC$INT 
LD$LP  = 
LOGOUT 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$nR= 
MAXACC= 
MAXID  = 
MAXPAS= 
MBSDIS 
MBSENA 


000000 

MB$FUL 

000002 

000004 

MBSMIX 

000002 

000006 

MBSONE 

000001 

000002 

MBSRXO 

000001 

000012 

MBSTXO 

000000 

000000 

MBSZER 

000000 

000003 

MC$BAB 

006073 

000040 

MCSBID 

001765 

000020 

MCSBMC 

001767 

000100 

MC$BSC 

001766 

000200 

MC$CAC 

001442 

000000 

MCSCAP 

001440 

000000 

MCSCCL 

001445 

000022 

MCSCDC 

002045 

000044 

MC$CDP 

001441 

000003 

MC$CIF 

001465 

000012 

MC$CLD 

001464 

000014 

MCSCOU 

100000 

000044 

MCSCTL 

001454 

000000 

MCSCTR 

001452 

000006 

MC$CTS 

001453 

000002 

MCSDOV 

002050 

000024 

MC$LBR 

001750 

000004 

MCSLBS 

001751 

000010 

MC$LDI 

001774 

000040 

MC$LDO 

001775 

000044 

MCSLDR 

001762 

000002 

MCSLDS 

001763 

000046 

MCSLLB 

002021 

000000 

MCSLLP 

002115 

000006 

MCSLLR 

002007 

000022 

MC$LOO 

000001 

000026 

HCSLRB 

002020 

000030 

MC$LRP 

002114 

000012 

MCSLRR 

002006 

000016 

MCSLSI 

002032 

000004 

MCSLST 

002033 

000020 

MCSLUP 

006072 

000032 

MC$MAP 

010000 

000036 

MCSMBL 

001764 

177546 

MC$MBX 

004420 

177546 

MCSMBY 

001752 

000000 

MCSMPX 

004406 

000074 

MCSNAP 

001604 

000000 

MCSNBR 

001130 

000001 

MC$NBS 

001131 

000000 

MCSNCR 

001154 

OOOOOORG 

MCSNCS 

001155 

000000 

MCSNML 

001274 

000000 

MCSNMR 

001142 

000001 

MCSNMS 

001143 

000000 

MCSNNO 

001606 

000020 

flCSNNU 

001605 

000020 

MCSNOP 

001607 

000010 

MC$NOR 

000000 

000001 

MCSNPF 

001616 

000000 

MC$NPR 

001630 

MC$NRE 

HCSNRT 

MC$NVR 

HC$P08 

MCSPll 

MC$RFL 

HCSSBU 

MC$SFL 

HC$SYC 

HCISYL 

MCSSYR 

MC$SYS 

MC$SYZ 

MC$TBR 

MCSTBS 

MC$TDR 

MCSTIM 

MCSTYP 

MCSUBU 

MCtUFD 

MC$UHR 

MC$UMS 

MCSVAX 

MC$WID 

MCSWIH 

HCSWIL 

MCtWOS 

MC$W16 

MC$U32 

MCSXBR 

MC$XBS 

MC$XCJ 

MCSXCR 

MCSXCS 

MCSXDR 

MCSXDS 

MCSXFR 

MCSXFS 

MC$XLJ 

MCIXLR 

MCSXMA 

MCSXMC 

MCSXMS 

MC$XNR 

MCSXRC 

MC$XRR 

MC$XRS 

MC$020 

MD$C1 

MDSCNA 

MD$COU 

MDSDA 

MDSDL 

MDSDLV 

MDIDMC 

MD$DMF 

MD$DMP 


001200 
001166 
001642 
000000 
000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
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T3.RST=  OOOAOO 
T3.SLV=  002000 
T3.SWS=  000002 
UA.ACC=  000001 
UA.ALL=  000^00 

ABS.   177776 
000360 
Errors  detected: 


000 
001 
0 


UA.CAL=  000100 
UA.COM=  000200 
UA.ECH=  OOOOOA 
UA.PRO=  000002 
UA.PUT=  OOOOAO 

(RW,1,68L,ABS,0VR) 
(RW,I,LCL,REL,CON) 


UA.SPE=  000020 
UA.TRA=  002000 
UA.TRN=  001000 
UA.TYP=  000010 
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UPDCTX^  ******  GX 
V$$CTR=  001000 
UBUFF  =  **•♦*♦  GX 
X$$DBT=  000000 


$SAVAL=  *♦♦♦♦♦  GX 
$$$   =  000062 
.NAUTO=  ******  GX 
.N37BL=  ******  GX 


»**  Assembler  statistics 


Work   file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  15566  Words   (  61  Pages) 

Size  of  core  pool:  16552  Words   (  63  Pages) 

Operating  system:  RSX-11M/PLUS 


SY:SANFRK!\/2;t?35?°^i]MANFRK/CR/-SP=SY:[1  J]RSXMCM.S|V|L/ML,[130J1O]NETLIB/ML,[130J0]RSXMCM/PA:1,[135,1O]MANFRK 
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368  000624 

012716  000002 

MOV 

#2.(SP) 
30i 

369  000630 

100001 

20$:    BPL 

370  000632 

005016 

CLR 

(SP) 

371  000634 

005216 

30$:    INC 

(SP) 

372  000636 

373 

374 

375 

376  000640 

000424 

BR 

100$ 

;•  OBJECT  INITIALIZE 

012704 

6bCHIN::M0V 

(PC)+,R4 

377  000642 

007 

.BYTE 

ME$0BJ 

378  000643 

223 

.BYTE 

MF$CHA1CM$RSX 

379  000644 

000402 

BR 

OBID 

380  000646 

012704 

0BREIN::MOV 

(PC)+,R4 

381  000650 

007 

.BYTE 

ME SOB J 

382  000651 

224 

.BYTE 

MF$REA1CM$RSX 

383  000652 

ARID: 

384  000652 

012746  000001 

081 D:   MOV 

*1,-(SP) 

385  000656 

105711 

TST8 

(R1) 

386  000660 

001001 

BNE 

40$                 ; 

387  000662 

005216 

INC 

(SP) 

388  000664 

389 

390 

391 

392  000666 

000411 

40$:    BR 

1 00$ 

;  SYSTEM  INITIALIZE 

012704 

SYCHIN::MOV 

{PC)+,R4 

393  000670 

006 

.BYTE 

ME$SYS 

394  000671 

223 

.BYTE 

MF$CHAICM$RSX 

395  000672 

000405 

BR 

SYID 

396  000674 

012704 

SYREIN::MOV 

(PC)+,R4 

397  000676 

006 

.BYTE 

MESSYS 

398  000677 

224 

.BYTE 

MF$RE''!CM$RSX 

399  000700 

000402 

BR 

SYID 

400  000702 

012704 

SYZEIN::MOV 

(PC)+,R4 

401  000704 

006 

.BYTE 

ME$SYS 

402  000705 

225 

.BYTE 

MF$ZERICH$RSX 

403  000706 

404 

405  000710 

005046 

SYID:   CLR 

-(SP) 

150004 

100$:   BISB 

R0,R4 

406  000712 

000304 

SWAB 

R4 

407  000714 

112600 

MOVB 

(SP)t,RO 

408  000716 

CALLR 

INIOJO 

409 

410 
411 
412 

.DSABL 

LSB 

•  OPERATE  ROUTINE  ENTRY  POINTS 

413 

; 

414  000722 

ALCHOP: 

415  000722 

ALREOP: 

416  000722 

ARREOP: 

417  000722 

CICHOP: 

418  000722 

CIREOP: 

419  000722 

CIZEOP: 

420  000722 

LICHOP: 

421  000722 

LIREOP: 

422  000722 

LIZEOP: 

423  000722 

LOCHOP: 

424  000722 

LOREOP: 

IF  ADDRESS,  LENGTH=2  (PLUS  0  BYTE) 
IF  PL  WE  HAVE  BASIC  LENGTH 
ELSE,  IF  MI  -  LENGTH=0  (PLUS  MI  BYTE) 
INCLUDE  FORMAT  BYTE  IN  LENGTH 


ASSUME  SINGLE  BYTE  LENGTH 

KNOWN  OBJECTS  ? 

IF  NE,  YES  -  1  BYTE 

ELSE,  2  BYTES 

...  ON  TO  COMMON  CODE 


ID  LENGTH=0  FOR  SYSTEM 

INCLUDE  OPTION 
GET  FUNCTION  IN  LOW  BYTE 
GET  LENGTH  OF  ID  STRING 
AND  ISSUE  QIO 
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50 
51 
52 
53 
5^ 
55 

56  000000 

57  000000 
58 

59 
60 
61 
62 
63 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 

.MCALL  MANDF$,ANBDF$,SAVMAP,RESMAP,RETC 


000002 


MANDfS 
ANBDFS 

.IF  DF  M$$MGE 
BIAS  =  2 
.IFF 

BIAS  =  0 
.ENDC 


DEFINE  NEIWORK  MANAGEMENT  SYMBOLS 
DEFINE  ALIAS  NAME  BLOCK  OFFSETS 


STORAGE  ON  STACK  FOR  MAPPING  BIAS 
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M' 

n 


5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


.TI'LE 
. IDENT 


MANVCD  -  VOLATILE  MANAGEMENT  ACP  SPECIFIC  CODE 
/V05.00/ 


COPYRIGHT  (C)  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMpMl  W'UCH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

MANVCD  -  CODE  SPECIFIC  TO  THE  VOLATILE  MANAGEMENT  ACP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi.-ro/RSX  \1.0 
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72 
73 
7'^ 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8'. 
85 
86 
87 
88 
89 

90  000000 

91  000000 
92 

93 
94 

95  000000 
96 
97 
98 
99 
100 

101  000010 

102  000020 

103  000030 
104 

105 
106 
107 

108  000040 

109  000050 

110  000060 

111  000070 
112 

113 
114 

115  000100 

116  000110 

117  000120 

118  000130 
119 

120 
121 

122  000140 

123  000150 

124  000160 
125 

126 
127 
128 


.S8TTL  FTA8LF  -  FUNCTION  DISPATCH  TABE 

'••-FTA8LE-FUNCT10N  DISPATCH  TABLE  FOR  VOLATILE  ACP 

THIS  TABLE  DEFINES  ALL  THE  FUNCTIONS  SUPPORTED  BV  THE  VOLATILE  NETWORK 
MANAGE'IFNT  ACP. 

ENTRr  FORMAT  IS: 


Options 

1  Function 

Unused 

1  Flags 

Initial 

ze  routine 

Operate 

routine 

.PSECT  DATA$   D,RW 
FTABLE:: 

AREA  OPERATIONS 

MNFUNS  MF$REA,ME$ARE,ARREIN,ARREOP 

.]F  NDF  S$$8AS 

ALIAS  OPERATIONS 

MNFUNS  MF$CHAICM$fiSX,MO$SETIME$ALI,ALCHIN,ALCHOP,RF 
MNFUNS  MF$CHA.'CMSRSX,MOSCLEIMESALI,ALCH]N,ALCHOP,RF 
MNFUNS  MF$REAICM$RSX,OIMESALI,ALREIN,ALREOP 
.ENDC 

CIRCUIT  OPERATIONS 

MNFUNS  MFSCHA,M0SSET1ME$CIR,CICHIN,CICH0P,RFSPRV 

MNFUNS  MFSCHA,M0$CLE!MESC1R,CICHIN,CICH0P,RFSPRV 

MNFUNS  MFSZER,MOSZER!MESCIR,CIZEIN,CIZEOP,RFSPRV 

MNFUNS  MFSREA,MESCIfi,CIREIN,CIREOP 

LINE  OPERATIONS 

MNFUNS  mfscha,mo$set:meslin,lichin,lichop,rfsprv 

MNFUNS  MFSCHA,MOSCLEIME$LIN,LICHIN,LICHOP,RFSPRV 
MNFUNS  MF$ZER,M0$ZERIMESLIN,LI2EIN,L1ZE0P,RFSPRV 
MNFUNS  MFSREA,MESL]N,LIREiN,LIREOP 

LOGGING  OPERATIONS 

MNFUNS  MFSCHA,M0SSET1ME$L0G,L0CHIN,L0CH0P,RFSPRV 
MNFUNS  MFSCHA,M0$CLEIMESLOG,L0CHIN,L0CHOP,RFSPRV 
MNFUNS  MFSREA,MESLOG,LOREIN,LOREOP 

.IF  NDF  RSSPRO   ;  PRO/DECNET 


;  SHOW  AREA 


SPRV  ;  SET  ALIAS 
SPRV  ;  CLEAR  ALIAS 
;  SHOW  ALIAS 


SET  CIRCUIT 
CLEAR  CIRCUIT 
ZERO  CIRCUIT 
SHOW  CIRCUIT 


SET  LINE 
CLEAR  LINE 
ZERO  LINE 
SHOW  LINE 


SET  LOGGING 
CLEAR  LOGGING 
SHOW  LOGGING 


F  13 


MANVTS  -  VOLATILE  MANAGEMENT  AC  M.'-CRO  V05.03b  Saturday  29-Jun-85  10:32  Page  6-1 
FTABLE  -  FUNCTION  DISPATCH  TABE 


PSIBYE 
OSIBYE 


Perform  logout  cleanup  MACRO  V05.03b  Saturday  29-Jun-85 
LOGOUT  cleanuD  for  PS!  user 


E  14 

10:3 


32  Page  6 


63 

6-; 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76  000000 

n   000000 

78  OOOOOA 

79 

80  000010 

81  OOOOU 

82  000016 

83  000022 
^k  00002A 
85 

86  000030 

87  000032 

88  000034 

89  000036 

90  000046 

91  000054 
92 

93  000056 

94  000060 

95  000062 

96  000072 

97  000076 

98  000102 
99 

100  000104 

101  000110 
102 

103 


.SBTIL  PSJ8YE  -  LOGOUT  cleanup  for  PSI  user 

***   PSIBYE  -  LOGOUT  cleanup  for  PSI  user 

INPUTS 

$PSIPT  -  Address  of  PSI  homeblock 
STKTCB  -  Current  TCB  address 

OUTPUTS 

R3  -  R5  preserved 

Remote  DTE  descriptors  for  this  terminal  are   deallocated. 


PSIBYE; 


017700 
001433 
062700 
010005 
017702 

010003 
011500 
001423 

026265 
001365 

010346 
010046 


012701  000024 
000752 


000001 


OOOOOOG 

000004 

OOOOOOG 


000026  000010 


10$: 


SWSTKS 

100$ 

SAVMAP 

MOV 

aPSIPT,RO 

BEO 

50$ 

ADD 

#H$RDTE,RO 

MOV 

R0,R5 

MOV 

aTKr:B,R2 

MOV 

R0,R3 

MOV 

(R5),fi0 

BEQ 

50$ 

CEACCS 

R0,R5 

CMP 

T.UC8(R2),R$0WN(R5) 

BNE 

10$ 

MOV 

R3,-(SP) 

MOV 

R0,-(SP) 

CALLX 

$XLINK,AUX 

MOV 

*R$LEN,R1 

CALL 

DEACB 

BR 

10$ 

50$: 
100$: 


RE  SNAP 
RETURN 


.END 


Save  current  mapping 

Get  address  of  PSI  home  block;  RJK01 


Branch  if  no  PSI  support 
Point  to  remote  DTE  list 
Fake  a  mapped  address  too 
Get  address  of  current  TCB 


;».-1 


RJK01 
«♦-! 

Make  R3  address  of  'previous'  RDT 

Get  unmapped  address  of  'next'  RDT 

Branch  if  list  exhausted 

Map  to  new  RDT 

Does  this  RDT  belong  to  this  TI:? 

Branch  if  not  owned  here 

Address  of  previous  block 

Address  of  current  block 

Unlink  control  block 

Get  length  of  block  to  deallocate 

Deallocate  the  bLock 

Loop  until  all  blocks  gone 

Restore  mapping 
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25A 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 

278  000470 

279  000470 

280  000472 

281  000474 

282  000476 

283  000500 

284  000502 

285  000504 
286 

287 
288 

289  000506 

290  000510 

291  000512 

292  000514 

293  000516 

294  000520 
295 

296  000522 

297  000524 
298 

299 


.SeTTL  CHKACC  -  CHECK  ACCESS  CONTROL  FIELDS 

»*-CHKACC-CHECK  ACCESS  CONTROL  FIELDS 

THIS  ROUTINE  CHECKS  THE  ACCESS  CONTROL  FIELDS  FOR  A  DESINATION, 
AND  IF  VALID  MOVES  THEM  INTO  THE  SPECIFIED  BUFFER. 

INPUTS: 

RO  =  TARGET  BUFFER  ADDRESS 

R2  =  BYTES  REMAINING  IN  INPUT  BUFFER 

R3  =  INPUT  BUFFER 

R5  =  MAXIMUM  LENGTH  OF  FIELD  BEING  CHECKED 

OUTPUTS: 

IF  C-CLEAR,  SUCCESS 

RO  =  NEXT  BYTE  IN  TARGET  BUFFER 

R2  =  BYTES  REMAINING  IN  INPUT  BUFFER 

R3  =  NEXT  BYTE  IN  INPUT  BUFFER 
IF  C-SET,  ERROR 

REGISTERS: 

R4  IS  PRESERVED 


121305 
003013 
112305 
005302 
002410 
000241 
110520 


005305 
002405 
005302 
002402 
112320 
000772 

000261 


000001 


CHKACC: 


CMPB 

BGT 

MOVB 

DEC 

BLT 

CLC 

MOVB 


(R3),R5 

20$ 

(R3)+,R5 

R2 

20$ 

R5,(R0)t 


HOVE  STRING  INTO  BUFFER 


10$: 


20$: 
30$: 


DEC 

BLT 

DEC 

BLT 

MOVB 

BR 

SEC 
RETURN 

.END 


R5 

30$ 

R2 

20$ 

(R3J+,(R0)< 

10$ 


IS  THE  FIELD  TOO  LONG  ? 

IF  GT,  YES  -  ERROR 

GET  LENGTH  OF  FIELD 

DEC  BUFF  COUNT  FOR  LENGTH  BYTE 

IF  LT,  BUFFER  LENGTH  ERROR 

ASSUME  SUCCESS 

SET  LENGTH  OF  STRING  IN  BUFFER 


DEC  STRING  LENGTH  COUNT 

IF  LT,  FINISHED 

DEC  BUFFER  COUNT 

IF  LT,  BUFFER  LENGTH  ERROR 

MOVE  CHAR  INTO  BUFFER 

AND  LOOP 
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ALCHOP 
SETALI 


ALIAS   CHANGE   PARAMETER  MACRO  V05.05b   Tuesday   10-Sep-85   1 
SET   AN  ALIAS 


V.l^ 


Page  7-2 


235  000:130 
23A  00025A 

235  000240 

236  000246 

237  000252 

238  00025A 

239  000260 

240  000262 

241  000264 

242  000270 

243  000272 
2h4  000276 
245  000300 
246 

247 

248  000300 

249  000304 

250  000314 
251 

252  000316 

253  000324 

254  000326 
255 

256  000330 

257 

258 

259 

260 

261 

2o2 

263 

264 

265  000334 


062701 
010167 
016767 
011167 
0111'.6 

012601 
001406 
005761 
001012 
005764 
001760 


000000 

OOOOOOG 

OOOOOOG  OOOOOOG  60$: 

OOOOOOG 


000010 
000020 


65$: 
70$: 


016746  OOOOOOG 

000405 

026164  000010  000020  30$: 

101745 

000761 

90$: 


100$: 


ADD     *D$ANN,H1 

MOV     R1,$CRUNM 

MOV     $CfiUNM,$PRUNM 

MOV     (R1),$CRUNM 

MOV     (R1),-(SP) 

CALL    aCEACC 

MOV     (SP)t,R1 

BEQ     70$ 

TST     A.UC8(R1) 

BNE     80$ 

TST     A$SC0(R4) 

BEQ     60$ 

LINK  BLOCKS 

(SP)  =  UNMAPPED  ADDRES 
FRUNM  =  UNMAPPED  ADDRE 

MOV     $PRUNM,-(SP) 

CALLX   $XLINK,AUX 

BR     90$ 


CMP     A.UCe(Rl),A$SC0(R4) 
BLOS    60$ 
BR     65$ 


POINT  ro  ALIAS  LISTHEAD 

SET  UP  CURRENT  AND  PREV  UNMAP  PTRS 

GEt  NEW  CURRENT  POINTER 

SET  UP  TO  HAP  TO  ANB 

MAP  TO  ANB 

RECOVER  VIRTUAL  ADDRESS  TO  ANB 

IF  EQ,  AT  END  Of  LIST  -  LINK  HERE 

IS  THIS  BLOCK  GLOBAL  ? 

IF  NO,  CHECK  FOR  ORDER 

ELSE,  IS  NEW  ONE  GLOBAL  ALSO  ? 

IF  EQ,  YES  -  FORCE  TO  END  OF  GLOBALS 


S  OF  NEW  BLOCK  (ALREADY  ON  STACK) 

SS  OF  PREVIOUS  BLOCK 

PREVIOUS  UNMAPPED  ADDRESS 
LINK  NEW  ANB  IN  LIST 
AND  RETURN 


RESMAP 

.]F  DF  R$$PRO 


MOV 
BK 

.ENDC 

RETURN 


aOECPT.Rl 
*DF.AUP,D$STAT(R1) 


DOES  THIS  ANB  BELONG  BEFORE  OUR'S  ? 
IF  LOS,  YES  -  CONTINUE  SCAN 
ELSE  CHECK  FOR  GLOBAL  SCOPE 

RESTORE  MAPPING 

PRO/DECNET 

POINT  TO  DECNET  HOME  BLOCK 
UNLOCK  NT. CFG  PARTITION 


;;  AND  BACK  TO  USER  STATE  AND  RETURN 
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i<iLD     -  Microcode  Loader     MACRO 
PURAST  -  PowerfaU  Recovery  AST 


620 

621 

622 

623 

62A 

625 

626 

627 

628 

629 

630 

631 

632 

633 

63A 

635 

636 

637 

638 

639 

MO 

6A1 

6A2 

643 

6-14 

6A5 

646 

6A7 

648  000754 

6'.9  000754 

650 

651 

652 

653 

654 

655  000754 

656 

657 

658 

659  000760 

660  000764 
000766 


661 

662 

663  000772 

664 

665  000772 

666  000776 
667 

66S  001000 

669  001004 

670  001010 

671  001014 

672  001016 
673 

674  C01020 

675  001024 

676  001026 


016704  000144' 
001402 


016704  000156' 
001010 

017700  000602' 
062700  000012 

103421 
010104 


010403 

062703  000012 
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.SBTTL  PURAST  -  PowerfaU  Recovery  AST 
.S8TTL  ABOAST  -  Abort  Cleanup  AST 

•**  PWRAST/ABOAST  ♦*» 

Function:  To  perform  any  termination  and  cleanup  of  in-progress  or  queued 
load  requests  at  the  time  of  a  system  powerfail  or  a  task  abort 
from  a  privileged  terminal. 

Call  Format:  Not  applicable 

Inputs:      No  explicit  inputs 

Outputs:     Current  load  sequence  ended,  load  request  listhead  in  AUX  is 
emptied  with  a  halt  load"  dispatch  for  each  CCB  dequeued. 

Registers:    RO  through  R5  destroyed 

Notes:       When  RSX  systems  recover  from  powerfail,  any  active  tasks 
with  powerfail  ASTs  are  dispatched  to  before  any  device 
drivers  are  dispatched  to  at  their  powerfail  recovery 
entry  points. 

MLD  stays  in  system  state  until  all  load  requests  have  been 
terminated.  This  is  so  that  AUX  will  not  queue  more  CCBs 
while  MLD  is  trying  to  clean  up  and  exit. 


;;  If  system  is  RSX-11M  ... 

;;  Close  the  microcode  file 

;;  For  any  operating  system  

;;  Switch  to  system  state 

;;  If  system  has  UMRs  . . . 

;;  Get  address  of  CCB/LDB 

;;  Branch  if  none 

;;  Return  the  CCB  and  LDB  to  pool 

;;  End  UMR  conditional 

;;  Get  address  of  current  CCB 

;;  Branch  if  none 

;;  Get  our  TCB  address 

;;  Advance  to  receive  listhead 

;;  Dequeue  a  load  request 

;;  Branch  if  none  left 

;;  Copy  CCB  address 

;;  Get  PDV  index  and  line  table  address 

;;  Copy  CCB  address 

;;  Advance  to  status  field 


PWRASl 
ABOASl 

':  .IFT 

CLOSE$ 

*FD8 

.IFTF 

CALL 

$SWSTK,40$ 

.IF 

DF      N$$UMR 

MOV 
BEO 
CALL 

LD8PTR,R4 
5$ 

aLDSRT 

5$: 

.ENDC 

MOV 
BNE 

CURQST,R4 

10$: 

MOV 

ADD 

CALL 

BCS 

MOV 

aTKTCB,RO 

#T.RCVL,RO 

aORMVF 

30$ 

R1,R4 

20$: 

CALL 

MOV 

ADD 

aSTDDM 

R4,R3 

#C.STS,R5 

MLD     -  Microcode  Loader 
ABOAJT  -  Abort  Cleanup  AST 
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SYMBOL 

VALUE 

REFERENCES 

ABOAST 

000754  R 

9-319 

#12-649 

ACSDNT 

=  000002 

#6-83 

AC$X25 

=  000001 

#6-83 

AESCIR 

=  000003 

#6-83 

AESLIN 

=  000001 

#6-83 

AEIMOD 

=  000004 

#6-83 

BLOCK 

000152  R 

#8-210 

•16-881 

•16-882 

18-954 

18-974 

18-982 

BLXIO 

000572  RG 

#8-230 

10-529 

CCBRT 

000604  RG 

#8-238 

9-355 

12-682 

CF.LB 

=  100000 

18-978 

CLSASZ 

=  010500 

#6-83 

7-143 

CLIDLL 

=  000500 

#6-83 
6-83 

6-83 
6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

CLSlCL 

=  000300 

#6-83 

6-83 

CLSLDN 

=  010400 

#6-83 

6-83 

CLSMAN 

=  000000 

#6-83 

6-83 

6-83 

6-83 

CLSPAZ 

=  034100 

#6-83 

6-85 

6-83 

CLSPLH 

■=  034000 

#6-83 

6-83 

6-83 

6-83 

6-83 

CLSPLL 

=  000600 

#6-83 

CLSPRT 

=  034200 

#6-83 

CLSROU 

=  010000 

#6-83 

6-83 

6-83 

CLSSES 

=  000200 

#6-83 

6-83 

6-83 

CLSSGE 

=  C35000 

#6-83 

6-83 

6-83 

CLSSSE 

=   035100 

#6-83 

6-83 

6-83 

6-83 

6-§l 

CLSTRN 

=  000400 

#6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

6-83 

CL$XL2 

=  013700 

#6-83 

CL$XL3 

=  013600 

#6-83 

6-83 

CL$X2S 

=  013500 

#6-83 

6-83  , 

CS.ERR 

=  100000 

9-464 

10-571 

12-677 

CS.FTL 

=  001000 

9-444 

12-677 

CTLNUM 

000162  R 

#8-213 

•9-405 

11-600 

CURQST 

000156  R 

#8-211 
»12-686 

•9-310 
18-979 

9-353 

•9-356 

♦9-363 

9-388 

9-442 

9-462 

C.BUF1 

000014 

9-333 

9-334 

9-429 

10-518 

10-519 

♦10-532 

♦10-558 

18-955 

C.CNT1 

000020 

10-521 

•10-531 

♦10-559 

C.FNC 

000010 

•9-335 

9-364 

•9-447 

♦9-463 

10-546 

C.LIN 

000006 

9-390 

♦  9-39'^ 

C.MOD 

000011 

10-508 

10-550 

C.STS 

000012 

♦9-465 

10-556 

12-676 

DDMTBL 

000164  R 

#8-214 

•9-404 

10-544 

DEVERR 

000051  R 

#7-148 

10-573 

DLSAST 

=  000002 

#6-83 

DLSHLT 

=  000000 

#6-83 

DLSIST 

=  000001 

#6-83 

DLSMAI 

=  000004 

#6-83 

DLSOFF 

=  000001 

#6-83 

OLSON 

=  000000 

#6-83 

OLSRUN 

=  000003 

#6-83 

DLSSHU 

=  000002 

#6-83 

DLSSYN 

=  000005 

#6-83 

6-83 


6-83 
6-83 


12-665 
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m; 


4A 

AS 

4f> 

A/ 

4K 

A9 

SO 

300000 

SI 

300000 

S2 

300000 

SS 

000000 

S4 

SS 

S(S 

s^- 

S« 

S9 

60 

61 

62 

61 

M 

6S 

66 

6/ 

68 

69 

/() 

n 

7? 

n 

/k 

000000 

IS 

76 

000466 

71 

000454 

/« 

000062 

79 

000020 

HO 

81 

000200 

82 

Hi 

000000 

HA 

000000 

000000 

8S 

000002 

OOOOOOG 

86 

OOOOOA 

OOOOOOG 

87 

000006 

OOOOOOG 

88 

000010 

OOOOOOG 

89 

000012 

OOOOOOG 

90 

oooou 

OOOOOOG 

91 

000016 

OOOOOOG 

92 

000020 

OOOOOOG 

9i 

000022 

OOOOOOG 

9A 

000024 

OOOOOOG 

9S 

000026 

OOOOOOG 

96 

000030 

OOOOOOG 

97 

000032 

OOOOOOG 

98 

000034 

OOOOOOG 

99 

000036 

OOOOOOG 

100 

000040 

OOOOOOG 

.SBTTL  MACRO  CALLS  AND  DATA 
MACRO  CALLS 

.MCALL  IOERR$,CALLR,SAVRG,RESRG,PKTDF$,HANDF$,SAVMAP,RESMAP,MAP,CCBDF$ 

DEFINE  RSX  ERROR  CODES 

DEFINE  I/O  PACKET  OFFSETS 

DEFINE  NETUORK  MANAGEMENT  SYMBOLS 

DEFINE  COMMUNICATIONS  CONTROL  BLOCK  SYMBOLS 


DEFINE  DECNET  HOME  BLOCK  OFFSETS 


lOERRS 

PKTDFS 

<:> 

MANDFS 

CCBDFS 

.IF  DF 

R$$PRO   ;  DECNET/PRO 

.MCALL 

DHBDFS 

OHBDF* 

; 

.ENDC 

;  DF  R$$PRO 

•  LOCAL  MACRO  DEFINITIONS 

.MACRO 

lOFUNS  FUNCTION, ROUTINE 

.WORD 

FUNCTION/256. 

.WORD 

ROUTINE 

.ENDM 

lOFUNS 

;  DEFINITIONS 

MNSVOL 

=0 

CTXSIZ 

==310. 

BUFSIZ 

=300.                ; 

MAX1D= 

50. 

MAXLID 

=  16. 

CMSRSX 

=200 

NMVVEC 

• 

.WORD 

0 

SARS 

:  .WORD 

KISAR5 

SAR6 

:  .WORD 

K1SAR6 

KSAR6 

:  .WORD 

KISAR6 

AALOCE 

::.WORD 

lALOCB 

BLXIO 

:  .WORD 

SBLXIO 

COPT: 

.WORD 

SCOPT 

DDEACF 

l::.WORD 

SDEACB 

DREXT 

:  .WORD 

SDREXT 

EXRON 

:  .WORD 

SEXRQN 

EXRQP 

:  .WORD 

SEXRQP 

FMASK 

:  .WORD 

$f;iask 

HEADR 

:  .WORD 

SHEADR 

lOFIN 

:  .WORD 

SIOFIN 

MOULS 

:  .WORD 

SMOULS 

RELOC 

:  .WORD 

SRELOC 

SRSTD 

:  .WORD 

SSRSTD 

I/O  FUNCTION  DISPATCH  TABLE  ENTRY 


ASSEMBLE  FOR  VOLATILE  ACP 

SIZE  OF  A  CONTEXT  AREA 

SIZE  OF  LOCAL  BUFFER 

MAXIMUM  SIZE  OF  AN  ID 

MAXIMUM  SIZE  OF  A  LINE-ID 

;  FLAG  RSX  SPECIFIC  COMMAND 

TABLE  OF  VECTORS  FOR  NMVACP 


6  3 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
MACRO  CALLS  AND  DATA 


Page  5-1 


F  4 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
MANCLN  -  PROCESS  NM.CLN  REQUESTS 


Page  10 


629 
630 
631 
632 
633 
63A 
635 
636 
637 
638 
639 
6^0 
6A1 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 


.SBTTL  MANCLN  -  PROCESS  NM.CLN  REQUESTS 

**-MANCLN-PROCESS  NM.CLN  REQUESTS 

THIS  ROUTINE  DEALLOCATES  THE  CONTEXT  AREA  (IF  ONE  EXISTS). 

INPUTS: 

R3  =  ADDRESS  OF  I/O  PACKET 

OUTPUTS: 

RO  =  I/O  STATUS  TO  RETURN  (I'.SUC) 
R1  =  0 


002702 

002702  016705  175314 

002706  001407 

002710  016567  000002  175274 

002716 

002/22  005267  175270 

002726  012700  000001 

002732  005001 

002734 


REGISTERS: 

R3  IS 

PRESERVED 

NCLN: 

MOV 

TSKLN2,R5 

BEQ 

10$ 

MOV 

W$Crx(R5),CURCTX 

CALL 

UPDCTX 

INC 

delflg 

$:    MOV 

#is.:uc,RO 

CLR 

R1 

GET  WINDOW  BLOCK  ADDRESS 

IF  EQ,  NO  WINDOW  BLOCK  -  JUST  RETURN 

ELSE,  SET  CURRENT  CONTEXT 

RESTORE  THE  CONTEXT  AREA 

MARK  CONTEXT  FOR  DELETION 

SET  STATUS  =  SUCCESS 


MAI 

MA( 

MAI 

CAl 

CA! 
CCI 
101 
101 
MAI 
MAI 
PK 
RE 
RE 
RE 
SA 
SA 
SW 


RETURN 
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MANACP 

CREATED  BY 

MACRO  ON  29- 

-JUN-85  AT  10 

29    PAGE 

6 

MACRO  CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

6-307 

6-312 

6-399 

6-402 

6-404 

6-412 

6-423 

6-427 

6-432 

6-437 

6-467 

8-568 

8-571 

8-589 

8-591 

9-619 

9-623 

10-650 

CALLR 

#5-48 

6-365 

6-366 

8-557 

CCBDFS 

#5-48 

5-53 

lOERRt 

#5-48 

5-50 

lOfUNS 

#5-66 

6-472 

6-473 

6-474 

6-475 

MANDFS 

#5-48 

5-52 

MAP 

#5-48 

PKTDFS 

#5-48 

5-51 

RESMAP 

#5-48 

RESRG 

#5-48 

RETURN 

6-405 

7-513 

10-654 

11-694 

SAVMAP 

#5-48 

SAVRG 

#5-48 

SWSTKS 

6-312 

6-427 

MAI 


6-434 


♦'FILE»MD«*MANAST 
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2 
5 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
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23 
24 
25 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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39 
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41 
42 


.TITLE  MAN8UF  -  NETWORK  MANAGEMENT  ACP  BUFFER  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1981,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  ACP  BUFFER  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00 


MAI 
SYI 
SYI 

ts, 


07-NOV-83 
DECNEf-IIM  V4.0 
DECNET-11M-PLUS   V2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


L 
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SYMBOL      VALUE  REFERENCES 
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MANBYE 
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03b  Wednesday 
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Symbol 

table 

MD$DMR 

000050 

MESLIN 

000001 

MFJDST= 

000001 

MM$OVR= 

000020 

MPSBLO 

00U52 

MDSDMV 

000042 

MESLOG 

000002 

MFSDUM 

000020 

M''$PER= 

000002 

MPSBMX 

002176 

IDSDN 

000016 

MESMOD 

000004 

MFSEVT 

000001 

MM$ZRO= 

000040 

HPSBNP 

006330 

•IDSDP 

000000 

MFSNOD 

000000 

MFSFUP 

000264 

MNSUNL 

^Mll 

MP$BRT 

001620 

IDSDPV 

W  V  V  \i/  V  ^^ 

000044 

HEJNON 

177777 

MF$GDT= 

000100 

HOSACC 

000200 

MPSBSA 

002176 

f1D$DQ 

000006 

MESOBJ 

000007 

MF$GNM= 

000020 

MOSADD 

000002 

HPSBSD 

002203 

MDSDTE 

W  V  U  V  \J 

000024 

ME$0B2 

000004 

MF$GR0= 

000010 

MOSALA 

000004 

MPSBSI 

002200 

HD$DU 

V  W  V  Vi/  w  ■ 

000002 

MEtPRO 

000005 

MF$GTY= 

000040 

MOSALI 

000000 

MPSBSP 

006331 

MDSDUP 

000012 

MEtSYS 

000006 

MFSKNO 

^77777 

MOSCHA 

000040 

MPSBUF 

000170 

MDSDV 

000026 

ME$XAC= 

000001 

MF$LMX= 

004000 

MOSCIR 

000003 

HPSBUP 

99$l?4 

MDSDZ 

000030 

ME$XPR= 

000002 

HFSLOA 

000017 

MOSCLE 

000100 

HPSBUS 

001643 

MDSfUL 

V  V  \i'  V  — '  N/ 

000000 

ME$X5S= 

000003 

MFSLOO 

U7775 

MOSCOU 

000060 

HPSCAC 

001750 

MDSHAL 

000001 

ME$X9S= 

000004 

MF$NET= 

000002 

HOSDAC 

000000 

MPSCAS 

001762 

MDSHEL 

000002 

ME.BLO 

177744 

MF$PCH= 

002000 

MOSDEF 

000000 

MPSCAT 

002210 

MDSKCP 

000015 

ME. CON 

177753 

HF$PCT= 

000002 

MOSDPR 

000000 

MPSCCS 

004406 

M1)$KDP 

000034 

ME.CST 

177765 

MF$PDT= 

001000 

MOSENT 

000017 

MPSCHN 

002141 

MDSKDZ 

000036 

ME.DIS 

177755 

MF$PLN= 

004000 

MOSEVE 

000100 

MPSCIR 

000144 

MD$KL 

000040 

ME. DON 

177600 

MF$PMC= 

010000 

MOSINF 

000160 

MPSCLK 

002131 

MDSKMX 

V  W  V  V  ^  \J 

000054 

ME.FCO 

177762 

MFSREA 

000024 

MOtlNS 

02229? 

MPSCLN 

002126 

MDSKMY 

000052 

ME.FIO 

177756 

MF$RMX= 

010000 

MOSLJN 

000001 

HPSCLT 

002211 

MDSLEN 

000050 

ME. FOP 

177763 

MF$RRT= 

002000 

MOSLOG 

000001 

MPSCHB 

002142 

MDSPCL 

000011 

ME. FOR 

177776 

MF$RST= 

001000 

MOSMIR 

000031 

MPICMK 

000537 

HDSQNA 

000005 

ME. FUN 

^77777 

MF$SAC= 

001000 

MOINAM 

000001 

HP$CMX 

002153 

MDSUNA 

000001 

ME.GRO 

■\777>,5 

MF$SAD= 

000400 

MCSNIC 

000023 

MPSCND 

000310 

MDSUIT 

000002 

ME.HAR 

■[77750 

l«!F$SGR= 

020000 

MOSNOD 

000000 

MPSCNU 

001753 

MD . ABO 

000017 

ME.  I  ID 

}777(,7 

MFSSIG 

177773 

MOtOFF 

000001 

MPS COB 

000311 

MD.ACC 

000010 

ME.LCO 

^7776b 

MF$SMX= 

020000 

MO$ON 

000000 

MPSCON 

002126 

MO . AOB 

000016 

ME.LPR 

\77757 

MF$SND= 

002000 

MOSOPT 

000001 

MPSCOS 

001604 

ID. BOB 

G10011 

ME.MPR 

"^77771 

MF$SNU= 

000200 

MOSPER 

000200 

MPSCPF 

992?I9 

MD.DIA 

107 

ME.MVE 

^7777} 

MF$SOB= 

000010 

MOSPRO 

"2222? 

MPSCPL 

000232 

MD  DOB 

t  j15 

ME. OPE 

177747 

MFSSPF 

000302 

MO$PRS 

000001 

HPSCPT 

000226 

MD.DUM 

00U002 

ME.PLO 

177751 

MF$SPR= 

000020 

MOSREA 

000200 

MPSCPU 

000161 

MD.FAI 

000014 

ME.PMI 

177743 

MF$SPS= 

004000 

MOSSET 

000000 

MPICSZ 

001755 

MD.FNA 

000001 

ME.PNA 

177752 

MF$STA= 

000001 

MOSSTA 

000020 

MPSCUS 

002127 

MD.FOB 

000006 

ME.PRI 

y7777'i 

MF$SUS= 

010000 

MOSSUM 

000000 

MPSCVA 

000540 

MD.LOA 

000001 

ME.PTY 

y77772 

MFSSYS 

000026 

HOSTSK 

292222 

MPSDAL 

002570 

MD.LSH 

000020 

ME.PVA 

\777b'i 

MFSTES 

000022 

MOSVOL 

000000 

MP$DCO= 

001464 

MD.NCB 

000012 

ME. RES 

177761 

MFSTRA 

000301 

MOSZER 

000000 

MPSDDT 

002177 

MD.NON 

U7777 

ME.ROO 

177754 

MFSTRI 

000021 

HPVSTA= 

005214 

HPSDEL 

001131 

MD.PER 

000000 

ME.SIZ 

177774 

MF$WDF= 

000040 

MPSACB 

000012 

MPSDES 

000156 

MD.RE5 

000004 

ME. SYS 

177746 

MF$UMX= 

000100 

MPSACC 

000514 

MPSDEV 

002114 

MD.ROB 

000005 

ME.UCO 

177770 

MFSZER 

000025 

MPSACT 

004526 

MPSDFA 

001320 

MD.RSH 

000013 

KFSACT 

177776 

MLSALL 

100000 

MPSADD 

000766 

MP$DHO= 

001465 

MD.SDU 

000005 

MFSADD 

000000 

MLSCLS 

000000 

MPSADJ 

001440 

MPSDIA 

000173 

MD.SLC 

000003 

MFSADJ 

177774 

MLSCON 

000001 

HPSADP 

006525 

MPSDLB 

002571 

MD . SNA 

000000 

MFSALL 

177775 

HLSEXT 

000001 

MPSADS 

004406 

MPSDLG 

004521 

MO.TLO 

000004 

MF$ANB= 

000010 

HL$F!L 

000002 

MPSALB 

000036 

MP$DLI= 

001466 

MD.UNA 

000002 

MF$ASC= 

000020 

MLSFIR 

000000 

MPSAMC 

001640 

MPSDLT 

002200 

MD  UNR 

000003 

MF$BDF= 

000010 

MLSINT 

000000 

MPSAMH 

001641 

MPSDRO 

001441 

MD.UOB 

000007 

MF$BMX= 

000020 

MLSKNO 

140000 

MPSANB 

004420 

MPSDST 

000454 

MD.VOL 

000006 

MFSBYE 

000300 

MLSMON 

000005 

MPSASB 

000024 

MPSDTE 

002140 

MESALl 

000010 

HF$CAT= 

000200 

MLSSYS 

000002 

MPSASC 

004432 

MP$DTY= 

001452 

ME$AL2 

000003 

MFSCHA 

000023 

MLSTOP 

000001 

MPSAUS 

000512 

MPSDUA 

000207 

MESARE 

000005 

MF$CLT= 

000400 

MM$ALL= 

000010 

MPSBBT 

002165 

MPSDUC 

000210 

MESCIR 

000003 

MF$CMK= 

000040 

MM$DON= 

000001 

MPSBDF 

002164 

HPSDUM 

000202 

MESEXA 

COOOOO 

MF$CVA= 

000100 

MM$KNO= 

000004 

MPSBFQ 

002121 

MPSOUP 

002127 

M£$£XE 

000200 

MF$DNT= 

020000 

MM$MUX= 

000100 

MPSBLK 

001616 

MPSDVC 

002114 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


BUFFER 
CFSFDN 
CONTEX 
CTXHD 
CTXSIZ 
CURCTX 
CURIOP 
CSFLAG 
C$SP 
CSSTAT 
FDNCNT 
FORK 
FRKDDN 
GETP<T 
ISTACK 
l.PRM 
LSTCTX 
READ 
SSSLOA 
SSSNDA 
SSSOUT 
STATUS 
SSDISK 
SSOOWN 
SSLOAD 
SSNAME 
SSNEXT 
SSSIZE 
SSSTAT 
S$UP 
SSWIND 
TKTCB 
TSKLN2 
T.UCB 
UPDCTX 
WBUFF 
SSAVAL 
NAUTO 
NSTBL 


-  *♦*«*♦ 
=  **♦♦ t * 

-  t ***** 

r  ****** 

=  ****** 

-  ****** 

-  ****** 
=;  ****** 
=  ****** 
=  ****** 
=  ****** 

000000  RG 

000202  RG 

=  ******  GX 

=  ******  GX 

000024 

-  ****** 

-  ****** 

=  020000 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 


OAOOOO 
010000 

****** 

000000 
000010 
000002 
OODOU 
000012 
OOOOOA 
000000 
000006 
000020 

****** 
****** 

000026 
****** 


GX 


GX 
GX 

GX 
GX 
GX 
GX 
GX 


REFERENCES 

6-UA 

7-181 

6-131 

7-176 

6-131 

6-135 

6-127 

7-181 
*6-136 

7-199 
•7-187 
#6-100 
#7-172 

6-K9 

6-153 

6-H3 
*6-137 

7-216 
#5-66 
#5-65 
#5-67 
*7-199 
#5-63 
#5-71 
#5-68 
#5-73 
#5-72 
#5-69 
#5-64 
#5-70 
#5-74 

6-129 

6-128 

6-130 

7-189 

6-K8 

6-101 
7-207 

6-106 


6-K6 
7-186 
7-193 

7-193 
*7-188 

6-K2 
.7-186 

7-191 


7-190 
♦  6-U7 


6-111 


6-113 


6-109 

7-195 
*7-197 
.7-196 


6-121 
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♦7-198 


7-214 


7-215 


6-120 
6-114 
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A25  000722 

426  000722 

427  000722 

428  000722 
A29  000722 

430  000722 

431  000722 

432  000722 

433  000722 

434  000722 

435  000722 

436  000722 

437  000722 

438  000722 
439 

440 


MOCHOP 
MOREOP 
HOZEOP 
NOCHOP 
NOREOP 
NOZEOP 
OBCHOP 
OBREOP 
PRCHOP 
PRREOP 
SVrHOP 
SYREDP 
SYZEOP 


000001 


CALLR   OPRQIO 
.END 


ISSUE  OPERATE  QIO 
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65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
7o 
77 
78 
79 
80 

81  000000 

82  000000 

83  000002 

84  000006 

85  OOOOU 

86  000016 

87  000022 

88  000024 

89  000026 

90  000030 

91  000034 

92  000036 

93  000042 

94  000044 

95  000050 

96  000054 


.SBTTL  TRAADD  -  TRANSLATE  AN  ADDRESS  TO  A  NAME 

»*-TRAADD-TRANSLATE  AN  ADDRESS  TO  A  NAME 

THIS  ROUTINE  TRANSLATES  AN  ADDRESS  TO  A  NAME 

INPUTS: 

R1  =  POINTER  TO  ADDRESS 

R3  =  ADDRESS  OF   ElUFFER 

CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 

OUTPUTS: 

RO  =  RETURN  STATUS 

R2  =  LENGTH  OF  DATA  TO  RETURN  (0  OR  6) 


005002 
016705 
026527 
001403 
012700 
000414 
011101 
010300 


103003 

012700  177770 

000404 

012700  000001 

012702  000006 


OOOOOOG 
000006G  000002 

177776 


TRAADD ; 


10$: 


20$: 
30$: 


CLR 

MOV 

CMP 

BEQ 

MOV 

BR 

MOV 

MOV 

CALL 

BCC 

MOV 

BR 

MOV 

MOV 

RETURN 


R2 

CURIOP, R5 

I.PRM+6(R5),*2 

10$ 

#ME.FOR,R0 

30$ 

(RD.RI 

R3,R0 

MAPADD 

20$ 

#ME.UCO,R0 

30$ 

*MS.SUC, 

*6,R2 


,R0 


ASSUME  NO  NAME  TO  RETURN 

GET  ADDRESS  OF  I/O  PACKET 

WAS  A  TWO  BYTE  ADDRESS  SUPPLIED 

IF  EQ,  YES  -  TRY  TO  MAP  IT 

ELSE,  MESSAGE  FORMAT  ERROR 

AND  RETURN 

GET  THE  ADDRESS 

POINT  TO  NAME  BUFFER 

MAP  THE  ADDRESS  TO  A  NAME 

IF  CC  SUCCESS 

ELSE  ''UNKNOWN  COMPONENT" 

SUCCESS  I 

SIX  BYTES  TO  RETURN 
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MANVCD  -  VOLAIl 
MACRO  CALLS  AND 

A9 
50 
51 
52 
53 
5^!. 

55  000000 

56  000000 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 

vo 

71  000000 


LE  MANAGEMEN 
MPURE  DATA 
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.SBTTL  MACRO  CALLS  AND  IMPURE  DATA 
MACRO  LIBRARY  CALLS 

.MCALL  MANDF$,ALUN$S, RE rC,PDVDf$, GINS, DIRS 


Mf 


000200 
02OC0O 


GETVEC 


MANDFS 
PDVDFS 

CM$RSX=200 
FE.CEX=20000 


.IF 
.IF 

.GLOBL 

GINS 

.ENDC 
.ENDC 

.PSECT 


DF 
NDF 


R$$MPL 
RSSPRO 


GI.VEC 
GI.VECNHVVECNMVVCL 


DEFINE  NETWORK  MANAGEMENT  SYMBOLS 
DEFINE  PDV  SYMBOLS 

RSX  SPECIFIC  MANAGEMENT  FLAG 
COMM  EXEC  LOADED  FLAG  IN  SFMASK 


DIRECTIVE  FORM  FOR  VECTOR  TRANSLATION 
TABLE  IS  IN  THE  MANACP  MODULE 
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129 
150 

131  000170 

132  000200 

133  000210 

134  000220 
135 

136 

137 

138 

139 

KG 

K1  000250 

V,2  0OO2A0 

U3  000250 

U4  000260 

K5 

H6 

K7 

U8 

149  000270 

150  000300 

151  000310 
152 

153 
154 
155 

156  000320 

157  000330 
158 

159  000340 

160 

161 

162 

163 

164  000350 

165  000360 
166 

167 
168 
169 

170  000370 

171  000400 
172 

173 
174 
175 
176 
177 
178 

179  000410 

180  000420 

181  000430 

182  000440 
183 

184 

185  000450 


MODULE  OPERATIONS 


ftNFUNS 
MNFUN$ 
MNFUNS 
MNFUNS 


MF$CHA,M0$SET:MEtMOD,M0CHIN,M0CH0P,RF$PRV 
Mf$CHA,MOICLE!ME$MOD,M0CHIN,HOCH0P,RF$PRV 
MFtZER,MO$ZERIME$MOD,MOZEIN,MOREOP,RF$PRV 
MF$REA,ME$M0D,H0RE1N,M0RE0P 


.ENDC 


NDF  R$$PR0 


NODE  OPERATIONS 

MNFUNS  MF$CHA,M0$SET1ME$N0D,N0CHIN,N0CH0P,RF$PRV 
MNFUNS  MF$CHA,MOJCLEIME$NOD,NOCHIN,N0CHOP,RF$PRV 
MNFUNS  MF$ZER,MO$ZER!MEtNOD,N0ZEIN,N0ZE0P,RF$PRV 
MNFUNS  MF$REA,ME$NOD,NOREIN,NORE0P 
.JF  NDF  S$$8AS 

OBJECT  OPERATIONS 

MNFUNS  MF$CHA!CM$RSX,MO$SETIME$OBJ,OBCHIN,OBCHOP,RF$PRV 
MNFUNS  MFSCHAICM$RSX,MOSCLEIME$OBJ,08CHIN,OBCHOP,RF$PRV 
MNFUNS  MFSREAICM$RSX,ME$0BJ,0BRfIN,08RE0P 

PROCESS  OPERATIONS 

.IF  NDF  RSSRTR 

MNFUNS  MFSCHAICM$RSX,NO$SETIME$PRO,PRCHIN,PRCHOP,RF$PRV 
MNFUNS  MFSCHAICMSRSX,MOSCLEIMESPRO,PRCHIN,PRCHOP,RFSPRV 

.ENDC   ;  NDF  RSSRTR 
MNFUNS  MFSREA.'CM$RSX,MESPRO,PRREIN,PRREOP 

SYSTEM  OPERATIONS 

.IF  NDF  RSSRTR 

MNFUNS  mfscha;cmsrsx,mosset!messys,sychin,sychop,rfsprv 

MNFUNS  MFSCHAICMSRSX,MOSCLEIMESSYS,SYCHIN,SYCHOP,RFSPRV 
.ENDC   ;  NDF  RSSRTR 


.IF  NDF  RSSPRO 


PRO/DECNET 


MNFUNS 
MNFUNS 


.ENDC 


NDF  RSSPRO 


.ENDC   ;  NDF  SSSBAS 

SPECIAL  FUNCTIONS 

MNFUNS  MF$TRA,MOSALI,TRAALI,0,RFSNCX 

MNFUNS  MFSTRA,MOSNAM,TRANAM,0,RFSNCX 

MNFUNS  MFSTRA,MOSADD,TRAADD,0,RF$NCX 

MNFUNS  MFSTRA,MO$ALA,TRAACC,0,RFSNCXIRf$PRV 

.IF  NDF  SSSBAS  8  RSSRTR 
MNFUNS  MFSBYE.O, LOGOUT, RFSNCX 


MFSZERICMSRSX,MOSZER!MESSYS,SYZEIN,SYZEOP,RFSPRV 
MFSREA!CM$RSX,MESSYS,SYREIN,SYREOP 


SET  MODULE 
CLEAR  MODULE 
ZERO  MODULE 
SHOW  MODULE 


SET  NODE 
CLEAR  NODE 
ZERO  NODE 
SHOW  NODE 


SET  OBJECT 
CLEAR  OBJECT 
SHOW  OBJECT 


SET  PROCESS 
CLEAR  PROCESS 

SHOW  PROCESS 


SET  SYSTEM 
CLEAR  SYSTEM 


ZERO  SYSTEM 
SHOW  SYSTEM 


TRANSLATE  ALIAS 
TRANSLATE  NAME 
TRANSLATE  ADDRESS 
TRANSLATE  ALIAS  W/ 
ACCESS  CONTROL 

LOGOUT  FOR  USER 


MANVTB 
FTABLE 
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AtICHK= 

A$$CPS= 

A$$PRI= 

A$tTRP= 

Ct$CKP= 

ClSORE= 

C$$RSH= 

OEACB  = 

D$$BUG= 

D$SISK= 

D$$L11= 

DtIYNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

Gt$WRD= 

HF$DLM= 

HF$GWY= 

HF$HOS= 

HF$XDF= 

H$CUG 

HSDST 

H$D29 

HSFLG 

HSGLEN 

HSGLT 

H$GNAM 

H$GNML= 

HSGPT 

HSHITS 

H$HLEN 


000000 

000000 

000000 

000000 

000000 

000400 

177564 

••»«♦«  GX 

1775K 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000002 

000010 

OOOOOA 

000020 

000010 

000012 

OOOOH 

000000 

000104 

000044 

000050 

000020 

000046 

000034 

000044 


H$LBDA 

H$LBON 

HSLDTE 

HtLEN 

HtLOTS 

HSNETW 

H$NML  = 

H$NPT 

H$PTB 

H$PVC 

HSRDTE 

HSRNU 

HSSVC 

H$TRB 

HSXAVL 

HSXBIA 

H$X29C 

I$$RAR= 

I$$RDN= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LDSLP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

M$$CRB= 

M$$CRX= 

M$$FC5= 

H$$MGE= 

M$$NET= 


000070 
000072 
000002 
000042 
000032 
000024 
000006 
000022 
000020 
000006 
000004 
000042 
000036 
000016 
000100 
000074 
000040 
000000 
000000 
******  Gx 

177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 


M$$OVR= 

000000 

TS.OUT= 

000400 

N$$ACC= 

QOOOOl 
000001 

rs.RDN= 

040000 

N$$BUF= 

TS.RUN= 

004000 

N$$LDV= 

000001 

TS.STP= 

001000 

N$$MCP= 

000001 

T$$KMG= 

000000 

N$$MLL= 

000001 

T$$MIN= 

000000 

N$$MOV= 

000010 

T.AC7L 

S9595? 

N$$NCT= 

000001 

T.ASTL 

000016 

N$SPEM= 

000001 

T.ATT 

000062 

PSIBYE 

OOOOOORG 

T.CPC6 

000004 

PSIPT  = 

**»*♦»  GX 

T.DPRI 

000040 

P$$P45= 

000000 

T.EFLG 

000022 

P$$WRD= 

000000 

T.IOC 

000003 

Q$$OPT= 

000010 

T.LBN 

000041 

R$DAL 

000013 

T.LDV 

000044 

R$DTE 

000014 

T.LNK 

000000 

R$LEN 

000024 

T.MXS2 

000050 

R$LNK 

000000 

T.NAM 

000006 

RSNAH 

000002 

T.OFF 

000066 

R$OWN 

000010 

T.PCB 

000046 

R$$DER= 

000000 

T.PRI 

000002 

R$$K11= 

000001 

T.RCVL 

000012 

R$$SND= 

000000 

T.RRFL 

000072 

R$$11M= 

000000 

T.SAST 

000054 

S$$WRG= 

000000 

T.SRCT 

000071 

S$$YSZ= 

007600 

T.STAT 

000032 

rKTCB  = 

**•«**  GX 

T.ST2 

000034 

TS.SLK= 

171700 

T.ST3 

000036 

TS.CKP= 

000200 

T.TCBL 

000030 

TS.CKR= 

000100 

T.TIO 

000057 

TS.EXE= 

100000 

T.TKSZ 

000060 

TS.HLD= 

002000 

T.UCB 

000026 

TS.MSG= 

020000 

T2.ABD= 

000100 

TS.NRP= 

010000 

.  AB5.  000104 
000112 
$$$BYE  000002 
Errors  detected: 


000 
001 
002 
0 


(RW,I,G8L,ABS,0VR) 
(RW,1,LCL,REL,C0N) 
{RW,I,LCL,REL,C0N) 


r2.AST= 

T2. CAF= 
T2.CHK= 
T2.CKD= 
T2.DST= 
T2.FX[)= 
T2.HLT= 
T2.REX= 
T2.SEF= 
T2.SPN= 
T2.STP= 
T2.WFR= 
T3.ACP= 
T3.CAL= 
T3.CLI= 
T3.6FL= 
T3.MCR= 
T3.NET= 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM= 
T3.R0V= 
T3.RST= 
T3.SLV= 
T3.SWS= 
V$$CTR= 
X$$DBT= 
$CALLX= 
$CEACC= 
$XLINK= 
$$$  = 
$$$R  = 


100000 

000400 

020000 

010000 

040000 

002000 

000200 

001000 

004000 

000004 

000020 

000001 

100000 

000100 

001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 

000400 

002000 

000002 

001000 

000000 

*t****  GX 

******  GX 

******  GX 

000062 

000010 


««♦  Assembler  statistics 

Work   file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  11881  Words   (  47  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-IIM/PLUS 

SYf^s!BYE!v2![?35??^4]PSIBYE/CR/-SP=SY:Cl,nRSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,C135,10]PSIBYE 


PSIBYE     CREATED  BY  MACRO  ON  29-JUN-85  AT  10:52     PAGE 
<;vMRni  CROSS  rfffrfncf    CREF 
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000000 

000002 

000002 

000001 

000001 

000000 

000000 

006073 

001765 

001767 

001766 

00U42 

OOU40 

00U45 

0020A5 

00KA1 

00U65 

00U64 

100000 

00K5A 

OOU52 

OOU53 

002050 

001750 

001751 

001774 

001775 

001762 

001763 

002021 

002115 

002007 

000001 

002020 

0021K 

002006 

002032 

002033 

006072 

010000 

001764 

004420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 
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AF.IN1= 

000001 

MBSENA 

AF.OVR= 

000002 

MBSFUL 

ALCH  N 

OOOOOORG 

HBSMIX 

A$AL 

000012 

MBSONE 

ASBUF 

000006 

MBSRXO 

AtDES 

000022 

MBSTXO 

ASFLG 

000000 

MBSZER 

ASLEN 

000103 

MCSBAB 

A$NUM 

000010 

MCtBIO 

ASOPT 

000002 

MCtBMC 

A$PAR 

000004 

MC$BSC 

A$SCO 

000020 

MCSCAC 

ASTYP 

00001 1 

MCSCAP 

A$$CHK= 

000000 

MCSCCL 

A$$CPS= 

000000 

MCSCDC 

A$$PR1= 

000000 

MCSCDP 

A$$TRP= 

000000 

MCSCIF 

CF$VR2= 

******   GX 

MCSCLD 

CHKACC 

000470R 

MCSCOU 

CHICALI  = 

»«••♦♦  GX 

MCSCTL 

CHKDES 

000272R 

MC$CTR 

CHKPAR= 

******   GX 

MCSCTS 

CH<5C0= 

«*»»♦♦  5x 

MCSDOV 

CURCTX= 

******   GX 

MCSLBR 

C$FLAG= 

******   GX 

MCtLBS 

C$$CKP= 

000000 

MCSLDI 

C$$ORE= 

000400 

MCSLDO 

C$$RSH= 

177564 

MCSLDR 

D$$BUG= 

177514 

MCSLDS 

D$$ISK= 

000000 

MCSLLB 

D$$L11= 

000001 

MCSLLP 

D$$YNC= 

000000 

MCSLLR 

D$$YNM= 

000000 

MCSLGO 

E$$XPR= 

000000 

MCSLRB 

F$$LVL= 

000001 

MCSLRP 

GS$TPP= 

000000 

MCSLRR 

G$$TSS= 

000000 

MCSLSI 

G$$TTI<;=: 

000000 

MCtLST 

G$$WRD= 

000000 

MLJlUP 

I$$RAR= 

000000 

MCSMAP 

I$$RDN= 

000000 

m:$mbl 

K$$CNT= 

177546 

MCSMBX 

K$$CSR= 

177546 

MCSMBY 

K$$LDC= 

000000 

MC$MPX 

K$$TPS= 

000074 

MCSNAP 

LCSEXT 

000000 

MCSNBR 

LCSINT 

000001 

MCSNBS 

LD$LP  = 

000000 

MCSNCR 

L$$ASG= 

000000 

MC$NCS 

L$$DRV= 

000000 

MCSNML 

L$$P11= 

000001 

MCSNMR 

L$$11R= 

000000 

MCSNMS 

MAPADD= 

»♦♦»«*  GX 

MCSNNO 

MAXACC= 

000020 

MCSNNU 

MAXID  = 

000020 

MCSNOP 

MAXPAS= 

000010 

MCSNOR 

MBSDIS 

000001 

MCSNPF 

MCSNPR 

001630 

MDSDMF 

000022 

MCSNRE 

001200 

HDSDMR 

00004^ 

MCSNRT 

001166 

MDSDMV 

MCSNVR 

001642 
000000 

MD$DN 

000016 
000000 

MC$P08 

MD$DP 

MC$P11 

000001 

MDSDPV 

000044 

MCSRFL 

002046 

MD$DQ 

000006 

MCSSBU 

002051 

MDSDTE 

000024 

MCSSFL 

002044 

MD$DU 

000002 

MC$SYC 

000012 

MDSDUP 

000012 

MCSSYL 

000036 

MDSDV 

000026 

MCSSYR 

000050 

MD$DZ 

000030 

MCSSYS 

000024 

MDSFUL 

000000 

MCSSYZ 

000000 

MDSHAL 

000001 

MCSTBR 

001140 

MDSHEL 

000002 

MCSTBS 

001141 

MD$KCP 

000013 

MCSTDR 

002053 

MDSKDP 

000034 

MCSTIM 

000000 

miKOl 

000036 

MCSTYP 

007777 

MD$KL 

000040 

MCSUBU 

002052 

MDSKMX 

000054 

MCSUFD 

002047 

MD$KMY 

000052 

MCSUMR 

001132 

MDSLEN 

000050 

MCSUMS 

001133 

MDSPCL 

000011 

MCSVAX 

000003 

MD$QNA 

000005 

MCSUID 

060000 

MDSUNA 

000001 

HCSWIH 

040000 

MDSUIT 

000002 

MCSWIL 

020000 

MD.ABO 

000017 

MC$W08 

020000 

MD.ACC 

000010 

MC$W16 

040000 

MD.AOB 

000016 

MC$W32 

060000 

MD.BOB 

000011 

HCSXBR 

001750 

MD.DIA 

000007 

MCSXBS 

001751 

MD.DOB 

000015 

MCSXCJ 

000322 

MD.DUM 

000002 

MCSXCR 

002260 

MD.FAI 

000014 

MCSXCS 

002261 

MD.FNA 

000001 

HCSXDR 

001762 

HD.FOB 

000006 

MCSXDS 

001763 

HD.LOA 

000001 

MCSXFR 

002272 

MD.LSH 

000020 

MCSXFS 

002273 

MD.NOB 

000012 

MCSXLJ 

000323 

MD.NON 

ynm 

MCSXLR 

002330 

MD.PER 

000000 

NCSXMA 

000310 

MD.RES 

000004 

MCSXHC 

002305 

MD.ROB 

000005 

MCSXMS 

002304 

MD.RSH 

000013 

MC$XNR 

002332 

MD.SDU 

000005 

MCSXRC 

002316 

MD.SLO 

000003 

HC$XRR 

002331 

MD.SNA 

000000 

MCSXRS 

002342 

MD.TLO 

000004 

MC$020 

000002 

MD.UNA 

000002 

MDSCJ 

000007 

MO.UNR 

000003 

MDSCNA 

000003 

MD . UOB 

000007 

MDSCOU 

000001 

MD.VOL 

000006 

MDSDA 

000010 

HESALl 

000010 

MDSDL 

000004 

HE$AL2 

000003 

MD$DLV 

000020 

MESARE 

000005 

MDSDMC 

000014 

MEICIR 

000003 

MDSDMF 

000046 

HESEXA 

000000 

MESEXE 
MESLIN 
MESLOG 
MEJMOD 
MESNOD 
ME$NON 
MESOBJ 
ME $062 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
HE. DON 
ME.FCO 
ME.FIO 
ME. FOP 
ME. FOR 
HE. FUN 
HE.GRO 
HE.HAR 


ME, 
ME, 


IID 
I.C0 


ME. 
HE. 


ME.LPR 
HE.MPR 
HE.MVE 
HE. OPE 
HE.PLO 
HE. PHI 
HE.PNA 
HE. PR! 
HE.PTY 
ME.PVA 
HE. RES 
HE. ROD 
.SIZ 
.SYS 
HE.UCO 
HFSACT 
HFSADO 
HFSADJ 
MFSALL 
HFSBYE 
MFSCHA 
MFSDUH 
HFSEVT 
HFSFUP 
MFSKNO 
MFSLOA 
MFSLOO 
MFSREA 
MFSSIG 
MFSSPF 
HFSSYS 
HFSTES 
MFSTRA 


000200 
000001 
000002 
000004 
000000 
177777 
000007 
000004 
000005 
000006 
177744 
177753 
177765 
177755 
1 77600 
177762 
177756 
177763 
177776 
177777 
177745 
177750 
177767 
177766 
177757 
177773 
177771 
177747 
177751 
177743 
177752 
177775 
177772 
177760 
177761 
177754 
177774 
177746 
177770 
177776 
000000 
177774 
177775 
000300 
000023 
000020 
000001 
000264 
177777 
000017 
177775 
000024 
177773 
000302 
000026 
000022 
000301 
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267 
268 
269 
270 
271 
272 
27? 
274 
275 
276 
?77 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 

290  000336 

291  000336 
292 

293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
503  000342 

304  000346 

305  000352 

306  000356 

307  000360 

308  000364 

309  000370 
310 

311 
312 

313  000372 

314  000376 

315  000400 

316  000406 

317  000414 

318  000420 

319  000426 

520  000430 

521  000436 

522  000440 
525  000444 


.SBTTL   CLRALI  -  CLEAR  AN  ALIAS 
♦•-CLRALI-CLEAR  AN  ALIAS  BLOCK 
THIS  ROUTINE  IS  CALLED  TO  CLEAR  ONE  OR  MORE  ALIAS  NAME  BLOCKS  (ANB'S). 

R4  =   ADDRESS  Of  CONTEXT  AREA  UITH  THE  fOLLOWIN  OFFSETS  FILLED  IN: 
ASTVP  =  ALIAS  NAME  FORMAT  TYPE: 

-5  =  ALL  (MFSALL) 

-2  =  ACTIVE  (MFSACT) 

-1  =  KNOWN  (MF$KNO) 

>0  =  SPECIFIC  ALIAS 
A$ALI  =  ALIAS  NAME,  SPACE  FILLED  If  A$TYP  >  0 
ASSCO  =  SCOPE  OF  ALIAS(ES) 

OUTPUTS: 

RO  =  RETURN  CODE 

REGISTERS: 

R4    IS   PRESERVED 


012700     000001 


CLRALI: 


10$: 


017700 
001465 
062700 
105764 
002426 


105020 
012766 
012764 
016703 
052765 
001457 
012764 
000433 

000430 


OOOOOOG 

000000 
000011 


177770 
000010 
OOOOOOG 
OOOOOOG 


MOV 

.If  DF 

MOV 

CALL 

BCC 

MOV 

RETURN 

.ENDC 

SUSTKS 

SAVMAP 

MOV 

BEQ 

ADD 

Tsra 

BLT 


#MS.SUC,RO 

R$$PRO 

«DF.AUP,R1 
CKLOCK 
10$ 
#ME.0PE,R0 

;  IF  DF  R$$PRO 

60$ 

aDECPT.RO 

50$ 

*D$ANN,RO 

A$TYP(R4) 

25$ 


000004 
000004 

OOOOOOG 


000003  000004 


CLEAR  A  SPECIFIED  ALIAS 

CALL  FINDA 

BCC  20$ 

MOV  #ME.UC0,2tBIAS(SP) 

MOV  #ME$ALI,A$PAR(R4) 

MOV  CURCTX,R3 

BIT  #CF$VR2,C$FLAG(R3) 

BEQ  50$ 

MOV  *ME$AL2,A$PAR(R4) 

BR  50$ 

20$:    CALL  DEAANB 

BR  50$ 


ASSUME  SUCCESS 

PRO/DECNET 

SET  ALIAS  UPDATE  BIT 

WAIT  UNTIL  NT. CFG  PARTITION  IS  UNLOCKED 

IF  CC,  UNLOCKED 

ELSE  OPERATION  FAILURE 


ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

POINT  TO  HOME  BLOCK 

NO  HOME  BLOCK,  NO  ALIASES 

POINT  TO  ALIAS  NAME  LISTHEAD 

CLEAR  A  SPECIFIED  ALIAS  ? 

IF  LT,  NO 


LOOK  FOR  ALIAS  NAME  BLOCK 

IF  CC,  FOUND  IT  -  DELETE  IT 

ELSE,  SET  ERROR  CODE  IN  SAVED  RO 

SET  ERROR  DETAIL 

GET  ADDRESS  OF  CONTEXT  AREA 

CONNECTED  TO  V2.0  NCP? 

BR  IF  YES 

ELSE  SET  V2.0  ENTITY  ID 

AND  RETURN 

UNLINK  AND  DEALLOC  ALIAS  NAME  BLOCK 

AND  RETURN 
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MLD     -  Microcode  Loa 

jer 

ABOAST  -  Abort 

Cleanup 

AST 

677  001032 

012713 

101000 

678  001036 

0127A3 

000026 

679  001042 

010446 

680  001 OAA 

681  001050 

012604 

682  001052 

683  001056 

000750 

68A 

685  001060 

686  001062 

005067 

000156 

687  001066 

688 

639 
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MOV 

#CS.ERR+CS.FTL,(R3) 

MOV 

#fC.MLD+FS.HLT,-(R3) 

MOV 

R4,-(SP) 

CALL 

aPDSPL 

MOV 

(SP)+,R4 

CALL 

aCC8R1 

BR 

10$ 

30$: 

RETURN 

40$: 

CLR 
EXIT$S 

CURQST 

.IFT 


Tell  driver  a  fatal  error  occurred 
(Sub) function  =  load  halted 
Save  CCB  address 
Dispatch  to  driver  w/prionty 
Recover  CCB  address 
Return  CCB  to  pool 
:  Dequeue  another  load  request 

:  Return  to   3r  state  at  "40$" 
No  more  requests  outstanding 
Program  exi t 

If  system  is  RSX-11M  ... 


H     1 


MLD 
ABOAST 


Microcode   Loader 
Abort  Cleanup  AST 
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SYMBOL    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

DSPDRV 

OOOAU  R 

9-466    #10-499 

10-560 

EFSACT 

=  000001 

#6-83 

ETYPCL 

=  010500 

#7-143     11-617 

EVTBLK 

000306  R 

#8-216     11-606 

11-615 

EVTEFL 

=  000002 

#7-101     11-617 

EVTLUN 

=  000002 

#7-100     9-269 

11-617 

EVSACF 

=  000201 

#6-83 

EVSADR 

=  000420 

#6-83 

EVSADU 

=  000417 

#6-83 

EVSAPL 

=  000400 

#6-83 

EVSARC 

=  0C0421 

#6-83 

EVSAUC 

=  000010 

#6-83 

EVSAUS 

=  000003 

#6-83 

EVSCDF 

=  000520 

#6-83 

EVSCOZ 

=  000011 

#6-83 

EVSDBR 

=  000302 

#6-83 

EVSGAS 

=  035101 

#6-83 

EVSHCE 

=  035114 

#6-83 

EVSHCI 

=  035113 

#6-83 

EVSHFE 

=  000506 

#6-83 

EVSIFL 

=  000413 

#6-83 

EVSIFO 

=  000415 

#6-83 

EVSIFS 

=  000414 

#6-33 

EVSINF 

=  000515 

#6-83 

EV$LDL 

=  000407 

#6-83 

EVSLDN 

=  010416 

#6-83 

EVtLDO 

=  000411 

#6-83 

EVSLDS 

=  000410 

#6-83 

EVSLSC 

=  000500 

#6-83 

EVtLUP 

=  000412 

#6-83 

EVSNOL 

=  000402 

#6-83 

EVSNRC 

=  000416 

#6-83 

EVSNSC 

=  000200 

#6-83 

EVSNUL 

=  000401 

#6-83 

EVSNVR 

=  000406 

#6-83 

EVSOPL 

=  000403 

#6-83 

EVSPCC 

=  034000 

#6-83 

EVSPCI 

=  034001 

#6-83 

EVSPCM 

=  034002 

#6-83 

EVSPFE 

=  000404 

#6-83 

EVSPPC 

=  034003 

#6-83 

EVSRCF 

=  000517 

#6-83 

EVSRDC 

=  010001 

#6-83 

EVSRDR 

=  010002 

#6-83 

EVSRJE 

=  035106 

#6-83 

EVSRSC 

=  000501 

#6-83 

EVSRUL 

=  000405 

#6-83 

EVSSNA 

=  035000 

#6-83 

EVSSNF 

=  000516 

#6-83 

EVSSPE 

^  035001 

#6-83 

EV$XCE 

=  034110 

#6-83 

EVSXDI 

=  013600 

#6-83 
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101  000042 

102  000044 

103  000046 

104  000050 

105  000052 

106  000054 

107  000056 

108  000060 

109  000062 

110  000064 

111  000066 

112  000070 
115  000072 

114  000074 

115  000076 

116  000100 

117  000102 

118  000104 

119  000106 

120  000110 

121  U00112 

122  000114 

123  000116 

124  000120 
125 

126 

127 

128 

129 

130 

131 

132  000122 

133 

134 

135 

136  000124 

137  000126 

138  000130 

139  000132 

140  000134 

141  000136 

142  000140 

143  000142 

144  000144 

145  000146 

146  000150 

147  000152 

148  000154 

149  000156 

150  000160 

151  000162 

152  000164 

153  000166 

154  000170 

155  000172 

156  000174 

157  000176 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
0000006 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
0000006 
0000006 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
0000006 
OOOOOOG 
OOOOOOG 
0OOCJ06 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


STPCT: 

:  .WORD 

SSTPCT 

TKTCB: 

:  .WORD 

STKTCB 

CCBAF: 

:  .WORD 

SCCBAF 

CCBAL: 

:  .WORD 

SCCBAL 

CCBCT: 

:  .WORD 

SCCBCT 

CCBGT: 

:  .WORD 

SCCBGT 

CCBRT: 

:  .WORD 

SCCBRT 

CC8NM: 

:  .WORD 

SCCBNM 

CEACC: 

:  .WORD 

SCEACC 

CSBRT: 

:  .WORD 

$CS8RT 

DDMAN: 

:  .WORD 

SDDMAN 

DECPT: 

:  .WORD 

SDECPT 

FILHD: 

:  .WORD 

SFJLHD 

LDBAf : 

:  .WORD 

SLDBAF 

LDBGT: 

:  .WORD 

$LD8GT 

LD8RT: 

:  .WORD 

$LD8RT 

LGCON: 

:  .WORD 

SLGCON 

LGFNB: 

:  .WORD 

SLGFNB 

L6M0N: 

:  .WORD 

SLGMON 

LGSTT: 

:  .WORD 

SLGSTT 

LGUIC: 

:  .WORD 

SLGUIC 

LLCRS: 

:  .WORD 

SLLCRS 

LLCTA: 

:  .WORD 

SLLCTA 

NMCLH: 

:  .WORD 

SNMCLH 

.IF  DF 

R$$PRO 

;  PRO/DECnet 

NMCL2: 

:  .WORD 

$NMCLH+2 

.IFF 

;  DF  R$$PRO 

NMCL2: 

:  .WORD 

$NMCL2 

.ENDC 

;  DF  R$$PRO 

NMCRS: 

:  .WORD 

SNMCRS 

NMLST: 

:  .WORD 

SNMLST 

NTLPT: 

:  .WORD 

SNTLPT 

OSJHD: 

:  .WORD 

SOBJHD 

PDVID: 

:  .WORD 

SPDVID 

PDVNM: 

:  .WORD 

SPDVNM 

PDVTA: 

:  .WORD 

SPDVTA 

PSIPT: 

:  .WORD 

SPSIPT 

RD8AF : 

:  .WORD 

SRDBAF 

RDBCT: 

:  .WORD 

SRDBCT 

RDBNM: 

:  .WORD 

SRDBNM 

RDBSZ: 

:  .WORD 

SRDBSZ 

RD8TH: 

:  .WORD 

$RD8TH 

SD8AF. 

:  .WORD 

SSDBAF 

SDBCT. 

:  .WORD 

SSDBCT 

SDBNM 

:  .WORD 

SSDBNM 

SLTMA 

:  .WORD 

SSLTMA 

SLTNM 

:  .WORD 

SSLTNM 

SNAPT 

:  .WORD 

ISNAPT 

XAVL: 

.WORD 

$XAVL 

XBIAS 

:  .WORD 

SXBIAS 

ZTIME 

:  .WORD 

$ZTIME 
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656 

657 

658 

659 

660 

661 

662 

663 

66^ 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

68A 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 


G  4 

MACRO  i/05.03b  Saturday  29-Jun-85  10:28  Page  11 

.SBTTL  FINREQ  -  FINISH  REQUEST 

•♦-FINREQ-flNISH  REQUEST 

THIS  ROUTINE  IS  CALLED  TO  SET  UP  RETURN  CODES. 

INPUTS: 

RO  =  NICE  RETURN  CODE 

R2  =  LENGTH  OF  DATA  BEING  RETURNED 

CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 

OUTPUTS: 

RO  =  RETURN  CODE  (NICE  CODE  IN  HIGH  BYTE) 

R1  =  LENGTH  OF  DATA  BEING  RETURNED 

R3  =  I/O  PACKET  ADDRESS 


002736 

002736  012746  000001 


FINREQ: 


002742  110066  000001 

002746  012600 

002750  010201 

002752  016703  175232 
003756 

001472' 


5$: 


10$: 


MOV 

#IS.SUC,-(SP)         ; 

.IF  DF 

R$$PRO 

TST 

RO 

BLE 

10$ 

MOV 

aDECPT,R4            ; 

BIT 

#DF.CFN,D$SMT(R4) 

no 

5$ 

BIS 

#100,R0 

BIT 

#DF.AFN,D$STAT(R4) 

BEQ 

10$ 

SIS 

#40, RO 

.ENDC 

MOVE 

RO.KSP) 

MOV 

CSP)+,RO 

MOV 

R2,R1 

MOV 

CURIOP, R3 

RETURN 

.END 


MANACP 


INIT  STATUS  WORD 

PRO/DECNET 

WAS  NICE  CODE  SUCCESSFUL  ? 

IF  LE,  NO 

GET  DECNET  HOME  BLOCK  ADDRESS  ;  RJK02 

CHECK  CONFIGURATION  FILE  UPDATE 

IF  EQ,  NOT  SET 

ELSE  SET  BIT  IN  NICE  RETURN  CODE  BYTE 

CHECK  ALIAS  FILE  UPDATE 

IF  EQ,  NOT  SET 

ELSE  SET  BIT  IN  NICE  RETURN  CODE  BYTE 


PUT  RETURN  STATUS  IN  HIGH  BYTE 
GET  RETURN  STATUS 
SET  LENGTH  OF  BUFFER  RETURNED 
RESTORE  I/O  PACKET  ADDRESS 


MM 
MM 
MM 
MM 

MM 

m 
m 
m 
m 
m 
m 

Ml" 
Ml* 


u 

LL 

LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LI 
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M( 
U 


6  5 
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MA 
MA 


MM      MM 

AAAAAA 

NN 

NN 

AAAAAA 

SSSSSSSS 

TTTTl 

TTTTT 

MM      MM 

AAAAAA 

NN 

NN 

AAAAAA 

SSSSSSS5 

TTTTl 

TTTTT 

MMMM  MMMM 

AA 

AA 

NN 

NN 

AA 

AA 

SS 

MMMM  MMMM 

AA 

AA 

NN 

NN 

AA 

AA 

SS 

MM  MM  MM 

AA 

AA 

NNNN 

NN 

AA 

AA 

SS 

MM  MM  MM 

AA 

AA 

NNNN 

NN 

AA 

AA 

SS 

MM      MM 

AA 

AA 

NN  NN  NN 

AA 

AA 

SSSSSS 

MM      MM 

AA 

AA 

NN  NN  NN 

AA 

AA 

SSSSSS 

MM      MM 

AAAAAAAAAA 

NN 

NNNN 

AAAAAAAAAA 

SS 

AAAAAAAAAA 

NN 

NNNN 

AAAAAAAAAA 

SS 

MM      MM 

AA 

AA 

NN 

NN 

AA 

AA 

SS 

MM      MM 

AA 

AA 

NN 

NN 

AA 

AA 

SS 

MM      MM 

AA 

AA 

NN 

NN 

AA 

AA 

SSSSSSSS 

MM      MM 

AA 

AA 

NN 

NN 

AA 

AA 

SSSSSSSS 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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4A 
45 
A6 

48 
49 

50  000000 

51  000000 
52 

53 
54 
55 
56 
57 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 

.MCALL  GTSK$S,EXTK$S,CALLR,SAVRG,RESRG,PKTDF$,SREA$S,CCeDF$ 


000000 


PKTDFS 
CCBOFS 


LOCAL  DEFINITIONS 
MN$VOL=0 


DEFINE  I/O  PACKET  OFFSETS  .,^  ^ 

DEFINE  COMMUNICATIONS  CONTROL  BLOCK  SYMBOLS 


;  ASSEMBLE  FOR  VOLATILE  ACP 
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MACRO  NAME 

REFERENCES 

CALL 

6-84 

6-100 

6-120 

10-358 

10-362 

11-395 

CALLR 

#5-48 

10-371 

11-404 

CCBDFt 

#5-48 

5-51 

DIRS 

#6-127 

6-127 

#6-134 

EXTKtS 

#5-48 

7-212 

GTSKSS 

#5-48 

6-127 

MOV$ 

#6-127 

6-127 

#6-134 

OFF$ 

#6-127 

PKTDFS 

#5-48 

5-50 

RESRG 

#5-48 

RETURN 

6-124 

6-136 

7-242 

SAVRG 

#5-48 

SOB 

7-229 

9-322 

SREASS 

#5-48 

6-134 

SWSTKS 

6-84 

7-230 

9     PAGE 

3 

CREF 

04.00 

7-230 
11-398 

7-232 

8-264 

6-134 

#7-212 

7-212 

6-134 

#7-212 

7-212 

8-279 


9-306 


9-313 


10-353 


8-280 


9-323 


♦  ♦F1LE«MD«»MANBYE 
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MP$DWE 

MPSELT 

MPIETY 

MPSEVE 

MPSFNC 

MPSGDT 

MPSGNM 

MPSGRO 

MPSGRP 

MPtGTY 

MPSHAD 

MPSHBT 

MPSHDD 

MPIHTM 

MPSHUA 

MPSIAT 

MPSIDE 

MP$IDP 

MPS  I  HO 

MPSINA 

HPSIND 

MPilNI 

MPSITI 

MPILAA 

MPSLAN 

MPSLAR 

MPSLAS 

HPSLBS 

MPSLCO 

MPSLCT 

MPSLHL 

MPSLLE 

MPSLLO 

MPSLMB 

MPSLMX 

MPSLNA 

MPSLNO 

MPSLOA 

MPSLOG 

MPSLOO 

MPSLTM 

MPSLTY 

MPSLWI 

MPSMAC 

MPSMAD 

MPSMAP 

MPSMAR 

MP$MAV 

MPSMBN 

MPSMBR 

MPSMBU 

!»IP$MCB 

MPSMCO 

MPSMDE 

MPSMHO 

MPSMLB 

MP$MLK 


001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 

001757 

0021A2 

000162 

001612 

002210 

001522 

000K4 

006327 

000215 

002177 

00220A 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 

000156 

000232 

000227 

004432 

002152 

002200 

000144 

000233 

000170 

004514 

000620 

001613 

"04533 

000230 

004420 

001630 

0116323 

001635 

006321 

001636 

001637 

001642 

000156 

001632 

004421 

001633 

000202 

001306 


MPSMLN 

MPSMLP 

HPSMRB 

MPSMRG 

MPSMRP 

MPSMRT 

MPSMRV 

MPSMSB 

MPSHVE 

MPSMVI 

MPSMVR 

MPSMWN 

MPSMXB 

MPSMXC 

MPSMXR 

MPSMXW 

MPSNAA 

MPSNAC 

MPSNAP 

MPSNCT 

HPSNET 

HPSNLI 

MPSNNA 

MPSNOD 

MPSNRA 

HPSNRB 

MPSNSA 

MPSNTI 

MPSNl/f 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

MPSONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

MPSOVE 

MPSOWN 

MPSPAR 

MPSPAS 

HPSPCH 

MPSPCO 

MP$PCT 

MPSPDT 

MPSPHA 

HPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRI 


001631 

006333 

002171 

001605 

006322 

002153 

006320 

000170 

000145 

001634 

001751 

002154 

002172 

000466 

001630 

002143 

006335 

001130 

006326 

000240 

002114 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

0"0776 

0U0214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 

000513 

002152 

000024 

000144 

002114 

000170 

000012 

000025 

002140 

000012 

004374 

002126 

004411 


MPSPRO 
MPSPSS 
MPSPST 
MPSRET 
MPSRFA 
MPSRMX 
MPSRPA 
MPSRPR 
MPSRRT 
HPSRST 
MPSRSV 
MPSRSZ 
MPSRTI 
MPSRTM 
MPSRVE 
MPSfiVT 
MPSSAC 
MPSSAD 
MPSSCA 
MPSSCO 
MPSSCT 
HPSSDU 
MPSSDV 
MPSSEH 
MPSSER 
HPSSET 
MPSSGZ 
MPSSJD 
MPSSIN 
MPSSLI 
MPSSLO 
MPSSMX 
MPSSND 
MPSSNP 
MPSSNU 
MPSSOB 
MPSSPA 
MPSSPR 
MPSSPS 
MPSSTA 
MPSSTl 
MPSSTT 
MPSSTY 
MPSSUB 
MPSSUR 
MPSSUS 
MPSSVR 
MPSSU] 
MPSSYP 
MPSTFL 
MPSTHI 
MP$TH2 
MP$TH3 
MPSTLN 
MPSTLO 
MPSTPA 
MP$TRI 


002130 

001763 

001762 

001631 

001323 

002201 

004374 

001606 

002213 

002212 

001754 

001756 

001616 

001611 

001604 

000156 

000514 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

001644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 

000000 

002140 

002201 

000175 

000001 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004375 

002164 


MPSTST 

MPSTYP 

MPSUCS 

HPSUSR 

NPSVEC 

HPSVER 

HPSUDF 

MPSWMX 

MP$XMT 

MPSXPF 

MPSXPL 

HPSXPT 

MPSXXX 

MP$5ST 

HSVRUN= 

HSVSUB= 

HSVUNS= 

MSSACT 

MSSADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 

MSSGLO 

MSSHOL 

MSSJNA 

MSSLOA 

MSSLOO 

HSSOFF 

MSSON 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

MSSRSX 

MSSRT 

MSSSER 

HSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 


000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
M7777 
004406 
000014 
005240 
000015 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 


MTSASC 

HT$8IL 

MTSBYS 

MTSCI 

MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

MTSETH 

MTSHEX 

MTSLPB 

MTSMAX 

MTSMUL 

MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

HTSPHA 

MTSPGI 

MT$QP2 

MTSROU 

HT$R04 

MTSSEC 

HTSSGD 

MTSSYS 

HTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

MT$X25 

MUSING 

MUSOUT 

MUSPER 

MVSIII 

MVSIV 

HXACC  = 

MXDSTN= 

MXGRPN= 

MXID  = 

MXOBJN= 

MXPAS  = 

MXUID  = 

MXSACT 

MXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSOAC 

MXSDTE 

MXSFIL 

MXSLGC 

MXSLIN 

MXSLON 

MXSNMS 

MXSNOD 

MXSOBJ 


000100 
000001 
000011 
000007 
000077 
000200 
000001 
000004 
000006 
000040 
000005 
000037 
000100 
000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000020 
000020 
000010 
000020 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
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MACRO   CROSS  REFERENCE 


MACRO  NAME 

REFERENCES 

CALL 

6-101 

6-Ul 

7-189 

CALLR 

6-H8 

6-U9 

7-216 

PKTDFt 

#5-54 

5-57, 

RETURN 

7-179 

7-217 

SUSTKS 

6-Kl 

7-215 

TCBDFS 

#5-51 

5-56 

7-207 
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ALCHIN 

000A20RG 

LCSINT 

9252S1 

ALCHOP 

000722RG 

LDSLP  = 

000000 

ALIO 

OO0520R 

LICHIN 

000464RG 

ALREIN 

000426RG 

LICHOP 

000722RG 

ALREOP 

000722RG 

LIID 

000520R 

ALUN 

OOOOOOR 

LIREIN 

000472RG 

ARID 

000652R 

LIREOP 

000722RG 

ARREIN 

00043'.RG 

LIZEIN 

000500RG 

ARREOP 

000722RG 

LIZEOP 

000722RG 

A$$CHK= 

000000 

LOCHIN 

000532RG 

A$$CPS= 

000000 

LOCHOP 

000722RG 

A$$PRI= 

000000 

LOID 

000544R 

A$STRP= 

000000 

LOREIN 

000540RG 

A.LULU= 

000002 

LOREOP 

000722RG 

A.LUNA= 

000004 

L$$ASG= 

000000 

A.LUNU= 

000006 

L$$DRV= 

000000 

CICHIN 

000442RG 

L$$pn  = 

000001 

CI  CHOP 

000722RG 

L$$11R= 

000000 

CUD 

000520R 

MBSDIS 

000001 

CIREIN 

000450RG 

MBSENA 

000000 

CIREOP 

0OO722RG 

MBSFUL 

000002 

CIZEIN 

000456RG 

HBSMIX 

000002 

CI2E0P 

000722RG 

MBSONE 

000001 

CM$RSX= 

000200 

MBSRXO 

000001 

C$$CKP= 

000000 

M9$TX0 

000000 

C$$0RE= 

000400 

MBSZER 

000000 

C$$RSH= 

177564 

MCSBAB 

006073 

D$$BUG= 

177514 

MCSBID 

001765 

D$$ISK= 

000000 

MCSBMC 

001767 

D$$L11= 

000001 

MCSBSC 

001766 

D$$YNC= 

000000 

MCSCAC 

001442 

D$$YNM= 

000000 

MCSCAP 

001440 

ERRTBL 

000014R 

MCSCCL 

001445 

E$$XPR= 

000000 

MCSCDC 

002045 

F$$LVL= 

000001 

MCSCDP 

001441 

G$$TPP= 

000000 

MCSCIF 

001465 

G$$TSS= 

000000 

MCSCLD 

001464 

G$$TTK= 

000000 

MCSCOU 

100000 

G$$WRD= 

000000 

MCSCTL 

001454 

IE.A80= 

******  GX 

MCSCTR 

001452 

1E.DA0= 

»♦**».  GX 

MC$C7S 

001453 

IE.HUR= 

»»**♦*  GX 

MCSDOV 

952050 

IE.IDU= 

»»♦♦**  GX 

MCSLBR 

001750 

IE.NDR= 

******  GX 

MCSLBS 

001751 

IE.NFW= 

******  GX 

MCSLDI 

001774 

IE.NLN= 

177733 

MCSLDO 

001775 

IE.NST= 

******  GX 

MCSLDR 

001762 

IE.OFL= 

******  GX 

MCSLDS 

001763 

IE.PRI= 

******  GX 

MCSLLB 

002021 

INIOIO 

000070R 

MCSLLP 

002115 

I$$RAR= 

000000 

MCSLLR 

002007 

I$$RDN= 

000000 

MCSLOO 

000001 

K$$CNT= 

177546 

HCSLRB 

002020 

K$$CSR= 

177546 

MCSLRP 

002114 

K$$LDC= 

000000 

MCSLRR 

002006 

K$$TPS= 

000074 

MCSLSI 

002032 

LCtEXT 

000000 

MC$LST 

002033 

MCSLUP 
HCSMAP 
MCSMBL 
MCSHBX 
MCSMBY 
MCSMPX 
MCSNAP 
MCSNBR 
MCSNBS 
MC$NCR 
MCSNCS 
MCSNML 
MCSNMR 
MCSNMS 
MCSNNO 
MCSNNU 
MCSNOP 
MCSNOR 
MCSNPF 
MCSNPR 
MCSNRE 
HCSNRT 
HCSNVR 
MC$P08 
MCSPll 
MCSRFL 
HC$S8U 
MCSSFL 
MCSSYC 
MCSSYL 
MC$SYR 
MCSSYS 
MCSSYZ 
MCSTBR 
MCSTBS 
MCSTDR 
MCSTIM 
MCSTYP 
MCSUBU 
HCSUFD 
MCSUMR 
HCSUMS 
MCSVAX 
MCSWID 
MCSWIH 
MCSWIL 
HC$W08 
MC$U16 
HC$W32 
MCSXBR 
MC$XBS 
MCSXCJ 
MCSXCR 
MC$XCS 
MCSXDR 
MCSXDS 
HCSXFR 


006072 

010000 

001764 

004420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 

000024 

000000 

001140 

001141 

002053 

000000 

007777 

002052 

002047 

001132 

001133 

000003 

060000 

040000 

020000 

020000 

040000 

060000 

001750 

001751 

000322 

002260 

002261 

001762 

001763 

002272 


MCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXMC 

MCSXHS 

MCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

MC$020 

HD$CI 

MDSCNA 

MDICOU 

MDSDA 

MD$DL 

HDSDLV 

MDSDMC 

MDSDMF 

HDSDMP 

MDSDMR 

MDSDMV 

MDSDN 

MD$DP 

MDSDPV 

MDSDO 

MDSDTE 

MD$DU 

MDSDUP 

HD$DV 

MDSDZ 

MDSFUL 

MDSHAL 

MDSHEL 

HDSKCP 

MDSKDP 

HDSKDZ 

MDSKL 

MDSKMX 

MDSKMY 

MDSLEN 

MDSPCL 

MDSONA 

MDSUNA 

MDSWIT 

HD.ABO 

MD.ACC 

MD.A08 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

HD.LSH 


002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 
000036 
000040 
000054 
000052 
000050 
000011 
000005 
000001 
000002 
000017 
000010 
000016 
000011 
000007 
000015 
000002 
000014 
000001 
000006 
000001 
000020 


MD.NOB 
MD.NON 
MD.PER 
MD.RES 
MP. ROB 
MD.RSH 
MD.SDU 
MD.SLO 
MD.SNA 
MD.TLO 
MD.UNA 
MD.UNR 
MD.UOB 
MD.VOL 
MESALI 
ME$AL2 
HESARE 
MESCIR 
HESEXA 
MESEXE 
MESLIN 
MESLOG 
HESMOD 
MESNOD 
MESNON 
HESOBJ 
ME$0B2 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
ME. DON 
ME.FCO 
ME.FIO 
ME. FOP 
ME. FOR 
ME. FUN 
ME.GRO 
HE.HAR 
ME.IID 
ME. LCD 
ME.LPR 
ME.MPR 
ME.MVE 
ME. OPE 
ME.PLO 
ME.PMI 
ME.PNA 
ME.PRI 
ME.PTY 
ME.PVA 
ME. RES 
ME.ROO 
ME.SIZ 
ME. SYS 


000012 
\m77 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
000000 
000200 
000001 
000002 
000004 
000000 
177777 
000007 
000004 
000005 
000006 
177744 
177753 
177765 
177755 
177600 
177762 
177756 
177763 
177776 
177777 
177745 
177750 
177767 
177766 
177757 
177773 
177771 
177747 
177751 
177743 
177752 
177775 
177772 
177760 
177761 
177754 
177774 
177746 
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98 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 
112 
113 
1U  000056 

115  000056 

116  000060 

117  000064 

118  000072 

119  000074 

120  000100 

121  000102 

122  000104 

123  000110 

124  000112 

125  000116 

126  000120 

127  000124 

128  000126 

129  000132 


.SBTTL  TRANAM  -  TRANSLATE  A  NAME  TO  AN  ADDRESS 

•♦-TRANAM-TRANSLATE  A  NAME  TO  AN  ADDRESS 

THIS  ROUTINE  TRANSLATES  A  NAME  TO  AN  ADDRESS 

INPUTS: 

R1  =  POINTER  TO  NAME 

R3  =  ADDRESS  OF  BUFFER 

CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 

OUTPUTS: 

RO  =  RETURN  STATUS 

R2  =  LENGTH  OF  DATA  TO  RETURN  (0  OR  2) 


TRANAM: 


005002 

CLR 

R2 

016705 

OOOOOOG 

MOV 

CURIOP, R5 

026527 

000006G  000006 

CMP 

I.PRMt6(R5) 

001403 

BEQ 

10$ 

012700 

177776 

MOV 

#ME.FOR,RO 

000414 

BR 

30$ 

010100 

10$: 

MOV 
CALL 

R1,R0 
MAPREM 

103003 

BCC 

20$ 

012700 

177770 

MOV 

#ME.UCO,RO 

000405 

BR 

30$ 

012700 

000001 

20$: 

MOV 

#MS.SUC,RO 

010113 

MOV 

R1,(R3) 

012702 

000002 

MOV 

#2,R2 

,#6 


ASSUME  NO  ADDRESS  TO  RETURN 

GET  ADDRESS  OF  I/O  PACKET 

WAS  A  SIX  BYTE  NAME  SUPPLIED  ? 

IF  EQ,  YES  -  TRY  TO  MAP  IT 

ELSE,  MESSAGE  FORMAT  ERROR 

AND  RETURN 

POINT  TO  THE  NAME 

MAP  THE  NAME  TO  AN  ADDRESS 

IF  CC,  SUCCESS 

ELSE  ''UNKNOWN  COMPONENT" 

SUCCESS  ! 

SET  THE  ADDRESS  IN  THE  BUFFER 

TWO  BYTES  TO  RETURN 


30$: 


RETURN 


H  11 

MANTRA  -  TRANSLATE  NAMES  AND  AD  MACRO  V05.03b  Saturday  29-Jun-85  10:31 
TRAALI  -  TRANSLATE  AN  ALIAS  TO  AN  NAME 


Page  8 


MANVCD  - 
INIACP  - 

73 
71, 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
97 
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INITIALIZE  ACP 

.SBTTL   INIACP  -  INITIALIZE  ACP 
**-INIACP-INITIALIZE  ACP 


000000 


000000  005767  OOOOOOG 
000004  0010.2 
000006 
000012 


THIS  ROUTINE  IS  CALLED  TO  INITIALIZE  THE  STATE  Of  THE  ACP.  IT 
CALLS  "INieuF"  TO  INITIALIZE  THE  ACP  BUFFER  AREA. 

INPUTS: 

NONE 

OUTPUTS: 

BUFFER  DESCRIPTORS  ARE  INITIALIZED 


TRANSLATE  VECTORS  MF  NECESSARV) 


INIACP: 

.IF 

DF 

R$$MPL 

.IF 

NDF 

R$$PRO 

DIR$ 

#GETVEC 

.ENDC 

.ENDC 

TST 

POOLPT 

BNE 

10$ 

CALL 

INI8UF 

10$: 

RETURN 

HAS  THE  POOL  BEEN  INITIALIZED 

IF  NE,  YES 

INITIALIZE  THE  BUFFERS 
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186 

187 

188 

189 

190  000460 

191 

192 


000001 


.ENDC 
;  END-Of-TABLE 
\mm%     FLAGS=RF$END 

.END 


END  Of  TABLE 
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SYMBOL 

VALUE 

REFERENCES 

DEACB 

-   ****** 

6X 

6-97 

HSRDTE 

OOOOOA 

5-82 

I<;1SAR6 

r  ****** 

GX 

6-78 

•6-100 

NtSVCT 

-  ****** 

6-78 

6-89 

PSIBYE 

000000 

RG 

5-59 

#6-76 

PSIPT 

=  ****** 

GX 

6-80 

RSLEN 

00002A 

6-96 

RSOWN 

000010 

6-90 

TKTCB 

-      ****** 

CX 

6-84 

T.UCB 

000C?6 

6-90 

SCAlLX 

-   ****** 

GX 

6-95 

SCEACC 

-   *«**«« 

GX 

6-89 

SXLINK 

=   ****** 

GX 

6-95 

6-95 


G  H 
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6-100 


PSIBYE     CREATED  BY  MACRO  ON  29-JUN-85  AT  10:32 
MA.-pn  rt)n<;!;  ORRPOFMrF  
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MFSIRI 

MFtZER 

MLtALl. 

MLSCLS 

MLtCON 

MLtEXT 

MLSFIL 

MLSFIR 

MLSINT 

MLtKNO 

MLSMON 

MLtSVS 

MLtTOP 

MNSUNL 

MOSACC 

MOSADD 

MOSALA 

MO$AL 1 

MOICHA 

MOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

MOSLIN 

MOSLOG 

MOSMIR 

MOSNAM 

MOSNK 

MOtNOD 

MOSOFF 

MO$ON 

MOSOPT 

MOSPER 

MOSPRO 

MOSPRS 

MOSREA 

MOSSET 

MOSSTA 

MOSSUM 

MO$TS< 

MOSVOL 

MOSZER 

MPSACB 

MPSACC 

MPSACT 

MPSADJ 
MPSADP 
MPSADS 
MPSALB 
MPSAMf 


000021 

000025 

100000 

000000 

000001 

000001 

000002 

000000 

000000 

140000 

000003 

000002 

000001 

000377 

000200 

000002 

000004 

000000 

000040 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

ooocco 

000001 
000200 
000002 
000001 
000200 
000000 
000020 
000000 
000000 
000000 
000000 
000012 
000514 
004526 
000766 
001440 
006325 
004406 
000036 
001640 


MPSAMH 

MPSANB 

MPSASB 

MPSAS'- 

MPtAUS 

MP$BBT 

MP$BDF 

MPSBFQ 

MPSBLK 

MPSBLO 

MPIBMX 

MPSBNP 

MPSBRT 

MPSBSA 

MPSBSD 

MPSBSI 

MPSBSP 

MPSBUF 

MPSBUP 

MPSBUS 

MPSCAC 

HPSCAS 

MPSCAT 

MPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

MPSCLN 

MP$CLT 

MPSCHB 

MPSCMK 

MPSCMX 

MPSCND 

MPSCNU 

MPSCOB 

MPSCON 

MPSCOS 

MPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

MPSDAL 

MPSDCO: 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MPSDHO^ 

MPSDIA 

MPSDLB 

MPSDLG 

MPIDLI 

MPSDLT 


001641 

004420 

000024 

004432 

000512 

002165 

002164 

002121 

001616 

001452 

002176 

006330 

001620 

002176 

002203 

002200 

006331 

000170 

006324 

001643 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

000537 

002153 

000310 

001753 

000311 

002126 

001604 

000230 

000232 

000226 

000161 

001755 

002127 

000540 

002570 

001464 

002177 

001131 

000156 

002114 

001320 

:  001465 
000173 
002571 
004521 

:  001466 
002200 


MP$DRO 

001441 

MPSMBN 

001636 
001637 
001642 

MPSPDT 

002114 

MPICST 

000454 
002140 

MP$MeR 

MP$PHA 

000 '70 

MPSDTE 

MPSMBU 

MPSPHY 

000012 

MP$DTY= 

001452 

MPSMCB 

000156 

MPSPLI 

000025 
002140 

MP$DUA 

000207 

MP$MC0 

001632 

MPSPLN 

MPSDUC 

000210 

MPSMDE 

004421 

MPSPLO 

000012 

MPSDUM 

000202 

MPSHHO 

001633 

MPSPMC 

004374 

MPSDUP 

002127 

HP$HLB 

000202 

MPJPNT 

002126 

MPSDVC 

002114 

MPSMLK 

001306 

MP$PRI 

004411 

MPSDUE 

001321 

MPSMLN 

001631 

MPSPRO 

002130 

HPSELI 

000157 

MPSMLP 

006333 

MPSPSS 

001763 

MPSETY 

001605 

MPSMRB 

002171 

MPSPST 

001762 

MPSEVE 

000311 

MPSMRO 

001605 

MPSRET 

001631 

MPSFNC 

001752 

MPSMRP 

006322 

MPSRFA 

001^?^ 

MPSGDT 

002222 

MPSMRT 

002153 

HPIRMX 

002201 

MPSGNM 

002223 

MPSMRV 

006320 

MPSRPA 

004374 

MPSGRO 

002115 

MPSMSB 

000170 

MPSRPR 

001606 

MPSGRP 

000541 

MPSMVE 

000145 

MP$RRT 

002213 

MPSGTY 

002224 

MPSMVI 

001634 

MPSRST 

002212 

MPSHAD 

001757 

HPSMVR 

001751 

MPSRSV 

001754 

MPSHBT 

002142 

MPSMWN 

002154 

MPSRSZ 

001756 

MPSHDD 

000162 

MPSMXB 

002172 

MPSRTI 

001616 

MPSHTM 

001612 

MPSMXC 

000466 

MPSRTM 

001611 

MPSHUA 

002210 

MPSMXR 

001630 

HPSRVE 

001604 

MPSIAT 

001322 

MPSMXU 

002143 

MPSRVT 

000156 

MPSIDE 

000144 

MPSNAA 

006335 

MPSSAC 

000514 

MPSIDP 

006327 

MPSNAC 

001130 

MPSSAD 

9SS5^J 

MPSIHO 

000215 

MPSNAP 

006326 

MPSSCA 

000310 

MPSINA 

002177 

MPSNCT 

000240 

MPSSCO 

000144 

MPSIND 

002204 

MPSNET 

002114 

MPSSCT 

002176 

MPSINI 

002201 

MPSNLI 

000765 

MPSSDU 

000203 

MPSITI 

000776 

MPSNNA 

000764 

MPSSDV 

000160 

NPILAA 

000231 

MPSNOD 

000500 

MPSSEH 

004401 

MPSLAN 

000234 

MPSNRA 

006334 

MPSSER 

000144 

MPSLAR 

000202 

MPSNRB 

000214 

MPSSET 

000000 

MPSLAS 

000012 

MPSNSA 

001617 

MP$SGZ 

001644 

MPSLBS 

000203 

MPSNTI 

002141 

MPSSID 

000176 

MPSLCO 

000226 

MPSNUM 

001642 

MPSSIN 

000310 

MPILCT 

000156 

MPSNVE 

001274 

HPSSLI 

000156 

MPSLHL 

000232 

MP$NXN= 

001476 

MPSSLO 

000171 

MPSLLE 

000227 

MPSOAC 

000632 

MPSSMX 

002202 

MPSLLO 

004432 

MPSOAN 

000620 

HPSSND 

000500 

MP$LM9 

002152 

MPSOCO 

000776 

MPSSNP 

006332 

NPSLMX 

002200 

MPSOHO 

000214 

MPSSNU 

000542 

MPSLNA 

000144 

MPSONA 

000764 

MPSSOB 

000524 

MPSLNO 

000233 

MPSONR 

002114 

MPSSPA 

000157 

MPSLOA 

000170 

MPSOQL 

001453 

MPSSPR 

000536 

MPSLOG 

004514 

MPSOTI 

000777 

MPSSPS 

000513 

NPSLOO 

000620 

MP$OTY 

001022 

MPSSTA 

000000 

MPSLTM 

001613 

MPIOUS 

000777 

MPSSTI 

002140 

MPSLTY 

004533 

MPSOVE 

001010 

MPSSTT 

002201 

HPSLWJ 

000230 

MPSOWN 

00'.374 

MPSSTY 

000175 

MPSMAC 

004420 

MPSPAR 

000036 

MPSSUB 

000001 

f;?$MAD 

001630 

MPSPAS 

000513 

MPSSUR 

000156 

MPSMAP 

006323 

MPSPCH 

002152 

MPSSUS 

000512 

MPSMAR 

001635 

MPSPCO 

000024 

MPSSVR 

000163 

MPSMAV 

006321 

MPSPCT 

000144 

MPSSWI 

002260 
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uesday  K 

CLRAl!  -  fLEAR 

AN  ALIAS 

52'. 
325 
326 
327  000^46 

;  CLEAR 

MULTIPL 

010067 

OOOOOOG 

J5$: 

MOV 

328  0OOA52 

016767 

OOOOOOG 

OOOOOOG  50$: 

MOV 

329  000A60 

011067 

OOOOOOG 

MC/ 

330  000A64 

011046 

MOV 

331  000^66 

CALL 

332  000A72 

012601 

MOV 

333  000^7'^ 

001414 

BEQ 

334  000-176 

126427 

000011 

177775 

CMP8 

335  000504 

001404 

BEO 

336  000506 

026164 

000010 

000020 

CMP 

337  0005U 

001002 

BNE 

338  000516 

40$; 

CALL 

339  000522 

010100 

45$: 

MOV 

340  000524 

000752 

BR 

341  000526 

50$: 

RESMAP 

342 

343 

.If  DF 

344 

345 

MOV 

346 

BIC 

347 

348 
349 
350  000532 

.ENDC 

60$: 

RETURN 

lO-Sep-85 


1^:1^ 


Page  8-1 


RO,$CRUNM 

$CRUNM,$PRUNM 

(RO),$CRUNM 

(RO),-(SP) 

aCEACC 

(SP)+,R1 

50$ 

A$TrP(R4),#MF$ALL 

40$ 

A.UC8(R1),A$SC0(R4) 

45$ 

DEAANB 

Rl.RO 

30i 


aDECPT.Rl 
*DF.AUP,0$STAT(R1) 


SET  UP  CURRENT  UNMAPPED  POINTER 

MOVE  CURRENT  TO  PREVIOUS 

MOVE  ON  TO  NEXT 

SET  UP  TO  MAP  TO  ANB 

MAP  TO  ANB 

GET  ANB  VIRTUAL  ADDRESS 

IF  EQ,  FINISHED 

IS  THIS  A  CLEAR  ALL  OPERATION  ? 

IF  EQ,  YES  -  SKIP  SCOPE  CHECK 

ELSE,  IS  THIS  ONE  TO  BE  REMOVED  ? 

IF  NOT  EQ,  NO,  KEEP  LOOKING 

UNLINK  AND  DEALLOCATE  THE  NAME  BLOCK 

ELSE,  POINT  TO  NEXT  3L0CK 

AND  CONTINUE 

RESTORE  MAPPING 

PRO/DECNET 

POINT  TO  DECNET  HOME  BLOCK 
UNLOCK  NT. CFG  PARTITION 


BACK  TO  USER  STATE  AND  RETURN 
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MLD 
ABOAST  - 

691 

692 

693 

69A 

695 

696 

697 

698 

699 

700 

701 

702 

703 

70A 

705 

706 

707 

708 

709 

710 

711 

712 

^13 

7U 

715 

716 

717 

718 

719 

720 

721 

72? 

723 

724 

725 

726 

727 

728 


Microcode  Loader 
Abort  Cleanup  AST 
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.SBTTL  FCSERR  -  Input  File  FCS  Error  Handler 
***  FCSERR  ♦** 


Function:     To  log  FCS  errors  as  DECnet  events, 
to  correct  the  error  condition. 

Call  Format:  CALL    FCSERR 

Inputs:      None 

Outputs:     R3  =  load  halt  status 

FCS  error  is  logged  tn  event  sink 

Current  load  sequence  is  marked  for  a  halt 

Registers:    RO  through  R1  are  destroyed 


No  file  handling  is  done 


FCSERR: 


10$: 


20$: 


MOV 

CMPB 

BNE 

CLR 

HR 

MOV 

MOVB 

MOV 

MOV 

MOV 

CALL 

CLRB 

MOV 

CALL 

MOV 

SEC 
RETURN 


#FD8,R0 

F.ERR(RO),#IE.EOF 

10$ 

R3 

20$ 

*FILERR.R2 

F.ERR(R0),R1 

R1,(R2) 

#WORKSP,R0 

#FI0ERR,R1 

$EDMSG 

(RO) 

#W0RKSP,R2 

LOGEVT 

#CS.FTL,R3 


Get  address  of  input  file's  FD8 
Did  end  of  file  occur? 
Branch  if  so,  no  real  error 
Get  "end  of  data"  halt  reason 
Branch  to  common  exit 

Get  $EDMSG  argument  block  address 

Get  FCS  error  code  with  sign  extend 

Move  error  to  argument  block 

Get  address  of  output  string 

Get  $EDMSG  instruction  string  address 

Format  the  output  string 

Make  it  an  ASCIZ  string 

Recover  error-specific  string  address 

Log  the  event 

Get  "fatal  error"  status 

Set  C-bit  for  error 
Exit 


HLD     -  Microcode  Loader 
ABOAST  -  Abort  Cleanup  AST 
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CREF       OA.OO 


SYMBOL     VALUE 


EVSXGW 

EVSXMX 

EVSXRS 

EVSXSC 

EV$X2S 

EV.CCB 

EV.CIR 

EV.LCB 

EV.LIN 

EV.MAP 

EV.MOD 

EV.NOD 

EV.PRT 

EXEVCL 

EXEVEC 

ESDATA 

ESEVTS 

ESLCN 

E$LIN 

ESMOD 

ESNDO 

ESPORT 

ESPRM 

ESSTAT 

E$TCB 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LW 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FC.MLD 

FRSBCC 

FRSCCF 

FRSCDF 

FRSDAO 

FRSEXC 

FRSFRM 

FRSFTL 

fRSOPN 

FRSRFD 

FRSSBU 

FRSSHO 


03^111 
0005U 
000512 
000513 
013500 
000001 
000020 
000100 
OOOOOA 
000002 
OOOOAO 
000010 
000200 
000017 
000566  [ 
000020 
000000 
000016 
000000 
000012 
000010 
OOOOK 
000002 
000006 
OOOOOA 
000020 
0000A6 
000002 
0000A2 
000216 
00002A 
000000 
000036 
000034 
000021 
000040 
000026 
000044 
000022 
000004 
:  000026 
:  000007 

:  000001 

:  000002 

:  000011 

:  000000 

:  000010 

:  000005 
:  000004 
r  000006 
^  000012 
:  000003 


REFERENCES 

#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#8-247 
#8-227 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
9-335 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 
#6-83 


8-247 
11-606 


9-364 


9-447 


9-465 


12-678 


MLD11S  CREATED  BY     MACRO     ON  28-AUG-85   AT   11:31 

C\/MDni       .'DnCC     DC  C  CDCMTF  


I    2 

PAGE  4 

CRFF        04.00 


H  3 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
MACRO  CALLS  AND  DATA 

158  _.       

159 

160 

161 

162 

163 

16-; 

165  000200  OOOOOOG 

166 

167 

168 

169  000202  OOOOOOG 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180        000102 

181 

182 

183 

184  000000 

185  OOODOO 

186  000000 

187  000002 

188  000004 

189  000006 
190 
191 
192 
193 

194  000000 

195  000000 

196  000002 
197 
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198 
199 
200 

201  000004 

202  000006 

203  000012 

204  000012 

205  000032 

206  000520 
207 

208 
209 
210 
211 

212  000000 

213  000002 
214 


000001 
000002 
000004 
000010 


000000 
000200 


.IF  DF 

R$$PRO 

;  PRO/DECnet 

ZTIM2: 

:  .WORD 

$ZTIME+2 

.IFF 

;  DF  R$ 

tPRO 

ZTIM2: 

:  .WORD 

$ZTIM2 

.ENDC 

;  OF  R$$PRO 

CALLX 

:  .WORD 

SCALLX 

.IF 

DF 

R$$MPL 

NCPU: 

.WORD 

$NCPU 

SAHPT 

;  .WORD 

SSAHPT 

SAHDB 

:  .WORD 

SSAHDB 

TICLR 

:  .WORD 

STICLR 

.ENDC 

NMVVCl 

==  .-NMVVEC/2 

;  WINDOW  BLOCK 

OFFSETS 

' 

.ASECT 

.=0 

WSACP 

:  .BLKW 

1 

-vCTX 

:  .BLKW 

1 

W$OPR 

:  .BLKW 

1 

WSSIZ 

;  CONTEXT  AREA 

OFFSETS 

' 

.=0 

C$LIN 

i;::.BLKW 

1 

CSFLA 

3::. BLKW 

1 

CF$ 

3SY==1 

CF$ 

fDN==2 

rF$ 

i/R2==4 

CFS 

l/R3==10 

C$SP: 

:   .BLKW 

1 

C$STA 

r::.8LKW 

2 

C$CCB 

C$LOC 

:;  .BLK8 

MAXLID 

CSDAT 

A::.BLKB 

CTXSIZ 

CSSI/ 

E:: 

FUNCTION  DESCRIPTOR  OFFSETS 


=0 


R$FUNC::.BLKW 

R$FLAG::.BLK8 

fiF$END==200 


M+   SPECIFIC    VECTORS 


VECTOR   TABLE   LENGTH 


TC8  OF  ACP 

ADDRESS  OF  CONTEXT  AREA  IN  ACP 
ADDRESS  OF  "OPERATE"  ROUTINE 
LENGTH  OF  WINDOW  BLOCK 


LINK  WORD 

FLAGS 

...  CONTEXT  IS  IN  USE 

...  CONTEXT  FORK  CAN  BE  RESUMED 

...  NICE  REQUEST  FROM  V2.0  NCP 

...  NICE  REQUEST  FROM  V3.0  NCP 

SAVED  SP 

STATUS  BLOCK  (FOR  FORK  COMPLETION) 

CCB  ADDRESS  FROM  PROCESS  REQUEST 

LOCAL  STORAGE  (NOT  OVERWRITTEN  BY  UPDCTX) 

USER  DATA  AREA 

LENGTH  OF  CONTEXT  AREA 


FUNCTION  CODE 

FLAGS 

...  LAST  ENTRY  IN  TABLE 


I  3 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
MACRO  CALLS  AND  DATA 


Page  5-3 


H  4 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
Symbol  table 


Page  11-1 


AALOCB 

AB.NPV= 

AB.TyP= 

AF.AST= 

AF.ESQ= 

AF.LCK^ 

AF.MDE= 

AF.NOT= 

AF.OOB= 

AF.QUE= 

AF.XCC= 

AK.BUF= 

AK.GBI= 

AK.GGF= 

AK.OCB= 

ALLCTX= 

ALNERR 

AS.CAA= 

AS.DIS= 

AS.OLT= 

AS.FPA= 

AS.PFA= 

AS.RCA= 

AS.REA= 

AS.RRA= 

A$$CHK= 

A$$CPS= 

ASSPRI- 

A$$TRP= 

A.ACC 

A.ACCE 

A. AST 

A.BrT 

A. CALL 

A.CBL 

A.  CONN 

A.DEQU 

A.DIS 

A. DISC 

A.DOSR 

A.FLEN 

A.IBUF 

A.ILEN 

A.IMAP 

A.INPU 

A.IOS 

A.KSR5 

A.LIN 

A.MAS 

A.NPR 

A.NUM 

A.OUTP 

A.PLEN= 

A.POWE 

A.PRM 

A.PROC 

A.RFCE 


00001  ORG 

000001 

000002 

000010 

000020 

0000^0 

000200 

000002 

000004 

000100 

000001 

000200 

000202 

000303 

000201 

»*♦**»  Gx 

002234R 

000006 

000002 

000001 

000001 

000004 

000002 

000005 

000003 

000000 

000000 

000000 

000000 

OOOOH 

000000 

000006 

000004 

000024 

000002 

000012 

000002 

000002 

000014 

177776 

000011 

00001-, 

000016 

000012 

000006 

000026 

177774 


000012  G 


000004 
0000 1C 
000010 
000010 
000016 
000004 
000012 
003020  G 
000016  G 


A.REL 
A. RES  = 
A.SBUF 
A.SLEN 
A.SMAP 
A.STA 
A.TRAN 
BITO  = 
BIT1   = 
BIT10  = 
BIT11  = 
BIT12  = 
BIT13  = 
BIT14  = 
BIT15  = 
BIT2  = 
BIT3  = 
BIT4  = 
BITS  = 
BIT6  = 
BIT7  = 
BITS  = 
BIT9  = 
BLXIO 
BUFFER 
BUFSIZ= 
CALLX 
CB.CCB= 
CB.DDM= 
CB.DLC= 
CB.RDB= 
CB.SDB= 
CB.SLI= 
CB.XLB= 
CCBAF 
CCBAL 
CCBCT 
CCBGT 
CCBNM 
CCBRT 
CC.LLC= 
CEACC 
CE.ABO= 
CE.DAO= 
CE.DIS^ 
CE.ERR= 
CE.ILN= 
CE.LTO= 
CE.MOP= 
CE.NTE= 
CE.RTE= 
.SRC  = 
.STP= 
.TME  = 
CE.TMO= 
CE.UNS= 
CF$BSY= 


CE. 
CE. 
CE. 


000000 

000032 

000022 

000024 

000020 

000015 

000022 

000001 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

00001 2RG 

000734RG 

000454 

000202RG 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000046RG 

000050RG 

000052RG 

000054RG 

000060RG 

000056RG 

000200 

000062RG 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001  G 


CF$FDN= 

000002  G 

CS.ERR= 

100000 

C.XACP 

000004 

CF$VR2= 

000004  G 

CS.FTL= 

001000 

C.XID 

000035 

CF$VR3= 

000010  G 

CS.HCR= 

000001 

C.XLEN 

000044 

CF.CHN= 

000001 

CS.HFE= 

002000 

C.XPLI 

000040 

CF.EOM= 

000004 

CS.LST= 

040000 

C.XPT 

000034 

CF.HDR= 

000020 

CS.MTL= 

004000 

C.XSVC 

000042 

CF.LB  = 

100000 

CS.RNG= 

000010 

C.XTC 

000037 

CF.LIN= 

000002 

CS.ROV= 

000004 

C.X25 

000036 

CF.S0H= 

000010 

CS.RSN= 

010000 

DAOERR 

SSi?^?" 

CF.SYN= 

000040 

CS.SHU= 

000001 

DDEACB 

000016RG 

CF.TRN= 

000100 

CS.SID= 

000002 

DDHAN 

000066RG 

CM$RSX= 

000200 

CS.STR= 

000004 

DEACTX= 

**♦♦**  GX 

CM.CDS= 

000004 

CS.SUC= 

000001 

DECPT 

000070RG 

CM.CEN= 

000003 

CS.TMO= 

020000 

DELFLG 

000216R 

CM.CIR= 

000002 

CS.XUR= 

000004 

DREXT 

000020RG 

CM.ELM= 

000005 

CTXHD 

000232RG 

D$$BUG= 

177514 

CM.EXT= 

000006 

C^XSIZ  = 

000466  G 

D$$ISK= 

000000 

CM.FMT= 

100000 

r.-HCTX 

00021 2RG 

D$$L11= 

000001 

CM.HRD= 

000002 

C/'IOP 

000210RG 

D$$YNC= 

000000 

CH.IND= 

000002 

L$CC8 

000012  G 

D$$YNM= 

OS9999 

CM.INE= 

000001 

CSDATA 

000032  6 

EXRQN 

000022RG 

CM.LIN= 

000000 

CSFLAG 

000002  G 

EXRQP 

000024RG 

CM.LKT= 

000007 

CSLINK 

000000  G 

E$$XPR= 

000000 

CM.L00= 

000001 

CSLOC 

000012  G 

FC.CCP= 

000020 

CM.MSG= 

000011 

CSSIZE 

000520  G 

FC.CTL= 

000006 

CM.RMT= 

000010 

C$SP 

000004  G 

FC.KCP= 

000016 

CM.XLO= 

000004 

CSSTAT 

000006  G 

FC.KIL= 

000004 

CONTEX 

000244RG 

C$$CKP= 

000000 

FC.MAN= 

000024 

COPT 

000014RG 

C$$ORE= 

000400 

FC.MLD= 

000026 

CP.DCF= 

000040 

C$$RSH= 

177564 

FC.PCT= 

000030 

CP.DSB= 

000010 

C.ADD 

000034 

FC.PWR= 

000022 

CP.EXT= 

000400 

C.BID 

000003 

FC.RCE= 

000002 

CP.HDL= 

000007 

C.BUF 

000014 

FC.RCP= 

000014 

CP.LG0= 

000004 

C.BUF1 

000014 

FC.TIM= 

000010 

CP.MSG= 

000002 

C.BUF2 

000024 

FC.XCP= 

000012 

CP.NI0= 

000100 

C.CNT 

000020 

FC.XME= 

000000 

CP.NUL= 

000001 

C.CNTl 

000020 

FDNCNT 

000224RG 

CP.PRV= 

000020 

C.CNT2 

000030 

FE.CEX= 

♦*»»*»  GX 

CP.PS  = 

177400 

C.FLG 

000022 

FILHD 

000072RG 

CP.PS1= 

000200 

C.FLG1 

000022 

FINREQ 

002736R 

CP.RST= 

000200 

C.FLG2 

000032 

FHASK 

000026RG 

CP.SGL= 

000040 

C.FNC 

000010 

FRKD0N= 

******  GX 

CP.XCF= 

000100 

C.LIN 

000006 

FS.AST= 

000000 

CP.2FR= 

000030 

C.LNK 

000000 

FS.CIB= 

002000 

CSBRT 

000064RG 

C.MOD 

000011 

FS.CRA= 

001000 

CS.A80= 

000100 

C.NSP 

000004 

FS.DIS= 

013000 

CS.BRO= 

000002 

C.PCPL 

000011  G 

FS.DVC= 

001000 

CS.8UF= 

000200 

C.PDPL 

000010  G 

FS.ENB= 

012000 

CS.CES= 

000002 

C . PNAM 

000002  G 

FS.EXI= 

001000 

CS.CHN= 

000010 

C.PRMT 

000012  G 

FS.GET= 

006000 

CS.CMP= 

000200 

C.PRO 

000042 

FS.HLT= 

000000 

CS.DCR= 

000400 

C.PSTS 

000006  G 

FS.INI= 

000000 

CS.DEF= 

000004 

C.PTCB 

000000  G 

FS.K1L= 

000000 

CS.DEV= 

000002 

C.RSV 

000002 

FS.LCL= 

100000 

CS.DIS= 

000040 

C.STA 

000007 

FS.LTM= 

001000 

CS.ENA= 

000001 

C.STS 

000012 

FS.MNT= 

004000 

CS.ENB= 

000020 

C.URM 

177776 

FS.MSN= 

014000 
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59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 

79  000000 

80  000000 

81  000000 
82 

83  000040 
8A  000040 

85  000044 

86  000050 

87  000054 

88  000056 

89  000060 

90  000062 

91  000070 

92  000072 

93  000074 

94  000076 

95  000102 

96  000104 

97  000106 

98  000112 

99  000116 

100  000120 

101  000124 
102 

103  000126 

104  000126 

105  000134 

106  000136 

107  000142 

108  000144 

109  000146 

110  000150 

111  000156 

112  000160 

113  000166 

114  000170 
1^5  000172 


017705  OOOOOOG 

062705  OOOOOOG 

010504 

011403 

001422 

032763  000001  000004 

001002 

010304 

000770 

005363  000004 

011314 

001002 

010465  000002 

012700  OOOOOOC 

005001 

000747 


.SSTTL  CONTEXT  AREA  POOL  AND  INITIALIZATION  CODE 

**-INI8UF-INITIALIZE  ACP  BUFFERS  AND  RELEASE  CODE  TO  CONTEXT  AREA  POOL 

THIS  ROUTINE  IS  CALLED  TO  INITIALIZE  THE  CONTEXT  POOL  POINTER  AND 
LENGTH  LOCATIONS.  IF  ANY  I/O  PACKETS  ARE  FOUND  IN  THE  RECEIVE  QUEUE 
WITH  THE  "BEING  PROCESSED"  FLAG  SET  (LOW  BIT  OF  I.TCB),  THEY  ARE 
COMPLETED  WITH  AND  ERROR  OF  "10. ABO".  ANY  BUFFERS  IN  THE  NETWORK 
MANAGEMENT  COMPLETION  IIST  ARE  RELEASED  (FOR  VOLATILE  ACP  ONLY). 

INPUTS: 

NONE 

OUTPUTS: 

IF  CC,  SUCCESS,  AND 

POOLPT  =  POINTER  TO  START  OF  CONTEXT  AREA  POOL 

POOLSZ  =  INITIAL  SIZE  OF  CONTEXT  AREA  POOL 
ELSE,  INTIALIZATION  FAILURE 


CTXPOO: 


INIBUF: 
5$: 


10$: 


11$: 


12$: 


032777 
001432 
016704 
010403 
011404 
001425 
026564 
001371 
026564 
001365 
011413 
001002 


OOOOOOG  OOOOOOG 
OOOOOOG 


20$: 


21$: 


OOOOOOG  000024 
000002G  000026 


.PSECT  $$$XXX,OVR 
.BLKW   16. 


SWSTK$  30$ 

MOV  aTKTCB,R5 

ADD  #T.fiCVL,R5 

MOV  R5,R4 

MOV  (R4),R3 

BEQ  20$ 

BIT  #1,I.TCB(R3) 

BNE  11$ 

MOV  R3,fi4 

BR  10$ 

DEC  I.TC6(R3) 

MOV  (R3),(R4) 

BNE  12$ 

MOV  R4,''(R5) 

MOV  #IE.AB0S377,R0 

CLR  R1 

CALL    aiOFIN 

BR  5$ 

.IF  DF  MN$VOL 

BIT  #FE.CEX,aFMASK 

BEQ  25$ 

MOV  NMCLH,R4 

MOV  R4,R3 

MOV  (R4),R4 

BEQ  25$ 

CMP  T.NAM(R5),C.BUF2(R4) 

BNE  21$ 

CMP  T.NAM+2(R5),C.8UF2+2(R4) 

BNE  21$ 

MOV  (R4),(R3) 

BNE  22$ 


START  OF  CONTEXT  POOL 
GET  TASK  BUFFER 

INITIALIZE  ACP  (ONCE  ONLY  CODE) 
ENTER  SYSTEM  STATE 

POINT  TO  OUR  TCB  ;  RJK02 

...  AND  TO  OUR  RECEIVE  QUEUE 

GET  NEXT  PACKET  ADDRESS 

IF  EQ,  NONE  LEFT 

IS  THE  PACKET  FLAGGED  AS  "SEEN 

IF  NE,  YES  -  FINISH  IT  IN  ERROR 

ELSE,  KEEP  LOOKING  IN  LIST  FROM  HERE 

CLEAR  "SEEN"  INDICATOR 
UNLINK  PACKET  FROM  LIST 
IF  NE,  NOT  LAST  IN  LIST 
ELSE,  CLOSE  UP  LIST 
RETURN  ERROR  OF  "IE. ABO" 


M^ 

Ml* 

M^ 
m 
m 
m 

Mf 

Mf 

m 

Mf 

Mr 
Mr 
Mr 
Mr 


FINISH   I/O 

AND  CONTINUE  SCAN 


RJK02 


VOLATILE  ACP  ONLY 

COMM  EXEC  LOADED  ?         ;  RJK02 
IF  EQ,  NO  -  SKIP  CHECKING  LIST 
POINT  TO  NEXT  COMPLETED  BUFFER;  RJK02 
SAVE  UNLINK  ADDRESS 
NEXT  CCB 

IF  EQ,  NO  BUFFERS  TO  RETURN 
COMPARE  TASK  NAMES 
IF  NE,  NOT  ONE  OF  OURS 
;  COMPARE  TASK  NAMES 
IF  NE,  NOT  ONE  OF  OURS 
ELSE,  UNLINK  BUFFER  FROM  LIST 
IF  NE,  NOT  LAST  IN  LIST 


LI 
LI 

LI 
LI 
LI 
Li 
Li 

Li 

L 

L 
L 
L 
L 
L 
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MANBYE 

-  PERFORM 

LOGOUT 

CLEANUP 

MACRO  V05.03b 

Wednesday 

H  8 

18-Sep-85  17:20 

Page  7 

-4 

Symbol 

table 

MXSOWN 

OOOOAO 

MSGROL 

000053 

M$SCO 

000016 

N$$MCP= 

000001 

MXSPAR 

000036 

M$GTY 

000106 

MSSCR 

000404 

N$$MLL= 

888991 

MXtPAS 

COCO : 0 

MSLEN 

000442 

MISMX 

592?^^ 

N$$MOV= 

000010 

MXSRAC 

000047 

M$LMX 

000234 

MSSND 

000261 

N$$NCT= 

000001 

MXSRID 

000047 

M$NET 

000240 

MSSNDL 

000260 

N$$PEM= 

89999] 

MXSRPS 

000047 

MSNETL 

000237 

M$SPS 

000353 

O.AST 

000006 

HXSSID 

000040 

HSOBNA 

000270 

MSSPSL 

000352 

O.EFN 

000010 

MXSSNK 

000377 

MSOBNL 

000267 

M$STA 

000074 

O.ESB 

000012 

MXSTYP 

000077 

MSOBNR 

000112 

M$SUS 

000364 

n.LGTH= 

000034 

MXSUID 

000020 

HSOBNU 

000110 

MISUSE 

000363 

O.LNK 

000000 

MSBDF 

000222 

MSOFLG 

000000 

MSTXT 

000166 

O.MCRL 

000002 

M$BMX 

000224 

M$OPT 

000012 

MSWDF 

000226 

O.PTCB 

000004 

MSBUF 

000014 

M$PAR 

000010 

MSUMX 

000227 

O.STAT 

000014 

MSCALL 

000120 

MSPCH 

000172 

M$$CRB= 

000124 

PC.ALF= 

000004 

MSCAT 

000230 

MSPCHC 

000170 

M$$CRX= 

000000 

PC.ALM= 

001000 

MSCLT 

000231 

MSPCHE 

000222 

M$$FCS= 

000000 

PC.HIH= 

000001 

MICMK 

000122 

M$^CT 

000076 

M$$MGE= 

000000 

PC.LOU= 

000002 

MSCVA 

000142 

MSPLNL 

000310 

M$$NET= 

000000 

PC.NRM= 

000400 

H$DST 

000033 

M$PMC 

000102 

M$$OVR= 

000000 

PC.XAF= 

000010 

MSDSTL 

000032 

M$PNL 

000311 

NM.CLN 

803400 

PC.X1T= 

000200 

MSDTE 

000022 

HSPRI 

000116 

NM.JNJ 

002400 

PF.ALL= 

1  'iim 

MSDTEL 

000020 

MSRMX 

000235 

NH.OPR 

003000 

PF.INS= 

000040 

MSDTEP 

000100 

M$RRT 

000233 

NM.VR2 

002401 

PF.LOG= 

000100 

MSENT 

000006 

MSRST 

000232 

NH.VR3 

002402 

PF.REQ= 

000200 

MSFLAG 

000002 

MSSAC 

000332 

N$$ACC= 

000001 

P$$P45= 

000000 

M$FLG2 

000004 

HSSACL 

000331 

N$$BUF= 

000001 

P$$WRD= 

000000 

MSGNM 

000104 

M$SAD 

000162 

N$$LDV= 

000001 

Q$$OPT= 

000010 

M$GRO 

000054 

.  ABS. 

177776 
000100 

000 
001 

(RW.I, 
(RW,I, 

3BL,ABS,0VR) 
.CL,REL,CON) 

$$$BYE 

000002 

002 

(RW,I, 

.CL,REL,CON) 

$$$BYF 

000002 

003 

(RW.I, 

_CL,REL,CON) 

Errors 

detected: 

0 

♦*»  Assembler  statistics 


Work  file  reads:  232 

Work  file  writes:  165 

Size  of  work  file:  34838  Words   (  137  Pages) 

Size  of  ^ore   pool:  19272  Words   (  74  Pages) 

Operating  system:  RSX-llM/PLUS 


R$$DER= 

R$$K11= 

R$$SND= 

R$$nM= 

SFSANM 

SFSDNM 

S$$WRG= 

S$$YSZ= 

TKTCB  = 

r$$KMG= 

T$$HIN= 

T.urs  = 

UA.  ,CC= 
UA.ALL= 
UA.CAL= 
UA.COM= 
UA.ECH= 
UA.PRO= 
UA.PUT= 
UA.SPE= 
UA.TRA= 
UA.TRN= 
UA.TYP= 
V$$CTR= 
X$$DBT= 
$$$SYS= 
$$$SYX= 


000000 
000001 
000000 
000000 
000001 
000002 
000000 
007600 
****** 

000000 
000000 

****** 

000001 
000400 
000100 
000200 
000004 
000002 
000040 
000020 
002000 
001000 
000010 
001000 
000000 
004374 
000000 


GX 


GX 
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MANQIO  -  ISSU 
Symbol  table 


ME.UCO 

MFSACT 

MFSADD 

MFSADJ 

MFtALL 

MFSBYE 

MFSCHA 

MFSDUH 

MFSEVT 

MFSFUP 

l«IF$KNO 

MFSLOA 

MFSLOO 

MFSREA 

MFISIG 

MFSSPF 

HFSSYS 

MFSTES 

MFSTRA 

HFSTRI 

MFSZER 

MLSALL 

MLSCLS 

MLSCON 

MLSEXT 

MLSFIL 

HLSFIR 

MLSINT 

MLSKNO 

MLSMON 

MLSSYS 

MLSTOP 

MNSUNL 

MOCHIN 

MOCHOP 

MOID 

MOREIN 

MCREOP 

MOZEIN 

MOZEOP 

MOSACC 

MOSADD 

MOSALA 

MOSALI 

MOSCHA 

MOSCIR 

TOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

m$Liu 

MOSLOG 


177770 

177776 

000000 

17777A 

177775 

000300 

000023 

000020 

000001 

000264 

177777 

000017 

177775 

00002A 

177773 

000302 

000026 

000022 

000301 

000021 

000025 

100000 

000000 

000001 

000001 

000002 

000000 

000000 

KOOOO 

000003 

000002 

000001 

000377 

000552RG 

000722RG 

000572R 

000560RG 

000722RG 

000566RG 

000722RG 

000200 

000002 

000004 

000000 

000040 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000C01 

000001 


HOSMIR 

000031 

MOSNAM 

000001 

HOSNIC 

000023 

MOSNOD 

000000 

MOSOFF 

000001 

MO$ON 

000000 

MOSOPT 

000001 

MOSPER 

000200 

M0$PR0 

000002 

MOSPRS 

000001 

MOSREA 

000200 

MOSSET 

000000 

MOSSTA 

000020 

MOSSUM 

000000 

MOSTSK 

000000 

MOSVOL 

000000 

MOSZER 

000000 

MPSACB 

000012 

MPSACC 

000514 

MPSACT 

004526 

MPSADD 

000766 

HPSADJ 

001440 

MPSADP 

006325 

HPIADS 

004406 

HPSALB 

000036 

HPSAMC 

001640 

MPSAMH 

001641 

MPSANB 

004420 

MPSASB 

000024 

MPSASC 

004452 

MPSAUS 

000512 

MPSBBT 

002165 

MPSBDF 

002164 

MPSBFQ 

002121 

MPSBLK 

001616 

MPSBLO 

001452 

MPSBMX 

002176 

MPSBNP 

006330 

MPIBRT 

001620 

MPSBSA 

002176 

MPSBSD 

002203 

MPSBSI 

002200 

MPSBSP 

006331 

MPSBUF 

000170 

MPSBUP 

006324 

MPSBUS 

001643 

MPSCAC 

001750 

MPSCAS 

001762 

MPSCAT 

002210 

MPSCCS 

004406 

MPSCHN 

002141 

MPSCIR 

000144 

MPSCLK 

002131 

MPSCLN 

002126 

MPSCLT 

002211 

MPSCMB 

002142 

MPSCMK 

000537 

turday 
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MPSCMX 

002153 

HPSITI 

000776 

MPSCND 

000310 

MPSLAA 

000231 

MPSCNU 

001753 

MPSLAN 

000234 

MPSCOB 

000311 

MPSLAR 

000202 

MP$C0N 

002126 

MPSLAS 

000012 

MPSCOS 

001604 

MPSLBS 

000203 

MPSCPF 

000230 

HPSLCO 

000226 

MPSCPL 

000232 

MPSLCT 

000156 

MPSCPT 

000226 

MPSLHL 

000232 

MPSCPU 

000161 

MPSLLE 

000227 

MPSCSZ 

001755 

HPSLLO 

004432 

MPSCUS 

002127 

MPSLMB 

002152 

MPSCVA 

000540 

HPSLMX 

002200 

MPSDAL 

002570 

MPSLNA 

000144 

MP$DCO= 

001464 

MPSLNO 

000233 

MPSDDT 

002177 

MPSLOA 

000170 

HPSDEL 

001131 

HPSLOG 

004514 

MPSDES 

000156 

MPSLOO 

000620 

HPSDEV 

002114 

MPSLTM 

001613 

MPSDFA 

001320 

MP$LTY 

00^51^ 

HP$DH0= 

001465 

HPSLWI 

000230 

MPSDIA 

000173 

MPSMAC 

004420 

MPSDLB 

002571 

MPSMAD 

001630 

MPSDLG 

004521 

HPSMAP 

006323 

HP$DLI= 

001466 

MPSHAR 

001635 

MPSDLT 

002200 

MPSMAV 

006321 

MPSDRO 

001441 

MPSMBN 

001636 

MPSDST 

000454 

MPSMBR 

001637 

MPSDTE 

002140 

MPSMBU 

001642 

HP$DTY= 

001452 

MPSMCB 

000156 

HPSDUA 

000207 

MPSHCO 

001632 

MPSDUC 

000210 

MPSMDE 

004421 

MPSDUM 

000202 

MPSMHO 

001633 

HPSDUP 

002127 

MPSMLB 

000202 

MPSDVC 

002114 

HPSMLK 

001306 

MPSDWE 

001321 

MPSMLN 

001631 

MPSELT 

000157 

MPSMLP 

006333 

MPSETY 

001605 

MPSMRB 

002171 

MPSEVE 

000311 

MPSMRO 

001605 

MPSFNC 

001752 

HPSMRP 

006322 

MPSGDT 

002222 

MPSMRT 

002153 

MPSGNM 

002223 

MPSMRV 

006320 

MPSGRO 

002115 

HPSMSB 

000170 

MPSGRP 

000541 

MPSMVE 

000145 

HPSGTY 

002224 

MPSMVI 

001634 

MPSHAD 

001757 

MPSHVR 

001751 

MPSHBT 

002142 

MPSMWN 

002154 

MPSHDD 

000162 

MPSMXB 

002172 

HPSHTM 

001612 

MPSMXC 

000466 

HPSHUA 

002210 

MPSMXR 

001630 

MPSIAT 

001322 

MPSMXW 

002143 

MPSIDE 

000144 

MP$NAA 

006335 

MPSIDP 

006327 

MP$NAC 

001130 

MPS I HO 

000215 

HPSNAP 

006326 

MPSINA 

002177 

MPSNCT 

000240 

MPSIND 

002204 

MPSNET 

002114 

MPSINI 

002201 

MPSNLl 

000765 

HPSNNA 

HPSNOD 

MPSNRA 

MPSNRB 

MPSNSA 

MP$NTI 

HPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSGHO 

MPSONA 

HPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

HPSOVE 

MPSOWN 

MPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MPSPLI 

MP$PLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 

MPSRET 

MPSRFA 

HPSRMX 

MPSRPA 

HPSRPR 

MPSRRT 

MPSRST 

HPSRSV 

HPSRSZ 

MPSRTI 

MPSRTM 

MPSRVE 

MPSRVT 

MPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 


000764 
000500 
006334 
000214 
001617 
002141 
001642 
001274 
001476 
000632 
000620 
000776 
000214 
000764 
002114 
001453 
000777 
001022 
000777 
001010 
004374 
000036 
000513 
002152 
000024 
000144 
002114 
000170 
000012 
000025 
002140 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
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131 
132 
135 
13A 
135 
136 
157 
138 
159 
HO 
HI 
K2 
U5 

H5 

K6 

K7  00015'!, 

H8  000134 

K9  000136 

150  000U2 

151  000150 

152  000152 

153  000156 

154  000160 

155  000162 

156  000166 

157  000170 

158  000174 

159  000176 

160  000200 

161  000202 

162  000204 

163  000210 

164  000214 


.S8TTL  TRAALl  -  TRANSLATE  AN  ALIAS  TO  AN  NAME 

'*»-TRAALI-TfiANSLATE  AN  ALIAS  TO  A  NAME 

THIS  ROUTINE  TRANSLATES  AN  ALIAS  TO  A  NAME 

INPUTS: 

Rl  =  POINTER  TO  ALIAS 

R3  =  ADDRESS  OF  BUffER 

CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 

OUTPUTS: 

RO  =  RETURN  STATUS 

R2  =  LENGTH  OF  DATA  TO  RETURN  (0  OR  6) 


005002 

016705  OOOOOOG 

026527  000006G  000006 

001405 

012700  177776 

000416 

010100 

105003 

012700  177770 

000407 

012025 

012025 

011015 

012700  000001 

012702  000006 


TRAALl: 


10$: 


20$: 


50$: 


CLR 

R2 

MOV 

i:URI0P,R5 

CMP 

.PRM+6(R5),#6 

BEQ 

0$ 

MOV 

#ME.FOR,R0 

BR 

50$ 

MOV 

RI.RO 

CALL 

MAPALI 

BCC 

20$ 

MOV 

#ME.UCO,R0 

BR 

50$ 

MOV 

CR0)+,(R5)+ 

MOV 

(R0)+,(R5)+ 

MOV 

(R0),(R5) 

MOV 

#MS.SUC,RO 

MOV 

*6,R2 

RETURN 


ASSUME  NO  NAME  TO  RETURN 

GET  ADDRESS  OF  I/O  PACKET 

WAS  A  SIX  BYTE  ALIAS  SUPPLIED 

IF  EQ,  YES  -  TRY  TO  MAP  IT 

ELSE,  MESSAGE  FORMAT  ERROR 

AND  RETURN 

POINT  TO  THE  ALIAS 

MAP  THE  ALIAS  TO  A  NAME 

IF  CC,  SUCCESS 

ELSE  UNKNOWN  COMPONENT" 

SET  THE  NAME  IN  THE  BUFFER 


SUCCESS  I 

SIX  BYTES  TO  RETURN 
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99 

100 
101 

ic: 

103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 

119  OOOOK 

120  OOOOU 

121  000022 
122 

123  000024 

124  000030 

125  000034 

126  000040 


.SBTTL  INJREQ  -  INITIALIZE  ACP  FOR  A  REQUEST 

♦•-INIREQ-INITIALIZE  ACP  FOR  A  REQUEST 

THIS  ROUTINE  IS  CALLED  TO  SET  THE  CORRECT  ENVIRONMENT  FOR  DISPATCHING 
TO  AN  INITIAIZE  ROUTINE.  IT  ASSIGNS  THE  MAILBOX  LUN  TO  NS:,  AND 
CHECKS  TO  SEE  IF  THE  COMM  EXEC  IS  LOADED.  IF  THE  COMM  EXEC  IS  NOT 
LOADED,  AN  ERROR  IS  RETURNED  (FOR  ALL  FUNCTIONS  EXERT  "SET  SYSTEM  ). 

INPUTS: 

R3  :=  BUFFER  POINTER 

R5  =  FUNCTION  TABLE  ENTRY 

OUTPUTS: 

IF  CC,  VALID  TO  DISPATCH  TO  INITIALIZE  FUNCTION 
IF  CS,  ERROR  RETURN  AND: 

RO  =  ERROR  CODE 

R2  =  LENGTH  OF  DATA  IN  BUFFER 


032777 
001425 


INIREQ:: 
020000  OOOOOOG        BIT 
BEQ 


012702  004640 
103406 


SUSTKS 
MOV 
CALL 
BCS 


127  000042 

067702 

OOOOOOG 

ADD 

128  000046 

011202 

MOV 

129  000050 

005762 

000012 

TST 

130  000054 

001005 

BNE 

131  000056 

10$: 

RETC 

132  000070 

133 

134  000072 

20$: 

RETURN 

103404 

30$: 

BCS 

135  000074 

000415 

BR 

136  000076 

021527 

40$: 

CMP 

137  000100 

223 

006 

.BYTE 

138  000102 

001412 

BEQ 

139  000104 

112700 

177765 

50$: 

M0V8 

140  000110 

110023 

MOVB 

141  000112 

112723 

000006 

MOVB 

142  000116 

105013 

CLR8 

143  000120 

012702 

000003 

MOV 

144  000124 

000261 

SEC 

145  000126 

000411 

BR 

146  000130 

60$: 

ALUN$S 

147  000150 

000241 

CLC 

148  000152 

70$: 

RETURN 

149 

150 

000001 

.END 

#FE.CEX,aFHASK 
40$ 

30$ 

#*RAUX,R2 

aPDVID 

10$ 

aPDVTA,R2 

(R2),rJ 

Z.PCB(R2) 

20$ 

RO 


50$ 
60$ 
(R5),(PC)+ 


IS  THE  COMM  EXEC  LOADED  ?     ;  RJK01 
IF  EQ,  NO  -  CHECK  FOR  SET  SYSTEM 


ENTER  SYSTEM  STATE 

GET  AUX  PPV  NAME 

LOOK  FOR  AUX 

BR  IF  NOT  FOUND 

INDEX  INTO  PDV  VECTOR  TABLE 

GET  PDV  ADDRESS 

IS  IT  LOADED  YET? 

BR  IF  YES 

ELSE  SET  USER  C-BIT 

LEAVE  SYSTEM  STATE 


RJK01 
RJK01 


mf$cha:cm$rsx,mo$set!me$sys 


BR  IF  AUX  NOT  LOADED 

ELSE  CONTINUE 

IS  THE  FUNCTION  A  "SET  SYSTEM' 


60$ 

#ME.CST,RO 

R0,(R3)t 

#ME$SYS,(R3)+ 

(R3) 

*3,R2 

70$ 
*$M8LUN,*"NS 


IF  EQ,  YES  -  PROCEED 

ELSE,  SET  COMPONENT  STATE  ERROR  CODE 

...  PLACE  IT  IN  THE  BUFFER 

SET  ERROR  DETAIL  TO  SYSTEM  ENTITY 

SET  LENGTH  OF  RETURN  TO  3  BYTES 

INDICATE  ERROR 

AND  RETURN 

TRY  TO  ASSIGN  LUN  TO  NS: 

IGNORE  ERROR  (MAYBE  NO  DECNET) 
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ALCH1N= 

ALCHOP= 

ALREIN= 

ALREOP^ 

ARREIN= 

ARREOP= 

A$$CHK= 

A$$CPS= 

At$PRl= 

A$$TRP= 

CICHIN= 

CICHOP= 

CIREIN= 

CIREOP= 

CIZE1N= 

CIZEOP= 

CM$RSX= 

Ct$CKP= 

C$tORE= 

CI$RSH= 

0$$BUG= 

[)$$ISK= 

D$$L11= 

D$IYNC= 

D$$VNM= 

E$$XPR= 

FTABLE 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTI<:  = 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LCSEXT 

LCSINT 

LD$LP  = 

LICHIN= 

LICHOP= 

LIREIN= 

LIREOP= 

LIZEIN= 

LIZEOP= 

LOCHIN^ 

LOCH0P= 

LOGOUT: 

LOREIN= 

LOREOP= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$nR= 

MBSDiS 


****** 
****** 
****** 
****** 
****** 
****** 
000000 
000000 
000000 
000000 

****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 


000200 

000000 

OOOAOO 

17756A 

■775U 

000000 

000001 

000000 

000000 

000000 

OOOOOORG 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000001 

000000 

****** 


****** 
****** 
****** 
****** 
****** 


****** 
****** 
****** 

000000 
000000 
000001 
000000 
000001 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


MBSENA 
MBSFUL 
MBSMIX 
MBSONE 
MBSRXG 
MBSTXO 
MBSZER 
MCSBAB 
MCSBID 
MCSBMC 
MCSBSC 
MCtCAC 
MC$CAP 
MCSCCL 
MCSCDC 
MCSCDP 
MCSCIF 
MCSCLD 
MCSCOU 
MCSCTL 
MCSCTR 
MCSCTS 
MCSDOV 
MCSLBR 
MCSLBS 
MCSLDI 
002  MCSLDO 
MCSLDR 
MCSLDS 
MCSLLB 
MCSLLP 
MCSLLR 
MCSLOO 
MCSLRB 
MCSLRP 
MCSLRR 
MCSLSI 
MCSLST 
MCSLUP 
MCSMAP 
MCSMBL 
MCSMBX 
MCSMBY 
MCSMPX 
MCSNAP 
MCSNBR 
MCSNBS 
MCSNCR 
MCSNCS 
MCSNML 
MCSNMR 
MCSNMS 
MCSNNO 
MCSNNU 
HCSNOP 
MCSNOR 
MCSNPF 


000000 

000002 

0O00C2 

000001 

000001 

000000 

000000 

006073 

001765 

001767 

001766 

001442 

001440 

001445 

002045 

001441 

001465 

001464 

100000 

001454 

001452 

001453 

002050 

001750 

001751 

001774 

001775 

001762 

001763 

002021 

002115 

002007 

000001 

002020 

002114 

002006 

002032 

002033 

006072 

010000 

001764 

004420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 


MCSNPR 

001630 

MDSDMP 

000022 

ME$EXE 

HCSNRE 

001200 

MDSDMR 

000050 

MESLIN 

MCSNRI 

001166 

MDSDMV 

000042 

MESLOG 

MC$NVR 

001642 

MD$DN 

CU0016 

MESMOD 

MC$P08 

000000 

MD$DP 

000000 

ME$N0D 

MCJPII 

000001 

MDSDPV 

000044 

ME$NON 

MCSRFL 

002046 

MDSDQ 

000006 

ME $08 J 

MCSSBU 

002051 

MD$DTE 

000024 

ME$0B2 

MCSSFL 

002044 

MD$DU 

000002 

MESPRO 

MCSSYC 

000012 

MDSDUP 

000012 

MESSYS 

MCSSYL 

000036 

MD$DV 

000026 

ME.BLO 

MCSSYR 

000050 

MD$DZ 

000030 

ME. CON 

MCSSYS 

000024 

MDSFUL 

000000 

ME.CST 

MCSSYZ 

000000 

HDSHAL 

000001 

ME.DIS 

MCSTBR 

001140 

MDSHEL 

000002 

ME. DON 

MCSTBS 

001141 

MDSKCP 

000013 

ME.FCO 

MCSTDR 

002053 

MDSKDP 

000034 

ME.FIO 

MCSTIM 

000000 

MDSKDZ 

000036 

ME. FOP 

HCSTYP 

007777 

MD$KL 

000040 

ME. FOR 

MCSUBU 

002052 

MDSKMX 

000054 

ME. FUN 

MCSUFD 

002047 

MDSKMY 

000052 

ME.GRO 

MCSUMR 

001132 

MD$LEN 

000050 

ME.HAR 

HCSUMS 

001133 

MDSPCL 

000011 

ME.IID 

MCSVAX 

000003 

MDSQNA 

000005 

ME.LCO 

MCSUID 

060000 

MDSUNA 

000001 

ME.LPR 

MCSUIH 

040000 

MDSWIT 

000002 

ME.MPR 

MCSWIL 

020000 

MD.ABO 

000017 

ME.MVE 

MC$W08 

020000 

MD.ACC 

000010 

ME. OPE 

HC$W16 

040000 

MD.AOB 

000016 

ME.PLO 

MC$W32 

060000 

MD.BOB 

000011 

ME.PMI 

MCSXBR 

001750 

MD.DIA 

000007 

ME.PNA 

MCSXBS 

001751 

MD.DOB 

000015 

ME.PRl 

MCSXCJ 

000322 

MD.DUM 

000002 

ME.PTY 

MCSXCR 

002260 

MD.FAI 

000014 

HE.PVA 

MCSXCS 

002261 

MD.FNA 

000001 

ME. RES 

MC$XDR 

001762 

MD.FOB 

000006 

ME.ROO 

MCSXDS 

001763 

MD.LOA 

000001 

ME.SIZ 

MCSXFR 

002272 

MD.LSH 

000020 

ME. SYS 

MCSXFS 

002273 

MD.NOB 

000012 

ME.UCO 

MCSXLJ 

000323 

MD.NON 

177777 

MFSACT 

MCSXLR 

002330 

MD.PER 

000000 

HFSADD 

MCSXMA 

000310 

MD.RES 

000004 

MFSADJ 

MCSXMC 

002305 

MD.ROB 

000005 

HFSALL 

MCSXMS 

002304 

MD.RSH 

000013 

MFSBYE 

MCSXNR 

002332 

MD.SDU 

000005 

MFICHA 

MCSXRC 

002316 

MD.SLO 

000003 

MFSDUM 

MCSXRR 

002331 

MD.SNA 

000000 

MFSEVT 

MCSXRS 

002342 

MD.TLO 

000004 

MFSFUP 

MC$020 

000002 

MD.UNA 

000002 

MFSKNO 

MDSCI 

000007 

MO.UNR 

000003 

MFSLOA 

MDSCNA 

000003 

MD.UOB 

000007 

MFSLOO 

HDSCOU 

000001 

MD.VOL 

000006 

MFSREA 

MD$DA 

000010 

MESALI 

000010 

HFSSIG 

MDSDL 

000004 

ME$AL2 

000003 

MFSSPF 

MDSDLV 

000020 

MESARE 

000005 

HFSSYS 

MDSDMC 

000014 

MESCIR 

000003 

MFSTES 

MDSDMF 

000046 

HE$EXA 

000000 

MFSTRA 

000200 
000001 
000002 
000004 
000000 
U7777 
000007 
000004 
000005 
000006 
\777i^L. 
\777^l 
■[777b5 
177755 
177600 
177762 
]77756 
177763 
1 77776 
y77777 
■[7771,1 
177750 
V77k7 
177766 
}77757 
y7777l 
177771 
177747 
177751 
177743 
177752 
177775 
177772 
177760 
177761 
177754 
}7777i, 
177746 
177770 
177776 
000000 
177774 
177775 
000300 
000023 
000020 
000001 
000264 
177777 
000017 
177775 
000024 
177773 
000302 
000026 
000022 
000301 
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6-97 


MACRO  NAME 

REFERENCES 

CALL 

6-77 

6-89 

CALLX 

#5-52 

6-95 

CEACCt 

#5-52 

6-89 

PHBDFS 

#5-52 

5-5A 

RDTDFS 

#5-52 

5-55 

RESMAP 

#5-52 

6-10 

RETURN 

6-101 

SAVMAP 

#5-52 

6-78 

SWSTKt 

6-^7 

TCBDFS 

#5-52 

5-56 

I  1A 
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MP$SYP 

MPSTFL 

MPSTHi 

MPSTH2 

MP$TH? 

MPSTLN 

MPITLO 

MPSTPA 

MPSTRl 

MPtTST 

MPSTYP 

MPtUCS 

MPtUSR 

MPSVEC 

MPtVER 

MPSWDF 

MPSWMX 

MP$XMT 

MPIXPF 

MPSXPL 

MPSXPT 

MPSXXX 

MPtSST 

MS$ACT 

MSSADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 


002424 
000156 
002206 
002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
177777 
004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 


MSSFAI 

MSSGLO 

MSSHOL 

HSSINA 

MS$LOA 

MSSLOO 

MStOFF 

MS$ON 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

MSSRSX 

MSSRT 

MSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MTSBIL 

MTSBYS 


000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
OOOOO'i 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
0000 1 1 


MT$CI 

000007 

MVSIV 

000001 
000020 

MTSCLE 

000200 

HXSACT 

MT$COD 

MXSCIR 

000020 

MT$C0N 

000001 
000004 

MX$CLN 

0QQ020 

MTSDMC 

MXSCNM 

MTSETH 

000006 
000040 

MX$CON 

000006 

MTSHEX 

MXSDAC 

000020 

MTSLPB 

000005 

HXSDTE 

000020 

MTSMAX 

000037 

MXSfIL 

95995i 

MTSMUL 

000100 

MXSLGC 

000777 

MTSNLE 

000017 

MXSLIN 

000020 

MTSNON 

000001 

MXSLON 

000006 

MT$NR4 

000005 

MXSNMS 

000454 

MTSNTY 

000060 

MXSNOD 

000006 

MTSOCT 

000060 

MXSOBJ 

000006 

MTSPHA 

000002 

MXSOWN 

000040 

MTSPOi 

000000 

MXSPAR 

000036 

MT$CIP2 

000010 

MXSPAS 

000010 

MTSROU 

000000 

MXSRAC 

000047 

MT$R04 

000004 

MXSRID 

000047 

MTSSEC 

000000 

MXSRPS 

000047 

MTSSGD 

000020 

MXSSID 

000040 

MTSSYS 

000002 

MXSSNK 

000377 

MTSTER 

000001 

MXSTYP 

000077 

MTSTRI 

000002 

MXSUID 

000020 

HTSTYP 

007777 

M$$CRB= 

000124 

MTSUSD 

000000 

M$$CRX= 

000000 

MT$X25 

000003 

M$$FCS= 

000000 

MUSING 

000001 

M$$MGE= 

000000 

MUSOUT 

000002 

M$$NET= 

000000 

MUSPER 

000000 

M$$OVR= 

000000 

MVSJIJ 

000000 

NM.CLN 

003400 

.  ABS.  000103 
000526 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABr,,OVR) 
(RW,I,1CL,REL,C0N) 


NM.INI 

NM.OPR 

NM.VR2 

NM.VR3 

N$$ACC= 

N$$BUF= 

N$$L[)V= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

Pt$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SAVNAM= 

SFSANM 

SFSDNM 

S$$WRG= 

S$$YSZ= 

TSTALI= 

T$$KMG= 

T$$MIN= 

V$$CIR= 

X$$DBT= 

$SAVRG= 

$$$SYS= 

$$$SYX= 


002400 

003000 

002401 

002402 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

******  GX 

000001 

000002 

000000 

007600 

*»*♦**  GX 

000000 

000000 

001000 

000000 

******  GX 

004374 

000000 


»**  Assembler  statistics 

Work   file  reads:  196 

Work   file  writes:  130 

Size  of  work  file:  25643  Words  {  101  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 

SYfALCHIN!v2i[135,134]ALCHIN/CR/-5P=SY:[1,1]RSXMCM.SML/ML,[130J10]NETLIB/ML,[130,10JRSXMCM/PA: 


,[135,10]ALCHIN 
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352 

355 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373  000534 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383  000536 

384  000540 

385  000544 

386  000546 

387  000550 

388  000552 

389  000554 

390  000556 

391  000560 

392  000562 

393  000566 

394  000572 

395  000574 

396  000604 

397  000610 

398  000616 

399  000622 

400  000626 

401  000630 

402  000632 


.SBTTL  DEAANB  -  DEALLOCATE  ALIAS  NAME  BLOCK 

♦*-DEAAN8-DEALL0CATE  ALIAS  NAME  BLOCK 

UNLINKS  THE  BLOCK  FROM  THE  ALIAS  LIST,  CALCULATES  THE  SIZE  OF  BLOCK, 
AND  DEALLOCATES  IT. 

INPUTS; 

SPRUNM  =  UNMAPPED  ADDRESS  Of  BLOCK  BEFORE  CURRENT  BLOCK 

SCRUNM  =  UNMAPPED  ADDRESS  OF  BLOCK  TO  BE  DEQUEUED 

R1  =  MAPPED  ADDRESS  OF  BLOCK  TO  DEALLOCATE 

OUTPUTS: 

$PRUNM  =  UNMAPPED  ADDRESS  OF  BLOCK  BEFORE  CURRENT  BLOCK 
SCRUNM  =  UNMAPPED  ADDRESS  OF  BLOCK  BEFORE  CURRENT  BLOCK 
R1  =  MAPPED  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 


REGISTERS: 

RO  ,R3, 


R4,  R5  ARE  PRESERVED 


010100 
062701 
112102 
060201 
112102 
060201 
112102 
060201 
160001 
016700 
016746 
010046 


016767 
016746 

012601 


000020 


OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG 


DEAANB:  SAVRG 

<R0> 

.IF  DF 

R$$PRO 

MOV 

aDECPT,RO 

INC 

D$ALNA(RO) 

BIS 

#DF.AFN,D$STAT(RO) 

.ENDC 

MOV 

R1,R0 

ADD 

*A.ACC,R1 

MOVB 

(R1)+,R2 

ADD 

R2.R1 
(Ri)+,R2 

MOVB 

ADD 

R2,R1 
(R1)t,R2 

MOVB 

ADD 

R2,R1 

SUB 

R0,R1 

MOV 

SCRUNM, RO 

MOV 

$PRUNM,-(SP) 

MOV 

RO,-(SP) 

CALLX 

$XLINK,AUX 

CALL 

DEAC8 

MOV 

SPRUNM, SCRUNM 

MOV 

SCRUNM, -(SP) 

CALL 

aCEACC 

MOV 

(SP)*,R1 

RESRG 

<R0> 

RETURN 

SAVE  RO 

PRO/DECNET 

POINT  TO  DECNET  HOME  BLOCK 
INCREMENT  #  OF  AVAILABLE  ALIASES 
SET  UPDATE  CONFIG.  FILE  BIT 


COPY  BLOCK  POINTER 

POINT  TO  ID  COUNT  FIELD 

GET  LENGTH  OF  FIELD 

POINT  TO  PASSWORD  FIELD 

GET  SIZE  Of  PASSWORD 

POINT  TO  ACCOUNT  FIELD 

GET  SIZE  Of  ACCOUNT  STRING 

POINT  TO  END  Of  BLOCK 

CALCULATE  BLOCK  LENGTH 

GET  THE  UNMAPPED  ADDRESS  FOR  DEACB 

SET  UP  fOR  CALL  TO  SXLINK 

PUT  PREVIOUS  AND  CURRENT  PTRS  ON  STK 

LINK  BLOCK  INTO  LIST 

DEALLOCATE  BLOCK 

NEW  CURRENT  ANB 

MAP  TO  PREVIOUS  BLOCK 

GET  MAPPED  ADDRESS 
RESTORE  RO 
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MLD 
ABOAST 


Microcode  Loader 
Abort  Cleanup  AST 


730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

:'43 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 
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.S8TTL   LOCFIL 


Function: 

Call   ForiTiat: 
Inputs: 

Outputs: 


Locate  Microcode  File 

***  LOCFIL  *** 

To  locate  a  microcode  task  image  file  on  tne  current  network 

UK  of  MLD's  load  deuice.  If  the  file  is  found,  it  is  opened 
for  read  with  block  I/O. 


CALL 


lOCFIL 


20$: 


RETURN 


R4  =  address  of  filename/type/version  ASCII  string 
R5  =  length  of  the  string 

C-bit  clear  =  file  found  and  opened 

C-bit  set   =  file  not  found  or  could  not  be  opened 

BL0CK(+2)  is  set  up  for  first  file  read 


Does  filename  length  exceed  maximum'' 

Branch  if  not 

Else,  force  length  to  maximum 

Move  address  of  dataset  descriptor 
Move  string  length  as  well 
Add  in  length  of  ".TSK"  extension 
Point  past  end  of  string 
Append  the  string  ".TSK  ' 
to  the  end  of  the  specified 
filename  string 


Open  the  input  file 

Branch  if  error  occurred 

Clear  high  virtual  block  number  (VBN) 

Set  low  VBN  for  first  data  block  read 

Exit 


;  Registers: 

RO  through  R5  de 

LOCFIL: 

CMP 

R5,*MXFNLN 

BLE 

10$ 

MOV 

#MXFNLN,R5 

10$: 

MOV 

R4,DSDSt10. 

MOV 

R5,DSDS+8. 

ADD 

#4,DSDS+8. 

ADD 

R5,R4 

MOVB 

#'.,(R4)+ 

M0V8 

#'T,{R4)t 

MOVB 

#"S,(R4)t 

MOVB 

#'X;,CR4) 

OPEN$R 

#FD8 FCSERR 

BCS 

20$ 

CLR 

BLOCK 

MOV 

#2,8L0CKt2 

J   1. 


MLD 
ABOAS 


Microcode  loader 
Abort  Cleanup  AST 
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SYMBOL  VALUE 

FRSUBU 
FRSUPT 
S.HLT 
FS.RLB 
FS.WLB 
lO.WLB 
ISAR5 
I$$AS 
K1SAR5 
LDBADR 
LDBGT 
LOB! AS 
LDbPTR 


LDBRT 

LDBUTS 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.HDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LOCPAR 

LOGEVT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 


REFERENCES 


000015 

#6-85 

OOOOU 

#6-85 

000000 

9-465 

002000 

9-564 

001000 

9-535 

**♦♦*«     GX 

11-617 

000570  RG 

#8-229 

****** 

6-84 

******     GX 

8-229 

000150  R 

#8-206 

000606  RG 

#8-259 

000U6  R 

#8-205 

OOOUA  R 

#8-204 

12-659 

000610  RG 

#8-240 

000001 

#7-114 

looono 

#6-85 

000400 

#6-85 

000007 

#6-85 

002000 

#6-85 

001000 

#6-85 

000100 

#6-85 

004000 

#6-85 

000020 

#6-85 

000200 

#6-85 

040000 

#6-85 

010000 

#6-85 

000040 

#6-85 

000010 

#6-85 

020000 

#6-85 

000000 

#6-85 

000000 

#6-85 

000005 

#6-85 

000004 

#6-85 

000003 

#6-85 

000005 

#6-85 

000001 

#6-85 

000000 

#6-85 

000004 

#6-85 

000001 

#6-85 

000002 

#6-85 

000002 

#6-85 

000017 

#6-85 

000560 

#6-85 

000006 

#6-85 

001074  R 

9-438 

000624  R 

10-574 

000015 

#6-85 

000012 

#6-85 

177776 

#6-85 

000002 

#6-85 

000004 

#6-85 

12-678 
9-447 


*9-334 

9-550 

*9-355 

*9-514 

9-572 
8-202 


10-508 


10-528 

10-527 
•9-352 

12-661 


10-532 
9-558 


9-571 


*9-575 


9-594 


10-550 


10-555 


#16-858 
#11-599 

9-405 

9-403 
9-404 


16-876 
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?1S 

000001 

?1A 

000002 

■?M 

300003 

^18 

)00004 

219 

)00006 

220 

)00010 

221 

)00204 

222 

22'! 

224 

22') 

22(S 

000002 

22^ 

000004 

22H 

000006 

229 

000010 

230 

000012 

211 

000014 

232 

000016 

233 

23A 

23') 

2-ift 

2V 

000001 

238 

000002 

219 

000004 

240 

000010 

241 

000020 

242 

000040 

24  3 

000100 

2'.4 

000200 

24-) 

000400 

24A 

001000 

247 

002000 

248 

004000 

249 

010000 

2sn 

020000 

2S1 

040000 

2S2 

100000 

2')1 

2S4 

2SS 

2S6 

2S/ 

2S8 

000204 

2S9 

000206 

2ftO 

000210 

261 

000212 

262 

000214 

000000 

263 

000216 

264 

000220 

000000 

26S 

000222 

266 

000224 

000000 

26^ 

000226 

268 

000230 

269 

000232 

000000 

2''0 

000234 

000000 

271 

000236 

RF$PRV==1 
RF$NCX==2 

.BLKB 


RSJNIT 
RSOPER 
RSSIZE 


.BLKW 
.BLKU 

.PSECT 


Saued  register  offsets  for  SWSTKS 


R$RO  == 

2 

R$R1  == 

4 

R$R2  == 

6 

R$R3  == 

10 

R$R4  == 

12 

R$R5  == 

14 

R$PC  =:  = 

16 

SniON 

DEFINITK 

BITO  == 

1 

BIT1  == 

2 

BIT2  == 

4 

BIT3  == 

10 

BIT4  == 

20 

BITS  == 

40 

BIT6  == 

100 

BIT7  == 

200 

B1T8  == 

400 

BJT9  == 

1000 

BJT10  = 

=  2000 

BIT11  = 

=  4000 

BIT12  = 

=  10000 

B1T13  = 

=  20000 

BIT14  = 

=  40000 

BIT15  = 

=  100000 

';  STORAGE 

iPRUNM 

.-.BLKW 

1 

SCRUNM 

:.8LKW 

1 

CURIOP 

:.BLKW 

1 

CURCTX 

:.8LKW 

1 

LSTCTX 

.-.WORD 

u 

DELFLG 

.BLKW 

1 

NUMUSR 

:.UORD 

0 

TSKLN2 

:.8LKW 

1 

FDNCNT 

r.UORD 

0 

ISTACK 

:.BLKW 

1 

STATUS 

:.BLKW 

1 

CTXHD: 

.WORD 

u 

POOLPT 

:.WORD 

0 

POOLSZ 

:.BLKW 

1 

...  PRIVILEGED  FUNCTION 

...  FUNCTION  DOES  NOT  REQUIRE  A  CONTEXT 

<UNUSED> 

ADDRESS  OF  INITIALIZE  ROUTINE 

ADDRESS  OF  OPERATE  ROUTINE 

LENGTH  OF  BLOCK 


SAVED  RO 
SAVED  R1 
SAVED  R2 
SAVED  R3 
SAVED  R4 
SAVED  R5 
SAVED  PC 


UNMAPPED  ADDRESS  OF  PREV  XPOOL  BLOCK 

MAPPED  ADDRESS  OF  PREV  XPOOL  BLOCK 

ADDRESS  OF  CURRENT  I/O  PACKET 

ADDRESS  OF  CURRENT  CONTEXT  AREA 

ADDRESS  OF  LAST  CONTEXT  AREA  USED 

CURRENT  CONTEXT  SHOULD  BE  DELETED 

NUMBER  OF  CURRENT  USERS 

COPY  OF  TASK'S  2ND  LUN  WORD 

COUNT  OF  FORKS  "DONE" 

INITIAL  TASK  SP 

WORD  FOR  RETURNING  FORK  STATUS 

CONTi^XT  BLOCK  LISTHEAD 

FIR'   FREE  BYTE  IN  CONTFXT  POOL 

NUMb  .<  OF  FREE  BYTES  AT  POOLPT 
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FS.REA= 

FS.RET= 

FS.REZ= 

FS.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 

FS.SFS= 

FS.SPU= 

FS.STM= 

FS.STP=: 

FS.STR= 

FS.TRM= 

FS.WLB= 

FS.XKL= 

FS.XOF= 

FS.XON= 

FS.ZER= 

FTABLE= 

F$$LVL= 

GETPKT 

GS.DEL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

G.CNT 

G.EFLG 

G.GRP 

G.LGTH= 

G.LNK 

G.STAT 

HEADR 

IDBUFF 

IE.ABO= 

IE.ALC= 

IE.ALN= 

IE.BAD= 

IE.BBE= 

IE.BCC= 

IE.BDI= 

IE.BDR= 

IE.80V= 

IE.BHD= 

IE.BLB= 

IE.BLK= 

IE.BNM= 

IE.BTF= 

IE.BTP= 

IE.BVR= 

IE.BVT= 

IE.C<S= 

IE.CLO= 

IE.CNR= 


001  go: 

000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 
006000 
00^000 
OAOOOO 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
****** 

000001 

001502RG 

000001 

000000 

000000 

000000 

000000 

000004 

000006 

000002 

000012 

000000 

000003 

000030RG 

00H10RG 

177761 

177654 

177736 

\77777 

177710 

177676 

1777K 

177716 

177711 

177700 

177672 

177754 

177712 

177664 

177725 

177701 

177755 

^777'^^ 

177732 

177640 


GX 


IF. 

rnN= 

177752 

IF 

DAA= 

•  77770 

IF. 

r)An= 

■  7776Z 

IF 

DFII= 

177750 

IF. 

DIS= 

177673 

IF. 

nNA= 

177771 

IF. 

t)NR= 

177775 

IF. 

RSQ= 

}77(>i*b 

IF 

DIIN= 

U7767 

IF. 

n(ip= 

177707 

IF 

FnF= 

177766 

IF. 

FnT= 

177702 

IF 

Fnv= 

177765 

IF. 

FXP= 

177665 

IF 

FFX= 

177717 

IF 

FHF  = 

177705 

IF 

FIG= 

177647 

F 

FIN= 

177657 

F 

FOP= 

177713 

F 

HFII= 

177744 

F 

irF= 

177721 

IF 

tFS= 

177656 

IF 

IFr  = 

}77776 

IF 

IFII= 

177747 

IF 

II  1  = 

177726 

F 

IQ1I= 

177645 

F 

ISQ= 

177703 

F 

1  rK  = 

177745 

F 

Mn= 

177635 

F 

Mni)= 

177753 

F 

NRF  = 

177731 

F 

NRK  = 

177727 

IF 

NDA= 

177662 

IF 

NDR= 

177670 

IF 

NFI  = 

177704 

IF 

NFW= 

177673 

IF 

NIK  = 

177661 

IF 

NIN= 

177733 

IF 

NNr  = 

177663 

IF 

.NNN= 

177674 

IF 

.NNT  = 

177642 

IF 

.Nni)= 

177751 

IF 

.NRJ  = 

177666 

IF 

.NSF  = 

177746 

F 

.NST  = 

177660 

F 

.NTR= 

177651 

IF 

,nFI  = 

1 77677 

IF 

.ONI  = 

177675 

IF 

.nNP= 

\7777l 

IF 

,nvR= 

■\777Sb 

IF 

.PFS= 

177655 

IF 

.PRI  = 

177760 

IF 

.RAr= 

177724 

F 

.RAT= 

177723 

F 

.RRG= 

177730 

IF 

.RrN= 

177722 

IE 

.REJ  = 

177650 

IE.RER= 
IE.RES= 
IE.RNM= 
IE.RSU= 
IE.SNC= 
IE.SPC= 
IE.SPI= 

iE.sac= 

IE.SRE= 

1E.STK= 

IE.SZE= 

IE.TML= 

IE.TM0= 

IE.UKN= 

IE.UU= 

IE.UfiJ= 

IE.VER= 

IE.WAC= 

IE.WAT= 

IE.UCK= 

IE.UER= 

IE.WLK= 

IE.2DV= 

IFCERR 

INIACP= 

IN1REQ= 

lOFIN 

IP.AB0= 

IP.FAK= 

IP.PND= 

IP.UMR= 

ISAR5 

ISAR6 

ISTACK 

IS.6V  = 

IS.CC  = 

IS.CHW= 

IS.CNV= 

IS.CR  = 

IS.DAO= 

IS.EOT= 

IS.ESC= 

IS.ESQ= 

IS. 008= 

IS.PES= 

IS.PND= 

IS.RDD= 

1S.RVI= 

IS.SUC= 

IS.TAB= 

1S.TMM= 

IS.TMQ= 

IS.TNC= 

IS.XPT= 

I$$RAR= 

I$$RDN: 

LAST 


177740 

177644 

177715 

177757 

177735 

177772 

177634 

177734 

177762 

177706 

177636 

177643 

177641 

177637 

177653 

177667 

177774 

177743 

177741 

177652 

177737 

177764 

177720 

002226R 

******  GX 

******  GX 

000032RG 

000040 

000020 

000100 

000200 

000002RG 

000004RG 

000226RG 

000005 

001401 

000004 

000003 

006401 

000002 

002001 

015401 

115401 

000003 

100001 

000000 

000002 

000002 

000001 

004401 

000004 

000002 

000002 

000005 

000000 

000000 

000022  G 


.ATTL= 

000044 

MAXLID= 

000020 

.EFN 

000003  G 

M8$DIS 

000001 

.FCN 

000012  G 

MBSENA 

000000 

.lOSB 

000014  G 

MB$FUL 

000002 

.LGTH= 

000044 

MBSMIX 

000002 

I.  INK 

000000  G 

MBSONE 

000001 

I.LN2 

000006  G 

MBSRXO 

009S21 

.PRI 

000002  G 

MBSTXO 

000000 

I.PRM 

000024  G 

H8$ZER 

000000 

I.TCB 

000004  6 

MCSBAB 

006073 

I.UCB 

000010  G 

HCIBID 

001765 

I.XDBF 

000040  G 

MCSBHC 

001767 

1.XD8L 

000044  G 

MCSBSC 

001766 

I.XIOP 

000002  G 

MCSCAC 

001442 

I.XLEN= 

000046 

MCSCAP 

001440 

I.XLNK 

000000  G 

MCSCCL 

001445 

I.XMOD 

000006  6 

MCSCDC 

002045 

I.XPBF 

000022  G 

MCSCDP 

001441 

.XPBL 

000026  G 

MCSCIF 

001465 

I.XP8V 

000030  G 

MCSCLD 

001464 

.XRBF 

000012  G 

MCSCOU 

100000 

.XRBL 

000016  G 

MCSCTL 

001454 

.XTCB 

000004  G 

MCSCTR 

001452 

I.XTMO 

000020  G 

MCSCTS 

001453 

I.XTTB 

000032  G 

MCSDOV 

002050 

I.XTTL 

000036  G 

MCSLBR 

001750 

KISAR5= 

******  GX 

MCSLBS 

001751 

K1SAR6= 

******  GX 

MCSLDI 

001774 

KSAR6 

000006RG 

MCSLDO 

001775 

K$$CNT= 

177546 

MCSLDR 

001762 

K$$CSR= 

177546 

MCSLDS 

001763 

K$$LDC= 

000000 

MCSLLB 

002021 

K$$TPS= 

000074 

MCSLLP 

002115 

LCSEXT 

000000 

MCSLLR 

002007 

LCSINT 

000001 

MCSLOO 

000001 

LDBAF 

000074RG 

MCSLRB 

002020 

LDBGT 

000076RG 

MCSLRP 

002114 

LD8RT 

0001 OORG 

MCSLRR 

002006 

LDSLP  = 

000000 

MCSLSI 

002032 

LGCON 

0001 02RG 

MCSLST 

002033 

LGFNB 

000104RG 

MCSLUP 

006072 

LGMON 

000106RG 

MCSMAP 

010000 

LGSTT 

000110RG 

MCSMBL 

001764 

LGUIC 

000112RG 

HCSMBX 

004420 

LLCRS 

Of'OIURG 

MCSMBY 

001752 

LLCTA 

0j0116RG 

HCSMPX 

004406 

LSTCTX 

00021 4RG 

HCSNAP 

001604 

L$$ASG= 

000000 

MCSNBR 

001130 

L$$DRV= 

000000 

MCSNBS 

001131 

L$$P11= 

000001 

MCSNCR 

001154 

L$$11R= 

000000 

MCSNCS 

001155 

MANACP 

001472RG 

HCSNML 

001274 

MANCLN 

002702R 

MCSNMR 

001142 

MANINI 

002300R 

MCSNMS 

001143 

HANOPR 

002626R 

MCSNNO 

001606 

MANTBL 

000240R 

MCSNNU 

001605 

MAXID  = 

000062 

MCSNOP 

001607 
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M/ 
C( 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  MANAST  -  NETWORK  MANAGEMENT  ACP  AST  PROCESSING 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  HAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

AST  PROCESSING  ROUTINES  FOR  THE  NETWORK  MANAGEMENT  ACP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-NOV-83 
DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

4.01  17-0CT-84  RJK 

Change  Symbols  for  Vectoring  Comm  Exec 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MANBUF   -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b   Saturday  29-Jun-85   10 
CONTEXT    /\REA  POOL    AND    INITIALIZATION  CODE 


:i 


116  000174 

117  000200 

118  000204 

119  000210 

120  0002U 

121  000220 

122  000222 
123 

124  000222 
125 

126  000224 

127  000232 

128  000244 

129  000246 

130  000250 

131  000254 

132  000260 

133  000264 

134  000270 

135  000302 

136  000304 
137 

138 
139 
140 
141 
142 
143 

144  000306 

145  000310 

146  000312 

147  000314 
148 

149 
150 
151    000000 


010377  OOOOOOG 

116400  000003 

042700  177760 

016000  000304' 

000742 


22$: 


25$: 


012767  000000'  OOOOOOG  30$: 

103417 
010601 

042701  017777 

066701  177552 

162701  000002' 

010167  OOOOOOG 

000241 

100$: 


MOV 

MOVB 

BK 

MOV 

CALL 

BR 

.ENDC 

RETURN 

MOV 

GTSK$S 

BCS 

MOV 

BK 

ADD 

SUB 

MOV 

SREA$S 

CLC 

RETURN 


R3,i)NMCL2 

C.81D(R4),R0 

#»C<17>,R0 

BUFTBL-2(R0), 

a(R0) 

20$ 

;Df  MN$VOL 


#CTXP00,P00LPT 

#CTXP00 

100$ 

SP.fil 

#1?777,R1 

CTXPOO+G.TSTS.Rl 

#CTXP00t2,Rl 

R1,P00LSZ 

#REXAST 
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RO 


M/ 
T, 


ELSE,  FIX  UP  LIST  TAIL  POINTER;  RJIC02 
GET  BUFFER  ID  FIELD 
ISOLATE  CODE 
RELEASE  THE  BUFFER 

'.'.'.   AND  LOOP 


;  BACK  TO  USER  STATE 

SET  ADDRESS  OF  FREE  POOL 

GET  TASK  PARAMETERS 

IF  CS,  RETURN  WITH  ERROR 

GET  STACK  POINTER 

CLEAR  ALL  BUT  APR  BIAS 

ADD  TASK  SIZE  TO  CALC  HI  VIRT  ADDRESS 

CALCULATE  CONTEXT  POOL  SIZE 

...  AND  SAVE  IT 

SPECIFY  REQUESTED  EXIT  AST 

...  IGNORE  ERROR 


SYSTEM  BUFFER  RETURN  DISPATCH  TABLE  ,   ^ 

THIS  TABLE  IS  USED  FOR  RELEASING  BUFFERS  LEFT  FROM  SYSTEM  LEVEL  COMPLETIONS 


.IF  DF  MN$VOL 


OOOOOOG 
OOOOOOG 
000313' 
OOOOOOG 


BUFT8L: 


.WORD 

CC8RT 

.WORD 

LD8RT 

.WORD 

.+1 

.WORD 

CS6RT 

USED  IN  VOLATILE  ACP  ONLY 

RETURN  A  CCB 

RETURN  A  LARGE  DATA  BUFFER 

RESERVED 

RETURN  A  COMBINED  CCB  AND  SMALL  DATA  BUFFER 


.ENDC 
.PSECT 


;DF  MN$VOL 


MANBUF  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10 
ALLCTX  -  ALLOCATE  A  CONTEXT  AREA 


■.i 
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*»F 

LE 

>MD«> 

MM 

MM 

MM 

MM 

MMMM 

1MMM 

MHMM 

1MMM 

MM 

MM 

MM 

MM 

m 

MM 

MM 

MM 

m 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

MM 

1  L 

1  L 

LL 

I  8 


AAAAAA 

NN 

NN   F 

FFFFFFFFF 

AAAAAA 

NN 

NN    F 

fFFFFFFFF 

AA      AA 

NN 

NN   F 

AA      AA 

NN 

NN   F 

AA      AA 

NNNN 

NN   F 

AA      AA 

NNNN 

NN   F 

AA      AA 

NN 

^N  NN   F 

FFFFFFF 

AA      AA 

NN 

^JN  NN   F 

FFFFFFF 

AAAAAAAAAA 

NN 

NNNN   F 

AAAAAAAAAA 

NN 

NNNN   F 

AA      AA 

NN 

NN   F 

AA      AA 

NN 

NN   F 

AA      AA 

NN 

NN   F 

AA      AA 

NN 

NN   F 

RRRRRRRR 
RRRRRRRR 
RR      RR 
RR      RR 
RR      RR 
RR      RR 
RRRRRRRR 
RRRRRRRR 
RR  RR 
RR  RR 
RR    RR 
RR    RR 
RR      RR 
RR      RR 


KK 

KK 

KK 

KK 

KK 

KK 

KKKKKK 

KKKKKK 

KK    KK 


KK 
KK 


KK 
KK 
KK 
KK 
KK 


KK 


KK 
KK 
KK 
KK 


SSSSSSSS 

TTTTT 

TTTTT 

SS5SSSSS 

TTTTT 

Mill 

SS 

T 

ss 

T 

SS 

T 

ss 

T 

SS5SSS 

T 

ssssss 

T 

ss 

T 

ss 

ss 

ss 

T 

LLLLLLLLLL 

SSSSSSSS 

T 

LLLLLLLLLL 

SSSSSSSS 

T 
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6 

Symbol 

table 

MPtSDV 

000160 

MPSXPL 

000244 

MTSASC 

02219? 

MXSFIL 

9.9PMi 

MPSSEH 

00AA01 

MPSXPT 

000240 

MTSBIL 

000001 

MXSLGC 

000777 

MP$SER 

0001A4 

MPSXXX 

177777 

MTSBYS 

000011 

MXSLIN 

000020 

MPtSET 

000000 

MP$5ST 

004406 

MTSCI 

00229^ 

MXSLON 

9999?^ 

MPSSGZ 

001644 

MSSACT 

000001 

MTSCLE 

000077 

MXSNMS 

000454 

MP$S  D 

000176 

MSSADU 

000010 

MTSCOD 

000200 

MXSNOD 

000006 

MP$S  N 

000310 

MSSALO 

000007 

HTSCON 

000001 

MX$OBJ 

000006 

MPtSLI 

000156 

MSSASE 

000006 

MTSDMC 

000004 

MXSOUN 

000040 

MP$SLO 

000171 

MSSATR 

000011 

MTJETH 

92229^ 

MXSPAR 

000036 

MPSSMX 

002202 

MSSAUT 

000000 

MTSHEX 

000040 

MX$PAS 

000010 

MP$SND 

000300 

MSSCLE 

000003 

HTSLPB 

000005 

MXSRAC 

000047 

MP$SNP 

006332 

MSSDED 

000004 

HTSMAX 

000037 

MXSRID 

000047 

MPSSNU 

0005A2 

MSSDIE 

000003 

MTSMUL 

000100 

MXSRPS 

000047 

MPSSOB 

000524 

MSSDUM 

000004 

MTSNLE 

000017 

MXSSID 

000040 

MPSSPA 

000157 

MSSFAI 

000013 

MTSNON 

000001 

MXSSNK 

000377 

MPSSPn 

000536 

MSSGLO 

000000 

MT$NR4 

022295 

MXSTYP 

000077 

MPSSPS 

000513 

MSSHOL 

000002 

MTSNTY 

000060 

MXSUID 

000020 

MPSSTA 

000000 

MSSINA 

000002 

MTSOCT 

000060 

M$$CRB= 

000124 

MPSSTI 

002UO 

MSSLOA 

000003 

MTSPHA 

00229? 

M$$CRX= 

000000 

MPSSTT 

002201 

MSSLGO 

000002 

MTSPOl 

000000 

M$$FCS= 

000000 

MPSSTY 

000175 

MSSOFF 

000001 

MT$QP2 

000010 

M$$MGE= 

000000 

MPSSUB 

000001 

MS$ON 

000000 

MTSROU 

000000 

M$$NET= 

000000 

MPSSUR 

000156 

MSSPRO 

000006 

MT$R04 

000004 

M$$OVR= 

000000 

MPSSUS 

000512 

MSSREA 

000004 

MTSSEC 

000000 

NMSTAT 

000010ft 

MPSSVR 

000163 

MSSREF 

000001 

MTSSGD 

0222^2 

NH.CLN 

003400 

MPSSWI 

002260 

HSSRES 

000003 

HTSSYS 

000002 

NM.INI 

002400 

MPSSVP 

002424 

MSSRST 

000001 

MTSTER 

000001 

NM.OPR 

003000 

MPSTFL 

000156 

MSSRSX 

000002 

MTSTRl 

000002 

NM.VR2 

002401 

MPSTHI 

002206 

MSSRT 

000005 

HTSTYP 

007777 

NM.VR3 

002402 

MP$TH2 

002205 

MSSSER 

000002 

MTSUSD 

000000 

NOCHIN 

000600RG 

MP$TH3 

002202 

MSSSHU 

000002 

MT$X25 

000003 

NOCHOP 

000722RG 

MPSTLN 

000202 

MSSSRV 

000007 

MUSINC 

000001 

NOID 

000620R 

MPSTLO 

000172 

MSSSTA 

000000 

MUSOUT 

000002 

NOREIN 

000606RG 

MPSTPA 

004375 

MSSSYN 

000012 

MUSPER 

000000 

NOREOP 

000722RG 

MPSTRl 

002164 

MSSTER 

000001 

MVSIII 

000000 

NOZEIN 

000614RG 

MPSTST 

000144 

MSSTOP 

000003 

MV$1V 

000001 

NOZEOP 

000722RG 

MPSTYP 

002130 

MSSTRI 

000005 

MXMES  = 

000454 

N$$ACC= 

000001 

MPSUCS 

004407 

MSSUNR 

000005 

MXSACT 

000020 

N$$8UF= 

22229] 

MPSUSR 

:01750 

MSSVMS 

000004 

MXSCIR 

000020 

N$$LDV= 

000001 

MPSVEC 

■^04410 

MS. DON 

177600 

MXSCLN 

000020 

N$$MCP= 

000001 

MPSVER 

U04406 

MS.MOR 

000002 

MXSCNM 

000006 

N$$MLL= 

000001 

MPSUDF 

002165 

MS. PAR 

000003 

MXSCON 

000006 

N$$MOV= 

000010 

MPSWMX 

002177 

MS. sue 

000001 

MXSDAC 

000020 

N$$NCT= 

000001 

MPSXMT 

002166 

MT$AR4 

000003 

MXSDTE 

000020 

N$$PEM= 

000001 

MPSXPF 

000242 

.  ABS. 

000000    000 
000726    001 

(RU,I,GBL,ABS,OVR) 
(RW,i,LCL,REL,C0N) 

$$$STR 

000272    002 

(R0,D,LCL,REL,C0N) 

Errors 

detected:  0 

••  Assembler  statistics 


Work  file  reads:  200 
Work  file  writes:  130 
Size  of  work  file:  25610  Words  (  101  Pages) 


OBCHIN 

OBCHOP 

OBID 

08REIN 

OBREOP 

OPRQIO 

PRCHIN 

PRCHOP 

PRID 

PRREIN 

PRREOP 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND^ 

R$$11M= 

SFSANM 

SFSDNM 

SYCHIN 

SYCHOP 

SYID 

SYREIN 

SYREOP 

SYZEIN 

SYZEOP 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

SCBTA  = 

$DSW  = 

$TMEFN= 

$TMLUN= 

$$$   = 

$$$ARG= 

$$$OST= 

$$$SYS= 

$$$SYX= 

$$$T1  = 

$$$T2  = 


000640RG 

000722RG 

000652R 

000646RG 

000722RG 

0001 56R 

000506RG 

000722RG 

000520R 

000514RG 

000722RG 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000001 

000002 

000666RG 

000722r(G 

000706R 

000674RG 

000722RG 

000702RG 

000722RG 

000000 

007600 

000000 

000000 

001000 

000000 

******  GX 

******  GX 

******  GX 

******  GX 

000235R 

000002 

000010 

004374 

000000 

000002 

000004R 


002 
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166 
167 
168 
169 
170 
171 
172 
173 
17; 
175 
176 
177 
178 
179 
180 
181 

182  000216 

183  000216 

184  000220 

185  00022A 

186  000232 

187  000234 

188  000240 
189 

190  000242 

191  000244 

192  000250 

193  000254 

194  000260 

195  000262 

1 96  000274 

197  000276 

198  000276 

199  000302 

200  000304 

201  000306 

202  000310 

203  000312 

204  000314 

205  000316 

206  000320 

207  000322 

208  000326 

209  000330 

210  000332 

211  000334 

212  000336 

213  000340 

214  000344 
215 

216  000346 

217  000350 

218  000354 

219  000356 

220  000360 

221  000362 

222  000364 


.S8TTL  TRAACC  -  TRANSLATE  AN  ALIAS  TO  AN  NAME  AND  ACCESS  CONTROL 

^♦-TRAACC-TRANSLATE  AN  ALIAS  TO  A  NAME  AND  ACCESS  CONTROL  FIELDS 

THIS  ROUTINE  TRANSLATES  AN  ALIAS  TO  A  NAME  AND  ACCESS  CONTROL  FIELDS 

INPUTS: 

R1  =  POINTER  TO  ALIAS 

R3  =  ADDRESS  OF  BUFFER 

CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 

OUTPUTS: 

RO  =  RETURN  STATUS 

R2  =  LENGTH  OF  DATA  TO  RETURN 


005002 

016705  OOOOOOG 

026527  000006G  000006 

001403 

012700  177776 

000462 

010100 


103006 

000421 

062703  000020 

010301 

112102 

060201 

112102 

060201 

112102 

060201 

160301 

010166  000006 

005701 

001403 

112320 

005301 

003375 


103003 

012700  177770 

000414 

010302 

012022 

012022 

012022 


TRAACC: 


10$: 


20$: 


30$: 
40$: 
50$: 
60$: 


CLR 

R2 

MOV 

CURIOP, R5 

CMP 

I.PRMt6(R5),*6 

BEQ 

10$ 

MOV 

#ME.FOR,RO 

BR 

90$ 

MOV 

RI.RO 

SWSTK$ 

50i 

SAVMAP 

CALL 

REPALI 

see 

20$ 

RETC 

RO 

BR 

40$ 

ADD 

#A.ACC,R3 

MOV 

R3,R1 
(r1)+,R2 

M0V8 

ADD 

R2,R1 
(R1)+,R2 

MOVB 

ADD 

R2,R1 

MOVB 

(Rl)+,R2 

ADD 

R2,R1 

SUB 

R3,R1 

MOV 

R1,4+BIAS(SP) 

TST 

R1 

BEQ 

40$ 

MOVB 

(R3)+,(R0)t 

DEC 

R1 

BGT 

30$ 

RESMAP 

RETURN 

BCC 

60$ 

MOV 

#ME.UC0,R0 

BR 

90$ 

MOV 

R3.R2 

MOV 

(r6)+,(R2)+ 

MOV 

(R0)+,(R2)+ 

MOV 

(R0)t,(R2)t 

ASSUME  NO  NAME  TO  RETURN 
GET  ADDRESS  OF  I/O  PACKET 
WAS  A  SIX  BYTE  ALIAS  SUPPLIED  ? 
IF  EQ,  YES  -  TRY  TO  MAP  IT 
ELSE,  MESSAGE  FORMAT  ERROR 
AND  RETURN 

POINT  TO  THE  ALIAS 
ENTER  SYSTEM  STATE 
SAVE  CURRENT  MAPPING 
TRY  TO  FIND  AND  REPLACE  ALIAS 
IF  CC,  GOT  THE  NAME 
ELSE,  RETURN  WITH  ERROR 


POINT  TO  ACCESS  CONTROL 

GET  LENGTH  OF  USER  FIELD 

POINT  TO  NEXT  FIELD 

GET  LENGTH  OF  PASSWORD  FIELD 

POINT  TO  NEXT  FIELD 

GET  LENGTH  OF  ACCOUNT  FIELD 

POINT  TO  END  OF  ACCESS  CONTROL  INFO 

CALCULATE  NUMBER  OF  BYTES  TO  COPY 

RETURN  R1  IN  USER  R1 

ANY  ACCESS  CONTROL  TO  COPY? 

BR  IF  NO 

STORE  ACCESS  CONTROL  INFO 

MORE  TO  COPY? 

BR  IF  YES 

RESTORE  PREVIOUS  MAPPING 

BACK  TO  USER  STATE  AND  RETURN 

IF  CC,  SUCCESS 

ELSE  'UNKNOWN  COMPONENT" 

SAVE  START  OF  OUTPUT  BUFFER 
SET  THE  NAME  IN  THE  BUFFER 
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00U5A 

0OU52 

00U55 

002050 

001750 

001751 

001 77A 

001775 

001762 

001763 

002021 

002115 

002007 

000001 

002020 

0021U 

002006 

002032 

002033 

006C72 

010000 

001764 

004A20 

001752 

00A106 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 

000024 

000000 

001140 

001141 

002C53 

000000 

007777 
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A$$CHK= 

000000 

MCSCTL 

AS$CPS= 

000000 

MCICTR 

A$$PRI  = 

000000 

MCSCTS 

AS$TRP= 

000000 

MCSDOV 

CM$RSX= 

000200 

MCSLBR 

C$tC<P= 

000000 

MC$LBS 

C$$ORE= 

000400 

MCSLDl 

C$$RSH= 

177564 

MC$LD0 

D$$BUG= 

177514 

MCSLDR 

D$$1SK= 

000000 

MCSLDS 

0$$L11= 

000001 

MC$LLB 

D$$YNC= 

000000 

MCSLLP 

D$$YNM= 

000000 

MCSLLR 

E$tXPR= 

000000 

MCSLOO 

FE.CEX= 

020000 

MCSLRB 

FMASK  = 

♦»»»»*  GX 

MCSLRP 

F$$LVL= 

000001 

MCSLRR 

G$$TPP= 

000000 

MCSLSI 

G$$T5S= 

000000 

MCSLST 

G$$TTK= 

000000 

MCSLUP 

G$$WRD= 

000000 

MCSMAP 

INIACP 

OOOOOORG 

MCSMBL 

1NIBUF= 

»«**»«  GX 

MCSMBX 

INIREQ 

00001 4RG 

MCSHBY 

I$SRAR= 

000000 

HCSMPX 

I$$RDN= 

000000 

MCSNAP 

K$$CNT= 

177546 

MCSNBR 

KS$CSR= 

177546 

MCSNBS 

<$$LDC= 

000000 

MCSNCR 

K$$TPS= 

000074 

MCSNCS 

LCSEXT 

000000 

MCSNML 

LCSINT 

000001 

MCtNMR 

LDSLP  = 

000000 

MCSNMS 

L$$ASG= 

000000 

MCSNNO 

L$$DRV= 

000000 

MCSNNU 

L$$P11= 

000001 

MCSNOP 

L$$11R= 

000000 

HCSNOR 

MBSDIS 

000001 

MCSNPF 

MBSENA 

000000 

MCSNPR 

MBSFUL 

000002 

HCSNRE 

MBSMIX 

000002 

MCSNRT 

MBSONE 

000001 

MCSNVR 

MBSRXO 

000001 

MC$P08 

MBSTXO 

000000 

MCSPII 

MBSZER 

000000 

MCSRFL 

MCSBAB 

006073 

MCSSBU 

MCSBID 

001765 

MCSSFL 

MCJBMC 

00V67 

MCSSYC 

MCSBSC 

001766 

MCSSVL 

MCSCAC 

001442 

MCSSYR 

MC$CAP 

001440 

MCSSYS 

MCSCCL 

001445 

MCSSYZ 

MCSCDC 

002045 

MCSTBR 

MCSCDP 

001441 

MCSTBS 

MCSCIF 

001465 

MCSTDR 

MC$CLD 

001464 

MCSTIM 

MCSCOJ 

100000 

MC$TYP 

MCSUBU 

002052 

MDSKMX 

000054 

ME. FUN 

^77777 

MCSUFD 

002047 

MDSKMY 

000052 

HE.GRO 

■\777'<S 

MCSUMR 

001132 

MDSLEN 

000050 

HE . HAR 

V7750 

MCSUMS 

001133 

MDSPCL 

000011 

HE.IID 

\777t7 

MCSVAX 

000003 

MD$QNA 

000005 

ME.LCO 

}777bt 

MCSWID 

060000 

MDSUNA 

000001 

HE.LPR 

\777'i7 

ncsuiH 

040000 

MDSWIT 

000002 

ME.MPR 

\7777l 

MCSWIL 

020000 

MD.ABO 

000017 

ME.MVE 

\7777y 

MCSU08 

020000 

MD.ACC 

000010 

ME. OPE 

\777is7 

MC$W16 

040000 

MD.AOB 

000016 

HE. PLC 

177751 

MC$W32 

060000 

MD.80B 

000011 

HE.PMI 

177743 

MCSXBR 

001750 

MD.DIA 

000007 

HE.PNA 

y777^2 

MC$X8S 

001751 

HD.DOB 

000015 

ME.PRI 

y777Ti 

MCSXCJ 

000322 

MD.DUM 

000002 

ME.PTY 

\77772 

MCSXCR 

002260 

MD.FAI 

000014 

ME.PVA 

\UM 

MCSXCS 

002261 

HD.FNA 

000001 

HE. RES 

177761 

MCSXDR 

001762 

MD.F08 

000006 

HE.ROO 

^77751, 

MCSXDS 

001763 

MD.LOA 

000001 

ME.SIZ 

\7777^ 

HCSXFR 

002272 

MD.LSH 

000020 

ME. SYS 

177746 

MCSXFS 

002273 

MD.NOB 

000012 

ME.UCO 

177770 

MCSXLJ 

000323 

MD.NON 

r/7777 

MFSACT 

177776 

MCSXLR 

002330 

MD.PER 

000000 

HFSADD 

oogggo 

MCSXMA 

000310 

MD.RES 

000004 

HFSADJ 

177774 

MC$XMC 

002305 

MD.ROB 

000005 

MFSALL 

V777S 

MCSXMS 

002304 

MD.RSH 

000013 

MFSBYE 

000300 

MCSXNR 

002332 

MD.SDU 

000005 

HFSCHA 

000023 

MCSXRC 

002316 

MD.SLO 

000003 

MFSDUM 

000020 

MCSXRR 

002331 

MD.SNA 

000000 

HFSEVT 

000001 

MCSXRS 

002342 

HD.TLO 

000004 

MFSFUP 

000264 

MC$020 

000002 

MD . UNA 

000002 

MFSKNO 

}77777 

MDSCl 

000007 

MD.UNR 

000003 

HFSLOA 

000017 

HDSCNA 

000003 

MD . UOB 

000007 

MFSLOO 

177775 

MDSCGU 

000001 

MD.VOL 

000006 

MFSREA 

000024 

MD$DA 

000010 

MESALI 

000010 

MFSSIG 

177773 

MD$DL 

000004 

ME$AL2 

000003 

MFSSPF 

000302 

MDSDLV 

000020 

MESARE 

000005 

MFSSYS 

000026 

MDSDMC 

000014 

MESCIR 

000003 

MFSTES 

000022 

MDSDMF 

000046 

MESEXA 

000000 

HFSTRA 

000301 

MDSDMP 

000022 

MESEXE 

000200 

HFSTRI 

000021 

MDSDMR 

000050 

MESLIN 

000001 

HFSZER 

000025 

MDSDMV 

000042 

MESLOG 

000002 

MLSALL 

100000 

MD$DN 

000016 

MESMOD 

000004 

MLSCLS 

000000 

MD$DP 

000000 

MESNOD 

000000 

MLSCON 

000001 

MDSDPV 

000044 

MESNON 

177777 

MLSEXT 

000001 

MDSDQ 

000006 

ME  SOB J 

000007 

MLSFIL 

000002 

MDSDTE 

000024 

HE $082 

000004 

MLSFIR 

000000 

HD$DU 

000002 

MESPRO 

000005 

MLSINT 

000000 

MDSDUP 

000012 

MESSYS 

000006 

MLSKNO 

140000 

MD$DV 

000026 

ME.BLO 

177744 

MLSMON 

000003 

MDSDZ 

000030 

ME. CON 

177753 

MLSSYS 

000002 

MDSFUL 

000000 

ME.CST 

177765 

MLSTOP 

000001 

MDIHAL 

000001 

HE.DIS 

177755 

MNSUNL 

'Mill 

MDSHEL 

000002 

ME. DON 

177600 

MOSACC 

000200 

MDSKCP 

000013 

ME.FCO 

177762 

MOSADD 

000002 

MDSKDP 

000034 

ME.FIO 

177756 

MOSALA 

000004 

MDSKDZ 

000036 

ME. FOP 

177763 

MOSALI 

000000 

MDSKL 

000040 

HE.  FOR 

177776 

MOSCHA 

000040 
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MFtTRI 

000021 

MPtADJ 

00U40 

MFSZER 

000025 

MPSADP 

S5^??5 

MLSALL 

100000 

MPSADS 

004406 

MLSCLS 

000000 

MPSALB 

000036 

MLtCON 

000001 

MPSAMC 

001640 

MLSEXT 

000001 

MPSAMH 

001641 

ML$F1L 

000002 

MP$AN8 

004420 

MLSFIR 

000000 

MPIASB 

000024 

MLtINT 

000000 

MPSASC 

004432 

ML$KNO 

uoooo 

MPSAUS 

000512 

MLSMON 

000003 

MP$BBT 

002165 

MLSSYS 

000002 

HPtBDF 

002164 

MLSTOP 

000001 

MPSBFQ 

002121 

MNSUNL 

000377 

MPSBLK 

001616 

MOCHIN^ 

*»*♦*♦  GX 

MPSBLO 

001452 

MOCHOP= 

»«»*♦«  GX 

MPSBMX 

002176 

MOREIN= 

»«»»♦*  GX 

MPSBNP 

006330 

MOREOP= 

******  GX 

MPSBRT 

001620 

MOZEIN= 

»»«**♦  GX 

MPSBSA 

002175 

MOSACC 

000200 

MPSBSD 

002203 

MOtADD 

000002 

MPSBSI 

002200 

MOSALA 

000004 

MPSBSP 

006331 

MO$AL! 

000000 

MPSBUF 

000170 

MOSCHA 

000040 

MPSBUP 

006324 

MOSCIR 

000003 

MPSBUS 

001643 

MOSCLE 

000100 

MPSCAC 

001750 

MOSCOU 

000060 

MPSCAS 

001762 

MOSDAC 

000000 

MPSCAT 

002210 

MOSDEF 

000000 

MPSCCS 

004406 

MOSDPR 

000000 

MPSCHN 

002141 

MOSENT 

000017 

MPSCIR 

000144 

MOSEVE 

000100 

MPSCLK 

002131 

MOSINF 

000160 

HPSCLN 

002126 

MOSINS 

000002 

MPSCLT 

002211 

MOSLIN 

000001 

MPSCMB 

002142 

MOSLOG 

000001 

MP$CMK 

000537 

MOSMIR 

000031 

MPSCMX 

002153 

MOSNAM 

000001 

MPSCND 

000310 

MOSNIC 

000023 

MPSCNU 

001753 

MOSNOO 

000000 

MPSCOB 

000311 

MOSOFF 

000001 

MPSCON 

002126 

MOSON 

000000 

MPSCOS 

001604 

MOSOPT 

000001 

HPSCPF 

000230 

MOSPER 

000200 

MPSfPL 

000232 

MOSPRO 

000002 

MPSCPT 

000226 

MOSPRS 

000001 

MPSCPU 

000161 

MOSREA 

000200 

MP$CSZ 

001755 

MOSSET 

000000 

MPSCUS 

Wl^l 

MOSSTA 

000020 

MPSCVA 

000540 

MOSSUM 

000000 

MPSDAL 

002570 

MOSTSK 

000000 

MP$DCO= 

001464 

MOSVOL 

000000 

MPSDDT 

002177 

MOSZER 

000000 

MPSDEL 

001131 

MPSACB 

000012 

MPSDES 

000156 

MPSACr 

0005U 

MPSDEV 

002114 

MPSACT 

004526 

MPSDFA 

001320 

MPSADD 

000766 

MP$DHO= 

00146' 

turday 

13 
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MP$DIA 

000173 

MPSMAC 

004420 

MPSDLB 

002571 

MPSMAD 

001630 

HPSDLG 

004521 

MPSHAP 

006323 

MP$DLI= 

001466 

MPSMAR 

001635 

MPSDLT 

002200 

MPSMAV 

006321 

MPJDRO 

001441 

MPSMBN 

001636 

MPSDST 

000454 

HPSMBR 

001637 

MPIDTE 

002140 

MPSMBU 

001642 

HP$DTY= 

001452 

MPSMCB 

000156 

MPSDUA 

000207 

MPSMCO 

001632 

MPSDUC 

000210 

MPSMDE 

004421 

MPSDUM 

000202 

MPSMHO 

001633 

MPSDUP 

002127 

MPSMLB 

000202 

MPSDVC 

002114 

MPSHLK 

001306 

HPSDWE 

001321 

MPSMLN 

001631 

HPSELT 

000157 

MPSMLP 

006333 

MPSETY 

001605 

MPSMRB 

002171 

MP$EVE 

000311 

MPSMRO 

001605 

MPSFNC 

001752 

MPSMRP 

006322 

MPSGDT 

002222 

MPSMRT 

002153 

MPSGNM 

002223 

MPSMRV 

006320 

MPSGRO 

002115 

MPSMSB 

000170 

MPSGRP 

000541 

MPSMVE 

000145 

HPSGTY 

002224 

MPSMVl 

001634 

MPSHAD 

001757 

HPSMVR 

001751 

MPSHBT 

002142 

MPSMWN 

002154 

MPSHDD 

000162 

MPSMXB 

002172 

MPSHTM 

001612 

MPSMXC 

000466 

MPSHWA 

002210 

MPSMXR 

001630 

MPSIAT 

001322 

MPSMXW 

002143 

MPSIDE 

000144 

MPSNAA 

006335 

MPSIDP 

006327 

MPSNAC 

001130 

MPSiHO 

000215 

MPSNAP 

006326 

MPSJNA 

002177 

HPSNCT 

000240 

MPSIND 

002204 

MPSNET 

002114 

MPSINJ 

002201 

MPSNLl 

000765 

HPSITl 

000776 

MPSNNA 

000764 

MP$LAA 

000231 

MPSNOD 

000500 

MPSLAN 

000234 

MPSNRA 

006334 

MPSLAR 

000202 

MPSNRB 

000214 

MPSLAS 

000012 

MPSNSA 

001617 

MPSLBS 

000203 

MPSNTI 

002141 

MPSLCO 

000226 

MPSNUM 

001642 

MPSLCT 

000156 

MPSNVE 

001274 

MPSLHL 

000232 

MP$NXN= 

001476 

MPSLLE 

000227 

MPSOAC 

000632 

MPSLLO 

004432 

MPSOAN 

000620 

MPSLMB 

002152 

MPSOCO 

000776 

HPSLMX 

002200 

HPSOHO 

000214 

MPSLNA 

000144 

MPSONA 

000764 

MPSLNO 

000233 

MPSONR 

002114 

MPSLOA 

000170 

MPSOQL 

001453 

HPSLOG 

004514 

MPSOTI 

000777 

MPSLOO 

000620 

WPSOTY 

001022 

MPSLTM 

001613 

MPSOUS 

000777 

mp$l:y 

004533 

MP$OVE 

001010 

MPILUI 

000230 

HPSOWN 

004374 

MPSPAR 
MPSPAS 
MPSPCH 
MPSPCO 
MPSPCT 
MPSPDT 
MPSPHA 
MPSPHY 
MPSPLI 
MPSPLN 
MPSPLO 
HPSPMC 
MPSPNT 
MPIPRI 
HPSPRO 
MPSPSS 
MP$PST 
MPSRET 
MPSRFA 
HPSRMX 
MPSRPA 
MPSRPR 
MPSRRT 
MPSRST 
MPSRSV 
MPSRSZ 
MPSRTI 
MPSRTM 
MPSRVE 
HPSRVT 
HPSSAC 
MPSSAD 
MPSSCA 
HPSSCO 
MPSSCT 
MPSSDU 
MPSSDV 
HPSSEH 
MPSSER 
MPSSET 
MPSSGZ 
MPSSID 
MPSSIN 
MPSSLI 
MPSSLO 
MPSSMX 
MPSSND 
MPSSNP 
MPSSNU 
HPSSOB 
MPSSPA 
HPSSPR 
HPSSPS 
MPSSTA 
MPSSTI 
MPSSTT 
MPSSTY 


000036 
000513 
002152 
000024 
000144 
002114 
000170 
000012 
000025 
002140 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 
000144 
000000 
001644 
000176 
000310 
000156 
000171 
002202 
000500 
006332 
000542 
000524 
000157 
000536 
000513 
000000 
002140 
002201 
000175 
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I  u 


NNN 

NNN 

CCCCCCCCCCCC 

pppppppppppp 

HMM 

MMM 

AAAAAAAAA 

pppppppppppp 

NNN 

NNN 

CCCCCCCCCCCC 

pppppppppppp 

MMM 

MMM 

AAAAAAAAA 

pppppppppppp 

NNN 

NNN 

CCCCCCCCCCCC 

pppppppppppp 

MMM 

MMM 

AAAAAAAAA 

PPPPPPPPPPPP 

NNN 

NNN 

ppp 

=pp 

MMMMMI* 

MMMMMM 

AAA 

AAA 

PPP        PPP 

NNN 

NNN 

ppp 

app 

MMMMMI" 

MMMMMM 

AAA 

AAA 

PPP        PPP 

NNN 

NNN 

ppp 

app 

MMMMMf 

MMMMMM 

AAA 

AAA 

PPP        PPP 

NNNNNN 

NNN 

ppp 

opp 

MMM 

^MM   MMM 

AAA 

AAA 

PPP        PPP 

NNNNNN 

NNN 

ppp 

opp 

MMM 

*1MM   MMM 

AAA 

AAA 

PPP        PPP 

NNNNNN 

NNN 

ppp 

opp 

MMM 

'IMM   MMM 

AAA 

AAA 

ppp        ppp 

NNN 

NNN   NNN 

pppppppppppp 

MMM 

MMM 

AAA 

AAA 

PPPPPPPPPPPP 

NNN 

NNN   NNN 

pppppppppppp 

MMM 

MMM 

AAA 

AAA 

PPPPPPPPPPPP 

NNN 

NNN   NNN 

pppppppppppp 

MMM 

MMM 

AAA 

AAA 

PPPPPPPPPPPP 

NNN 

NNNNNN 

ppp 

MMM 

MMM 

AAAAAAAAAAAAAAA 

PPP 

NNN 

NNNNNN 

ppp 

MMM 

MMM 

AAAAAAAAAAAAAAA 

PPP 

NNN 

NNNNNN 

ppp 

MMM 

MMM 

AAAAAAAAAAAAAAA 

PPP 

NNN 

NNN 

ppp 

MMM 

MMM 

AAA 

AAA 

PPP 

NNN 

NNN 

ppp 

MMM 

MMM 

AAA 

AAA 

PPP 

NNN 

NNN 

ppp 

MMM 

MMM 

AAA 

AAA 

PPP 

NNN 

NNN 

CCCCCCCCCCCC 

ppp 

MMM 

MMM 

AAA 

AAA 

PPP 

NNN 

NNN 

CCCCCCCCCCCC 

ppp 

MMM 

MMM 

AAA 

AAA 

PPP 

NNN 

NNN 

CCCCCCCCCCCC 

ppp 

MMM 

MMM 

AAA 

AAA 

PPP 

♦♦FILE»»1D*«ALCH1N 
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CREf        04.00 


SYMBOL 

VALUE 

REFERENCES 

AF.INl 

=  000001 

#5-61 

6-156 

AF.OVR 

=  000002 

#5-61 

ALCHIN 

000000 

RG 

#6-89 

A$ALI 

000012 

#5-61 

6-128 

7-246 

ASBUF 

000006 

#5-61 

*6-?2 

6-155 

A$DES 

000022 

#5-61 

7-204 

''-2^^ 

AtFLG 

000000 

#5-61 

*6-156 

•6-159 

ASLEN 

000103 

#5-61 

6-97 

A$NUM 

000010 

#5-61 

*1-2U1 

A$OPT 

000002 

#5-61 

♦  6-91 

6-103 
•6-136 

6-115 

6-123 

A$PAR 

000004 

#5-61 

*6-1^2 

6-160 

•7-195 

ASSCO 

000020 

#5-61 

6-129 

ASTYP 

000011 

#5-61 

6-113 

6-125 

CF$VR2 

~      ****** 

GX 

6-134 

CHKACC 

000470 

R 

7-232 

7-235 

7-238 

#8-278 

CHKALI 

=   ****** 

GX 

6-108 

CHKDES 

000272 

R 

^-]^? 

#7-191 

CHKPAR 

=  ****** 

GX 

7-197 

CHKSCO 

=:  ****** 

GX 

6-118 

CURCTX 

r  ****** 

GX 

6-133 

CSFLAG 

=  ****** 

GX 

6-134 

MAPADD 

:r  ****** 

GX 

7-214 

HAXACC 

=  000020 

#5-61 

5-61 

7-237 

MAX  ID 

000020 

#5-61 

5-61 

7-231 

MAXPAS 

000010 

#5-61 

5-61 

7-234 

ME  SAL  I 

000010 

6-132 

me$al2 

000003 

6-136 

ME. FOR 

177776 

6-147 

ME.  FUN 

177777 

6-102 

ME.MPR 

177773 

6-96 

me.pva 

177760 

7-250 

ME.UCO 

177770 

6-131 

MFSALL 

177775 

6-113 

HOSCLE 

000100 

6-103 

6-115 

6-123 

MPSDES 

000156 

7-196 

MS.MOR 

000002 

6-150 

SAVNAM 

r  ****** 

GX 

^-m 

TSTALI 

=  ****** 

GX 

6-130 

SSAVRG 

-  ****** 

GX 

6-90 

•7-199 
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',0', 
405 
406 
407 
408 
409 
410 
411 
412 
41? 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 

428  000654 

429  000634 

430  000640 

431  000646 

432  000652 

433  000654 

434  000660 

435  000662 

436  000664 

437  000666 

438  000674 

439  000676 

440  000704 

441  000706 

442  000714 

443  000716 

444  000724 

445  000726 

446  000730 
447 

448  000732 

449  000734 
450 

451 


.SBTTL  FJNDA  -  FIND  A  MATCHING  ALIAS  SLOCK 

••-FINDA-FIND  A  MATCHING  ALIAS  BLOCK 

THIS  ROUTINE  FINDS  A  BIOCK  WITH  A  MATCHING  ALIAS  NAME  AND  SCOPE 

INPUTS: 

RO  =  BLOCK  AT  HEAD  OF  LIST  TO  BE  SCANNED 
R4  =  POINTER  TO  CONTEXT  AREA  WITH; 

A$ALI  =  6  CHAR  ALIAS  NAME 

A$SCO  =  SCOPE  OF  ALIAS  TO  FIND 

OUTPUTS: 

IF  CC: 

R1  =  MAPPED  ADDRESS  OF  BLOCK 

SPRUNM  =  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

SCRUNM  =  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

ir  CS: 

NO  MATCH  IN  LIST 


REGISTERS: 

R2,  R3, 


FINDA: 
010067  OOOOOOG 
016767  OOOOOOG  OOOOOOG  10$: 
011067  OOOOOOG 
011046 

000261 

012601 

001423 

026461  000012  000002 

001014 

026461  000014  000004 

001010 

026461  000016  000006 

001004 

026461  000020  000010 


001402 
010100 
000743 

000241 


000001 


20$: 


30$: 
40$: 


MOV 

MOV 

MOV 

MOV 

CALL 

SEC 

MOV 

BEQ 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CMP 

BEQ 

MOV 

BR 

CLC 
RETURN 

.END 


R4,  R5  ARE  PRESERVED 


RO,$CRUNN 

$CRUNM,$PRUNM 

(RO),$CRUNM 

(RO),-(SP) 

SCEACC 

(SP)+,R1 

40$ 

A$AII(R4),A.NAM(R1) 

20$ 

A$ALI+2(R4),A.NAM+2(R1) 

20$ 

A$ALI+4(R4),A.NAM+4(R1) 

20$ 

A$SC0(R4),A.UCS(R1) 

30$ 

R1,R0 

10$ 


INITIALIZE  CURRENT  BLOCK 

INITIALIZE  PREVIOUS  BLOCK 

SET  NEW  CURRENT  BLOCK  OF  NEXT  ENTRY 

SET  UP  TO  MAP  TO  ANB 

MAP  TO  ANB 

ASSUME  FAILURE 

GET  MAPPED  VIRTUAL  ADDRESS 

IF  EQ,  THERE  IS  NONE  (NO  MATCH) 

DOES  THIS  NAME  MATCH  ? 

IF  NE,  NO 


DOES  THE  SCOPE  MATCH  TOO  ? 
IF  EQ,  YES  -  MATCH 
ELSE,  POINT  TO  NEXT  BLOCK 
LOOP 


FOUND  IT 
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MLO     -  Microcode  loader 
ABOAi'i    Abor'  Cleanup  AST 

772 
■73 
774 
775 
776 
'111 
778 
779 
780 
781 
782 
783 
78'!, 
785 
786 
787 
788 
789 
790 
791 
792 
793 

704 

ib 
797 
798 
799 
800 
801 
802 
803 
80-!. 
805 
806 
807 
808 
809 
810 
811 
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.SBTTL  MLOAD   -  Load  Control  for  RSX-11M  Systems 


Function: 

Call  Format: 
Inputs: 

Outputs: 


***  MLOAD  *♦* 

To  control  microcode  load  sequences  on  RSX-11M  systems. 
This  routine  performs  file  I/O  and  maintains  the  load  seq- 
uence counter(s)  and  status. 


CALL 


MLOAD 


Input  file  is  assumed  to  have  been  opened  successfully. 
R4  =  address  of  "load  request"  CCB 

Input  file  is  closed,  load  sequence  ended 

R3  =  load  halt  status 

RA  =  address  of  "halt  load  '  CCB 


Registers:    R2,  R3,  and  R5  are  destroyed 


MLOAD: 


INC 

READS 

BCS 

WAITS 

BCS 

MOV 

ADD 

MOV 

ADD 

MOV 

MOV 

CALL 

BCC 


BLOCK+2 

#FDB,,,#BLOCIC,, 

10S 

«FD8 

10S 

,i.,R3 

#C.SUFH-2,R3 

#FCSBUF,(R3) 

#20000,  (R3)*- 

FCSIOSt2,(R3)+ 

#CF.LB,(R3) 

DSPDRV 

MLOAD 


,FCSERR 


10S: 


CLOSES  #FD8 
RETURN 

.IFF 


Update  virtual  block  number 

Read  the  next  block  in  file 

Branch  if  read  could  not  be  started 

Wait  for  read  to  complete 

Branch  if  disk  error 

Copy  CCB  address 

Point  at  first  CCB  buffer  address 
Copy  buffer's  A"  ^-biased  address 
Force  add  ;s  t  e  APR6-biased 
Get  buffer  bytt  ount  from  I/O  status 
One  buffer/CCB  on  RSX-11M  systems 
Call  driver  to  load  the  microcode 
Branch  if  load  sequence  not  finished 

Close  the  micrococt;  file 
Exit 

If  system  is  RSX-11S  ... 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

L.DLC 

000003 

#6-85 

L.DLM 

000006 

#6-85 

L.DLS 

000010 

#6-85 

L.FLG 

000000 

#6-85 

L.KRBA 

000016 

#6-85 

L.LEN 

=  000022 

#6-85 

L.MPF 

000022 

#6-85 

L.NMST 

000020 

#6-85 

L.NSTA 

OOOOU 

#'-R5 

L.OWNR 

000021 

# 

L.UNT 

000013 

#6-85 

MLD 

000000  R 

#9-269 

18-989 

MLDERR 

000000  R 

#7-147 

11-607 

MOSSAC 

=  000016 

#6-83 

MOSSPR 

=  000012 

#6-83 

HOSSSV 

=  000014 

#6-83 

MO$25A 

=  000006 

#6-83 

MO$25P 

=  000002 

#6-83 

MO$25S 

=  OOOOO'i 

#6-83 

M0$29S 

=  000010 

#6-83 

MSHIGH 

=  000003 

#6-83 

M$3100 

=  000000 

#6-83 

M$3101 

=  000001 

#6-83 

M$3102 

=  000002 

#6-83 

M$3103 

=  000003 

#6-83 

6-83 

M.KTEF 

=  000002 

8-202 

NBUFS 

=  000001 

#7-122 

18-953 

NTUIC 

000574  RG 

#8-234 

N$$UMR 

=  000001 

#4-2 

6-87 

7-112 

10-516 

10-553 

12-657 

OPSINI 

=  000000 

#6-83 

OPSTER 

=  000001 

#6-83 

PARERR 

000073  R 

#7-156 

^k-El 

PARHD 

000576  RG 

#8-235 

17-909 

PCBADR 

000124  R 

#8-196 

•16-856 

•16-880 

POSPL 

000612  RG 

#8-241 

10-547 

12-680 

PDVIDX 

000160  R 

#8-212 

*9-403 

10-543 

PDVTA 

0006K  RG 

#8-242 

11-601 

PHSHDE 

=  000004 

#6-83 

PHSLOC 

=  000002 

#6-83 

PHSMTS 

=  000003 

#6-83 

PH$UMP 

=  000000 

#6-83 

PHSWCS 

=  000001 

#6-83 

PS. SYS 

=  000040 

17-915 

PWRAST 

000754  fi 

9-318 

#12-648 

P$$LAS 

-      »♦*♦** 

16-858 

P$$LUT 

-      ****** 

7-137 

P. MAIN 

000012 

17-922 

P.NAM 

000004 

17-910 

17-912 

P.REL 

000014 

16-881 

P. SIZE 

000016 

16-882 

P.STAT 

000030 

17-915 

7-120 


11-602 


8-200 


9-312 


9-321 


9-367 


9-392 


MLDIIS     CREATED  BY  MACRO  ON  28-AUG-85  AT  11:31 

cvwiDHi      roncc    dcccdcmtc 


K  2 

PAGE  6 

rRFF      04.no 


J  3 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
MACRO  CALLS  AND  DATA 


Page  5-4 


272  0002^.0 

273  0002A2 
Vk   C002AA 

275  000732 

276  000734 

277  001410 
278 

279 


OOOOOOG 
000466 

000454 


MANTBL: 

.WORD 

F TABLE 

.WORD 

CTXSIZ 

CONTEX: 

.BLKB 

CTXSIZ 

.WORD 

BUFSIZ 

BUFFER: 

•.BLKB 

BUFSIZ 

lOBUFF: 

:.BLKB 
.EVEN 

MAX  ID 

MANAGEMENT  FUNCTION  TABLE 
SIZE  OF  CONTEXT  AREA  (-2  FROM  CONTEX) 
LOW  CORE  COPr  OF  CURRENT  CONTEXT  AREA 
SIZE  OF  BUFFER  (-2  FROM  BUFFER) 
BUFFER  FOR  NETWORK  MANAGEMENT  MESSAGE 
BUFFER  FOR  ID  STRING 


K  3 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
MANACP  -  NETWORK  MANAGEMENT  ACP 


Page  6 


J  4 

MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:28 
Symbol  table 


Page  11-3 


MCSNOR 

000000 

MDSDMC 

000014 

MC$NPF 

001616 

MDSDMF 

000046 

MCSNPR 

001630 

MDSDMP 

000022 

MCtNRE 

001200 

MDSDMR 

000050 

MCJNRT 

001166 

MDSDMV 

000042 

MCSNVR 

001642 

MDSDN 

000016 

MC$P08 

000000 

HDSDP 

000000 

MCSPII 

000001 

MDSDPV 

000044 

MCSRFL 

002046 

MDSDQ 

000006 

MCSSBU 

002051 

MDSDTE 

000024 

MCSSFL 

002044 

MD$DU 

000002 

MCSSYC 

000012 

MDSDUP 

000012 

MCSSYL 

000036 

MDSDV 

000026 

MCSSYR 

000050 

MDSDZ 

000030 

HCSSYS 

000024 

MDSFUL 

000000 

MCSSYZ 

000000 

MDSHAL 

000001 

MCSTBR 

001140 

HDSHEL 

000002 

MCSTBS 

001141 

MDSKCP 

000013 

MCSTDR 

002053 

MDSKDP 

000034 

HCSTIM 

000000 

MDSKDZ 

000036 

MCSTYP 

007777 

MDSKL 

000040 

MCSUBU 

002052 

MDSKMX 

000054 

HCSUFD 

002047 

MDSKMY 

000052 

MCSUMR 

001132 

MDSLEN 

000050 

MCSUMS 

001133 

MOSPCL 

000011 

MCSVAX 

000003 

MDSQNA 

000005 

MCSWID 

060000 

MDSUNA 

000001 

MCSWIH 

040000 

MDSWIT 

000002 

MCSWIL 

020000 

MD.ABO 

000017 

MC$W08 

020000 

MD.ACC 

000010 

MC$U16 

040000 

MD.AOB 

000016 

MCSU32 

060000 

MD.BOB 

000011 

MCSXBR 

001750 

MD.DIA 

000007 

MCSXBS 

001751 

m .  DOB 

000015 

MCSXCJ 

000322 

MD.DUM 

000002 

MCSXCR 

002260 

MD.FAI 

000014 

MCSXCS 

002261 

MD.FNA 

000001 

MCSXDR 

001762 

MD.FOB 

000006 

HCSXDS 

001763 

MD.LOA 

000001 

MCSXFR 

002272 

MD.LSH 

000020 

MCSXFS 

002273 

MD.NOB 

000012 

MCSXLJ 

000323 

MD.NON 

U7777 

MCSXLR 

002330 

HD.PER 

000000 

MCSXMA 

000310 

MD.RES 

000004 

MCSXMC 

002305 

MD.ROB 

000005 

MCSXMS 

002304 

MD.RSH 

S^SSII 

MCSXNR 

002332 

MD.SDU 

000005 

MCSXRC 

002316 

MD.SLO 

000003 

MCSXRR 

002331 

MD.SNA 

000000 

MCSXRS 

002342 

MD.TLO 

000004 

MC$020 

000002 

MD.UNA 

000002 

MD$CI 

000007 

MD.UNR 

S9255I 

MDSCNA 

000003 

MD . U08 

000007 

MDSCOU 

000001 

MD.VOL 

000006 

MD$DA 

000010 

MESALI 

000010 

MDSDL 

000004 

ME  SAL  2 

000003 

MDSDLV 

000020 

ME$ARE 

000005 

MESCIR 
MESEXA 
HESEXE 
MESLIN 
MESLOG 
MESMOD 
MESNOD 
MESNON 
MESOBJ 
ME$082 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
ME. DON 
.FCO 
.FIO 
.FOP 
.FOR 


ME. 
ME. 
ME. 
ME. 


ME. FUN 
ME.GRO 
ME.HAR 
ME.IID 
ME.LCO 
ME.LPR 
ME.MPR 
ME.MVE 
ME. OPE 
ME.PLO 
ME.PMI 
ME.PNA 
ME.PRl 
ME.PTY 
ME.PVA 
ME. RES 
ME.ROO 
ME.SIZ 
ME. SYS 
ME.UCO 
MFSACT 
MFSADD 
MFSADJ 
MFSALL 
MFSBYE 
MFSCHA 
MFSDUM 
MFSEVT 
MFSFUP 
MFSKNO 
MFSLOA 
MFILOO 
MF$REA 
MFSSIG 
MF$SPF 
MFSSYS 


000003 

000000 

000200 

000001 

000002 

000004 

000000 

177777 

000007 

000004 

000005 

000006 

177744 

177753 

177765 

177755 

177600 

177762 

177756 

177763 

177776 

\77777 

177745 

177750 

^777h7 

\777kk 

^77757 

177771 

177771 

17771,7 

177751 

177743 

177752 

17777S 

177772 

177760 

177761 

177751, 

177771, 

1777^b 

177770 

17777b 

000000 

177771, 

177775 

000300 

000023 

000020 

000001 

000264 

177777 

000017 

177775 

000024 

177773 

000302 

000026 


MFSTES 

000022 

MFSTRA 

000301 

MFSTRl 

000021 

MFSZER 

000025 

MLSALL 

100000 

ML$CLS 

000000 

MLSCON 

000001 

MLSEXT 

000001 

MLSFIL 

000002 

MLSFIR 

000000 

MLSINT 

000000 

MLSKNO 

140000 

HLSMON 

000003 

ML$SYS 

000002 

MLSTOP 

000001 

MNSUNL 

000377 

MN$VOL= 

000000 

HOULS 

000034RG 

MOSACC 

000200 

MOSADD 

000002 

MOSALA 

000004 

MOSALI 

000000 

MOSCHA 

000040 

MOSCIR 

000003 

HOSCLE 

000100 

MOSCOU 

000060 

MOSDAC 

000000 

MOSDEF 

000000 

MOSDPR 

000000 

MOSENT 

000017 

MOSEVE 

000100 

MOSINF 

000160 

MOSINS 

000002 

MOSLIN 

000001 

MOSLOG 

000001 

MOSMIR 

000031 

MOSNAM 

000001 

MOSNJC 

000023 

MOSNOD 

000000 

MOSOFF 

000001 

MOSON 

000000 

MOSOPT 

000001 

MOSPER 

000200 

MOSPRO 

000002 

MOSPRS 

000001 

MOSREA 

000200 

MOSSET 

000000 

MOSSTA 

000020 

MOSSUM 

000000 

MOSTSK 

000000 

MOSVOL 

000000 

MOSZER 

000000 

MPSACB 

000012 

MPSACC 

000514 

MPSACT 

004526 

MPSADD 

000766 

MPSADJ 

001440 

HPSADP 

MPSADS 

MPSALB 

MPSAMC 

MPSAMH 

MPSANB 

MPSASB 

MPSASC 

MPSAUS 

MP$BBT 

MPSBDF 

MPSBFQ 

MPSBLK 

MPSBLO 

MPSBMX 

MPSBNP 

MPSBRT 

MPSBSA 

HPSBSD 

MPSBSI 

MPSBSP 

MPSBUF 

MPSBUP 

MPSBUS 

MPSCAC 

MPSCAS 

MPSCAT 

MPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

MPSCLN 

MPSCLT 

MPSCMB 

MPSCMK 

MPSCMX 

MPSCND 

MPSCNU 

MPSCOB 

MPSCON 

MPSCOS 

MPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

MPSDAL 

MP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DHO= 

MPSDIA 


006325 
004406 
000036 
001640 
001641 
004420 
000024 
004432 
000512 
002165 
002164 
002121 
001616 
001452 
002176 
006330 
001620 
002176 
002203 
002200 
006331 
000170 
006324 
001643 
001750 
001762 
002210 
004406 
002141 
000144 
002131 
002126 
002211 
002142 
000537 
002153 
000310 
001753 
000311 
002126 
001604 
000230 
000232 
000226 
000161 
001755 
002127 
000540 
002570 
001464 
002177 
001131 
000156 
002114 
001320 
001465 
000173 
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55 
5A 
55 
56 
57 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 
.MCALL  ASTXSS 
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MANBUF 
ALLCTX 
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153 
ISA 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 

184  000000 

185  000000 

186  000004 

187  000006 

188  000010 

189  000014 

190  000016 

191  000020 
192 

193  000022 

194  000030 

195  000032 

196  000036 

197  000042 

198  000044 

199  000050 

200  000052 

201  000054 

202  000056 

203  000062 

204  000066 

205  000072 

206  000074 

207  000076 

208  000100 

209  000102 


012700 
011004 
001405 
005764 
001461 
010400 
000771 

026727 
103037 
012701 
016704 
060104 
022704 
101002 
000261 
000502 
166701 
062701 
042701 
010102 
006201 
006201 
006201 
006201 


.SBTTL  ALLCTX  -  ALLOCATE  A  CONTEXT  AREA 

**-ALLCTX-ALLOCATE  A  CONTEXT  AREA 

THIS  ROUTINE  ALLOCATES  A  HIGH-CORE  CONTEXT  AREA  AND  A  WINDOW  BLOCK 
FOR  A  USER.  THE  CONTEXT  LIST  IS  SEARCHED  FOR  A  FREE  BLOCK.  IF  NONE 
IS  FOUND  THE  CONTEXT  POOL  WILL  BE  USED.  IF  THE  POOL  IS  NOT  LARGE 
ENOUGH,  THIS  ROUTINE  WILL  ATTEMPT  TO  EXTEND  THE  TASK. 


INPUTS: 


R3  =  ADDRESS  OF  I/O  PACKET 

R5  =  FUNCTION  TABLE  ENTRY  WITH: 

R$0PER(R5)  =  ADDRESS  OF  OPERATE  ROUTINE 
TSKLN2  =  2ND  LUN  WORD  FROM  USER  TASK  HEADER 
CTXHD  =  LISTHEAD  OF  CONTEXT  AREAS 
POOLSZ  =  SIZE  OF  REMAINING  CONTEXT  POOL  IN  BYTES 
POOLPT  =  ADDRESS  Of  FIRST  FREE  BYTE  IN  CONTEXT  POOL 

OUTPUTS: 

IF  CC,  SUCCESS,  AND 

R4  =  ADDRESS  OF  CONTEXT  AREA  ALLOCATED 

CUf?CTX  =  ADDRESS  OF  CONTEXT  ALLOCATED 

NUMUSR  IS  INCREMENTED  TO  INDICATE  ANOTHER  ACTIVE  USER 

2ND  LUN  WORD  POINTS  TO  WINDOW  BLOCK 

POOLSZ,  AND  POOLPT  ARE  UPDATED  AS  NECESSARY 
IF  CS,  FAILURE 

REGISTERS: 

RO,  R1,  AND  R2  ARE  MODIFIED 


OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG  20$ 


OOOOOOG 
OOOOOOG 

160000 


OOOOOOG 

000077 

000077 


ALLCTX. 

MOV 

*CTXHD,RO 

10$: 

MOV 

(R0),R4 

BEQ 

20$ 

TST 

C$FLAG(R4) 

BEQ 

40$ 

MOV 

R4,R0 

BR 

loi 

20$: 

CMP 

POOLSZ, #C$SIZE 

BHIS 

30$ 

MOV 

#C$SIZE,R1 

MOV 

POOLPT, R4 

ADD 

R1,R4 

CMP 

#160000, R4 

BHI 

25$ 

SEC 

BR 

60$ 

25$: 

SUB 

POOLSZ, R1 

ADD 

#63.,r1 

BIC 

*63.,R1 

MOV 

ri,r5 

ASR 

R1 

ASR 

Rl 

ASR 

Rl 

ASR 

Rl 

POINT  TO  CONTEXT  AREA  LISTHEAD 

GET  ADDRESS  OF  NEXT  AREA 

IF  EQ,  NO  MORE  -  TRY  TO  USE  THE  POOL 

ELSE,  IS  THIS  CONTEXT  IN  USE  ? 

IF  EQ,  NO  -  USE  IT 

ELSE,  SHUFFLE  LIST  POINTERS 

AND  KEEP  LOOKING 

IS  THE  POOL  LARGE  ENOUGH  FOR  A  CTX  ? 

IF  HIS,  YES  -  NO  NEED  TO  EXTEND 

SET  LENGTH  OF  CONTEXT  BLOCK 

GET  ADDRESS  OF  BLOCK 

CALC  ENDING  ADDRESS 

IS  IT  UNDER  THE  BLOCK? 

IF  YES,  CONTINUE  WITH  EXTEND 

ELSE,  SET  CARRY  AND  REFUSE 

TO  EXTEND  TO  APR  7 

CALC  LENGTH  OF  EXTEND  IN  BYTES 

ROUND  UP  TO  NEXT  BLOCK  SIZE 

SAVE  NUMBER  OF  BYTES 

DIVIDE  BY  64 

...  TO  CALC 

...  NUMBER  OF  64.  BYTE  BLOCKS 
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3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 

48 
49 
50 


.TITLE 
.IDENT 


MANBYE  -  PERFORM  LOGOUT  CLEANUP  FOR  A  USER 
/V05.00/ 


COPYRIGHT  (C)  1982,  1983,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 
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INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
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SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 
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DECnet-Micro/RSX  VI. 0 


K  7 

MANBYE  -  PERFORM  LOGOUT  CLEANUP  MACRO  V05.03b  Wednesday  18-Sep-85  17:20 
MACRO  CALLS  AND  LOCAL  DATA 


Page  5 


J    8 

MANFRK  -  NETWORK  MANAGEMENT   ACP  MACRO  VO5.03b  Saturday  29-Jun-85   10:30 
Table  of  contents 

5-  50    MACRO  CALLS,  LOCAL  DEFINITIONS  AND  STORAGE 

6-  77    FORK  -  SAVE  THREAD  CONTEXT  AND  RE-START  SCAN 

7-  151    FRKDON  -  CHECK  FOR  COMPLETED  FORKS  AND  RE-LOAD  CONTEXT 


K  8 

MANFRK  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10:30  Page  4 


J  ? 

MANQIO  -  ISSUE  NETWORK  MANAGEME  MACRO  V05.03b  Saturday  29-Jun-85  10:50  Page  « 


1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
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225  000366 
22A  000370 

225  000372 

226  00057A 

227  000576 

228  000400 

229  000402 

230  000406 
231 

252 


005701 
001403 
112022 
005301 
003375 
160502 
012700 


000001 


000001 


TST 

R1 

BEQ 

80$ 

70$: 

MOVB 

(R0)t,(R2)t 

DEC 

Rl 

BGT 

70$ 

80$: 

SUB 

R3,R2 

MOV 

#MS.SUC,R0 

90$: 

RETURN 

ANY  ACCESS  CONTROL  INFO  TO  COPY? 

BR  IF  NO 

COPY  ACCESS  CONTROL  INFO 

MORE  TO  COPY? 

BR  IF  YES 

CALCULATE  LENGTH  TO  RETURN 

SUCCESS  I 


.END 
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MQSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOtDPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

MOIL  IN 

MO$LOC 

MOSMIR 

MOSNAM 

MOSNIC 

MOSNOD 

MOJOfF 

MOSON 

MOSOPT 

MOSPER 

MOSPRO 

MOSPRS 

MOSREA 

HO$SET 

MOSSTA 

MOSSUM 

MO$TSK 

MOSVOL 

MOSZER 

MPSACB 

MPSACC 

MPSACT 

MPSADD 

MPSADJ 

MPSADP 

MPSADS 

MPSALB 

MPSAMC 

MPSAMH 

MPSANB 

MPSASB 

MPSASC 

MPSAUS 

MPSBBT 

MP$BDF 

MPSBFQ 

MPSBLK 

MPSSLO 

MPSBMX 

MPSBNP 

MPSBRT 

MPSBSA 

MPSBSD 

MPSBSI 

MPSBSP 

MPSBUF 

MPSBUP 


000003 

000100 

n00060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

000000 

000001 

000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

000514 

004526 

000766 

001440 

006325 

004406 

000036 

001640 

001641 

004420 

000024 

004432 

000512 

002165 

002164 

002121 

001616 

001452 

002176 

006530 

001620 

002176 

002203 

002200 

006351 

000170 

006524 


MPtBUS 

MPSCAC 

MPSCAS 

MPSCAT 

HPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

MPSCLN 

MPSCLT 

MPSCMB 

MPSCMK 

MPSCMX 

MPSCNO 

MPSCNU 

MPSCOB 

MPSCON 

MPSCOS 

MPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

HPSDAL 

MP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DHO= 

MPSDIA 

MPSDLB 

MPSDLG 

MP$DL]= 

MPSDLT 

MPSDRO 

MPSDST 

MPSDTE 

MP$DTY= 

MPSDUA 

MPSDUC 

MPSDUM 

MPSDUP 

MPSDVC 

MPSDWE 

MPSELT 

MPSETY 

MPSEVE 

MPSFNC 

MPSGDT 

MPSGNM 

MP$6R0 

MPSGRP 

MPSGTY 


001643 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

000557 

002155 

000510 

001755 

000511 

002126 

001604 

000230 

000252 

000226 

000161 

001755 

002127 

000540 

002570 

001464 

002177 

001151 

000156 

002114 

001520 

001465 

000175 

002571 

004521 

001466 

002200 

001441 

000454 

002140 

001452 

000207 

000210 

000202 

002127 

002114 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 


MPSHAD 

MPSHBT 

MPSHDD 

MPtHTM 

MP$HWA 

MPIIAT 

MPSIDE 

MPSIDP 

MPSIHO 

MPSINA 

MPUND 

MPSINI 

MP$IT] 

HPSLAA 

HPSLAN 

MPSLAR 

MPSLAS 

MPSLBS 

MPSLCO 

MPSLCT 

NPSLHL 

MPSLLE 

MPSLLO 

MPSLMB 

MPSLMX 

MPSLNA 

MPSLNO 

MPSLOA 

MPSLOG 

MPSLDO 

MPSLTM 

MPSLTY 

MPSLWJ 

MPSMAC 

MPSMAD 

MPSMAP 

MPSMAR 

MPSMAV 

MPSMBN 

MPSMBR 

MPSMBU 

MPSMCB 

MPSHCO 

MPSMDE 

MPSMHO 

MPSMLB 

MPSMLK 

MPSMLN 

MPSMLP 

MP$HRB 

MPSMRO 

MPSMRP 

MPSMRT 

MPSMRV 

MPSMSB 

MPSMVE 

MPSMVI 


001757 

002142 

000162 

001612 

002210 

001522 

000144 

006527 

000215 

002177 

002204 

002201 

000776 

000251 

000254 

000202 

000012 

000203 

000226 

000156 

000252 

000227 

004452 

002152 

002200 

000144 

000255 

000170 

004514 

000620 

001615 

004553 

000250 

004420 

001650 

006325 

001635 

006521 

001656 

001637 

001642 

000156 

001632 

004421 

001655 

000202 

001506 

001651 

006533 

002171 

001605 

006522 

002153 

006520 

000170 

000145 

001634 


MPSMVR 

MPSHWN 

HP$MX8 

MPSHXC 

MPSMXR 

MPSMXW 

MPSNAA 

MPSNAC 

MPSNAP 

MP$NCT 

MPSNET 

MP$NLI 

MPSNNA 

MP$N0D 

MPSNRA 

MPSNRB 

MPSNSA 

MPSNTI 

HPSNUM 

MP$NVE 

HP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

HPSONA 

HPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MP$0US 

MPSOVE 

HPSOWN 

MPSPAR 

MPSPAS 

MPSPCH 

HPSPCO 

MPSPCT 

HPSPDT 

HPSPHA 

MPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 

HPSRET 

MPSRFA 

MPSRMX 

HPSRPA 

HPSRPR 

MPSRRT 

MPSRST 


001751 

002154 

002172 

000466 

001650 

002145 

006535 

001150 

006526 

000240 

002114 

000765 

000764 

000500 

006554 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004574 

000056 

000513 

002152 

000024 

000144 

002114 

000170 

000012 

000025 

002140 

000012 

004574 

002126 

004411 

002150 

001765 

001762 

001631 

001525 

002201 

004574 

001606 

002213 

002212 


MP$RSV 
MP$RSZ 
MPSRTI 
HPSRTM 
MPSRVE 
MPSRVT 
MPSSAC 
MPSSAD 
MPSSCA 
MPSSCO 
MP$SCT 
MPSSDU 
MPSSDV 
MPSSEH 
MPJSER 
MPSSET 
HPSSGZ 
MPSSID 
HPSSIN 
MPSSLI 
MPSSLO 
MPSSMX 
HPSSND 
MPSSNP 
HPSSNU 
HPSSOB 
HPSSPA 
MP$SPR 
MPSSPS 
MPSSTA 
MPSSri 
MPSSTT 
MPSSTY 
HPSSUB 
MPSSUR 
MPSSUS 
MPSSVR 
MPSSUI 
MPSSYP 
MPSTFL 
MPSTHI 
MP$TH2 
MP$TH3 
MPSTLN 
MPSTLO 
MPSTPA 
MPSTRI 
MPSTST 
MPSTYP 
MPSUCS 
MPSUSR 
MPSVEC 
MPSVER 
MPSUDF 
HPSWMX 
MPSXMT 
MPSXPF 


001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000510 
000144 
002176 
000205 
000160 
004401 
000144 
000000 
001644 
000176 
000510 
000156 
000171 
002202 
000500 
006552 
000542 
000524 
000157 
000556 
000515 
000000 
002140 
002201 
000175 
000001 
000156 
000512 
000165 
002260 
002424 
000156 
002206 
002205 
002202 
000202 
000172 
004575 
002164 
000144 
002150 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
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MPSSUB 

MPtSUR 

MPSSUS 

MPtSVR 

MPSSWl 

MPSSYP 

MPSTFL 

MP$TH1 

MP$TH2 

MP$TH5 

MPSTLN 

MPSTLO 

MPSTPA 

MPSTRI 

HPSTST 

MPSTYP 

MPSUCS 

MPtUSR 

HPSVEC 

MP$VER 

MPIWDF 

MPSWMX 

MP$XMT 

MPSXPF 

MPSXPL 

MPSXPT 

MPSXXX 

MP$5ST 

MSSACT 

MSSADU 

MS$ALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 


000001 

000156 

000512 

000163 

002260 

00242^ 

000156 

002206 

002205 

002202 

000202 

000172 

00A375 

002164 

000U4 

002130 

00AA07 

001750 

OO^AIO 

004406 

002165 

002177 

002166 

000242 

000244 

000240 

177777 

004406 

000001 

000010 

000007 

000006 

000011 

000000 

000003 

000004 

000003 

000004 

000013 


ABS.  000000 
000000 
DATA$   000470 
Errors  detected: 


000 
001 
002 
0 


MSSGLO 

MSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

HSSOFF 

MSION 

HSIPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

MSSRSX 

MS$RT 

MS$SER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRl 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MTSBIL 

MTSBYS 

MTSCI 

MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

MTSETH 


000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
000001 
000004 
000006 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 


MTSHEX 

MTSLPB 

MT$MAX 

MTSMUL 

MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

MTSPHA 

MTSPOI 

MT$QP2 

MTSROU 

MT$R04 

MTSSEC 

MTSSGD 

MTSSYS 

MTSTER 

MUTRJ 

MTSTYP 

MT$USD 

MT$X25 

MUSINC 

MUSOUT 

MUSPER 

MVSIIl 

MVSIV 

MXSACT 

MXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

MXSDTE 

MXSFIL 

MX$LGC 

MXSLIN 

MXSLON 


000040 
000005 
000037 
000100 
000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 


MXSNMS 

MXSNOD 

MXSOBJ 

MX$OUN 

MXSPAR 

MXSPAS 

MX$RAC 

MXSRID 

MXSRPS 

MXSSID 

MX$SNK 

MXSTYP 

MXSUID 

M$$CRB= 

M$$CRX= 

M$$FCS= 

H$$MGE= 

M$$NET= 

M$$OVR= 

NM.CLN 

NM.JNI 

NM.OPR 

NM.VR2 

NM.VR3 

NOCHJN= 

NOCHOP= 

NOREIN= 

NOREOP= 

NOZEIN= 

NOZEOP= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 


000454 

000006 

000006 

000040 

000036 

000010 

000047 

000047 

000047 

000040 

000377 

000077 

000020 

000124 

000000 

000000 

000000 

000000 

000000 

003400 

002400 

003000 

002401 

002402 

******  GX 

******  6X 

******  GX 

******  GX 

******  GX 

******  GX 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 


OBCHIN= 

0BCH0P= 

OBREIN= 

OBREOP= 

PRCHIN= 

PRCHOP= 

PRREIN= 

PRREOP= 

P$$P45= 

P$$WRD= 

Q$$0PT= 

RF$END= 

RF$NCX= 

RF$PRV= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANM 

SFSDNM 

SYCHIN= 

SyCHOP= 

SYREIN= 

SYREOP= 

SYZEIN= 

SYZEOP= 

S$$URG= 

S$$YSZ= 

TRAACC= 

TRAADD= 

TRAALI= 

TRANAM= 

T$$KMG= 

T$$HIN= 

V$$CTR= 

X$$DBT= 

$$$SYS= 

$$$SYX= 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
000000 
000000 
000010 
****** 
****** 
****** 

000000 
000001 
000000 
000000 
000001 
000002 
****** 
****** 
****** 
****** 
****** 
****** 
000000 
007600 

****** 
****** 
****** 
****** 
000000 
000000 
001000 
000000 
004374 
000000 


GX 
GX 
uX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 


GX 
GX 

GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
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J  u 
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AAAAAA 

AAAAAA 

AA      AA 

AA      AA 

AA      AA 

AA      AA 

AA      AA 

AA      AA 

AAAAAAAAAA 

AAAAAAAAAA 

AA      AA 

AA      AA 

AA      AA 

LLLLLLLLLL 

AA      AA 

LLLLLLLLLL 

CCCCCCCC 

HH 

HH 

11 

III 

NN      NN 

CCCCCCCC 

HH 

HH 

Jl 

IIJ 

NN      NN 

CC 

HH 

HH 

NN      NN 

cc 

HH 

HH 

NN      NN 

CC 

HH 

HH 

NNNN    NN 

cc 

HH 

HH 

NNNN    NN 

cc 

HHHHHHHHHH 

NN  NN  NN 

11 

cc 

HHHHHHHHHH 

NN  NN  NN 

HH 

HH 

NN    NNNN 

HH 

HH 

NN    NNNN 

cc 

HH 

HH 

NN      NN 

cc 

HH 

HH 

NN      NN 

CCCCCCCC 

HH 

HH 

JJJ 

IIJ 

NN      NN 

cccccccc 

HH 

HH 

JJI 

iJJ 

NN      NN 

LL 

SSSSSSSS 

TITTTTTTTT 

LL 

SSSSSSSS 

TTITTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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MANDfl 

RETURN 


#5-57 

5-61 

5-108 
#5-57 

5-118 

5-130 

5-59 

6-165 

7-252 

8-297 
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H.X25 

I$$RAR= 

I$$RDN= 

KISAR5= 

<$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LCSEXT 

LCSINT 

LDSLP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MAXACC= 

MAXID  = 

MAXPAS= 

MBSDIS 

M8$ENA 

M8$FUL 

M8$M1X 

MBSONE 

M8$RX0 

MBSTXO 

MSSZER 

MC$8A8 

MCSBID 

MCSBMC 

MCSBSC 

MCSCAC 

MC$CAP 

MCSCCL 

MCSCDC 

MCSCDP 

MC$C1F 

MCSCLD 

MCSCOU 

MCSCTL 

MCSCTR 

Mcscrs 

MCSDOV 
MC$L8R 
MCSLBS 
MCSLDI 
MCSLDO 
MCSLDR 
MCSLDS 
MCSLLB 
MCSLLP 
MCSLLR 
MCSLOO 
MCSLRB 
MCSLRP 
MCSLRR 
MCSLSI 
MCSLST 


AF.INI: 

000001 

DSMLL 

000040 

AF.OVR= 

000002 

DSMNOD 

2559^1 

ALCHOP 

OOOOOORG 

0$NA 

000062 

ALOCB  = 

•••♦«•  GX 

D$NBEA 

000056 

AtALl 

000012 

D$NBRA 

000054 

A$BUF 

000006 

D$NEND= 

000054 

AIDES 

000022 

DSNLN 

000030 

AtFLG 

000000 

0$NN 

000060 

ASLEN 

000103 

DSOUTT 

000043 

A$NUM 

000010 

DSRETF 

000050 

ASOPT 

000002 

DSRNN 

000002 

AtPAR 

OOOOOA 

OSRTMR 

000076 

AJSCO 

000020 

DSSEG 

000036 

ASTVP 

000011 

DSSER 

000032 

A$$CHK= 

000000 

DSSQRL 

000052 

A$tCPS= 

000000 

D$$BUG= 

177514 

A$$PRI= 

000000 

Dt$ISK= 

000000 

A$$TRP= 

000000 

D$$L11-- 

000001 

A.ACC 

000020 

D$$YNC= 

000000 

A.LNK 

000000 

Dt$YNM= 

000000 

A.NAM 

000002 

E$$XPR= 

000000 

A.  PUD 

000010 

FINDA 

000634R 

A. REM 

000012 

F$$LVL= 

000001 

A.UCB 

000010 

G$$TPP= 

000000 

BIAS  = 

000002 

G$$TSS= 

000000 

CEACC  = 

»♦»*♦»  GX 

G$$TTK= 

000000 

CF$VR2= 

»«♦♦»«  GX 

G$$URD= 

000000 

CLRALI 

000536R 

H.CSP 

000000 

CURCTX= 

♦**»**  GX 

H.CUIC 

000010 

C$FLAG= 

*«•***  GX 

H.DSW 

000046 

C$$CKP= 

000000 

H.DUIC 

000012 

C$$ORE= 

OOOAOO 

H.EFLM 

000004 

C$$RSH= 

17756^ 

H.EFSV 

000040 

DEAANB 

0OO53AR 

H.FCS 

000050 

DEACS  = 

•*»**♦  GX 

H.FORT 

000052 

DECPT  = 

♦**♦»♦  GX 

H.FPSA 

000042 

DSAMXC 

000072 

H.FPSL= 

000062 

DSAMXH 

000074 

H.FPVA 

000034 

DSANN 

000000 

H.GARD 

000072 

DSBRPR 

000102 

H.HDLN 

000002 

DSBRTM 

000100 

H.IPC 

000016 

DSDELF 

000045 

H.IPS 

000014 

DSDELW 

000046 

H.ISP 

000020 

DSEND  = 

000104 

H.LUN 

000076 

DSFNB 

000034 

H.NLUN 

000074 

OSHIOR 

000024 

H.NML 

000061 

dshost 

000022 

H.ODVA 

000022 

DSINAC 

000044 

H.ODVL 

000024 

D$INCT 

000042 

H.OVLr 

000054 

DSIPL 

000051 

H.PFVA 

000032 

D$LiD 

000020 

H.RCVA 

000036 

DSLNAM 

000006 

H.RRVA 

000062 

DSLNUM 

000014 

H.SPRI 

000060 

0$LST 

000047 

H.TKVA 

000026 

DSMAXC 

000064 

H.TKVL 

000030 

DSMAXH 

000066 

H./EXT 

000056 

DSMAXV 

000070 

H.WND 

000044 
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1 

000064 

MCSLUP 

006072 

000000 

MCfHAP 
MC$M8L 

010000 

000000 

001764 

*♦•*••  GX 

MCSMBX 

004420 

177546 

MCSMBV 

001752 

177546 

MCSMPX 

004406 

000000 

MCSNAP 

001604 

000074 

MCSNBR 

001130 

000000 

MCSNBS 

001131 

000001 

MC$NCR 

001154 

000000 

MCSNCS 

001155 

000000 

MCSHML 

001274 

000000 

MC$NMR 

001142 

000001 

MCSNMS 

001143 

000000 

MCSNNO 

001606 

000020 

MCSNNU 

001605 

000020 

MCSNOP 

001607 

000010 

MCSNOR 

000000 

000001 

MCSNPF 

001616 

000000 

MCSNPR 

001630 

000002 

MCSNRE 

001200 

000002 

MCSNRT 

001166 

000001 

MCSNVR 

001642 

000001 

MC$P08 

000000 

000000 

MCSPII 

000001 

000000 

MCSRFL 

002046 

006073 

MCSSBU 

002051 

001765 

MCSSFL 

002044 

001767 

MCSSYC 

000012 

001766 

MCSSYL 

000036 

001442 

MCSSYR 

000050 

001440 

MCtSYS 

000024 

001445 

MCSSYZ 

000000 

002045 

MCSTBR 

001140 

001441 

MCSTBS 

001141 

001465 

MCSTDR 

002053 

001464 

MCSTIM 

000000 

100000 

MCSTYP 

007777 

001454 

MCSUBU 

002052 

001452 

MC$UFD 

002047 

001453 

MCSUMR 

001132 

002050 

MCSUMS 

001133 

001750 

MCSVAX 

000003 

001751 

MCSUID 

060000 

001774 

MCSWIH 

040000 

001775 

MCSWIL 

020000 

001762 

MC$U08 

020000 

001763 

MC$W16 

040000 

002021 

MC$W32 

060000 

002115 

MCSXBR 

001750 

002007 

MCSXBS 

001751 

000001 

MCSXCJ 

000322 

002020 

MCSXCR 

002260 

002114 

MCSXCS 

002261 

002006 

MCSXDR 

001762 

002032 

MCSXDS 

001763 

002033 

MCIXFR 

002272 

MCSXFS 

MCSXLJ 

MC$XLR 

MCIXMA 

MCSXMC 

MCSXMS 

MCSXNR 

MC$XRC 

MCSXRR 

MCSXRS 

MC$020 

MDSCI 

MDSCNA 

MDSCOU 

MDSDA 

MDSDL 

MDSDLV 

MDSDMC 

MDSDMF 

MDSDMP 

MDSDMR 

MDSDMV 

MDSDN 

MDSDP 

MOSDPV 

MDSDQ 

MDSDTE 

MDSDU 

MDSDUP 

MDSDV 

MDSDZ 

MDSFUL 

MDSHAL 

MDSHEL 

MDSKCP 

MOSKDP 

MDSKDZ 

MDSKL 

MDSKMX 

MDSKMY 

MDSLEN 

MDSPCL 

MDSQNA 

MDSUNA 

MDSUIT 

MD.A80 

MD.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

MD.FA! 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 


002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 
000036 
000040 
000054 
000052 
000050 
000011 
000005 
000001 
000002 
000017 
000010 
000016 
000011 
000007 
000015 
000002 
000014 
000001 
000006 
000001 
000020 
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LOCPAR 


-  Microcoae  Loader     MACRO 

-  Locate  Microcode  Partition 


815 
8K 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 

838  001074 

839  001076 

840  001100 

841  001102 
8',2  001106 

843  001110 

844  001112 
845 

846  001114 

847  001120 

848  001122 

849  001126 

850  001130 

851  001132 

852  001136 

853  001142 
854 

855  0011'.6 

856  001150 
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.SBTTL  LOCPAR  -  Locate  Microcode  Partition 
«♦*  LOCPAR  *** 


Function: 

CalL  Format: 
Inputs: 

Outputs: 


010403 
060503 
111346 
112713 
010346 
005046 
005046 

012701 
010400 

010116 
103406 
012701 

010166 

010603 
005067 


000011 

000001 

000001 
000002 

000124' 


LOCPAR:  MOV 
ADD 
MOVB 

Move 

MOV 
CLR 
CLR 

MOV 

MOV 

CALL 

MOV 

BCS 

MOV 

CALL 

MOV 


10$: 


MOV 
CLR 


To  locate  a  (sub)partition  that  contains  the  microcode 
specified  in  the  current  load  request.  If  the  partition 
is  found,  it's  PCB  address  is  saued  for  later  use. 


CALL 


1 OCPAR 


R4  =  address  of  microcode  partition  ASCII  name 
R5  =  length  of  ASCII  string 

C-bit  clear  =  partition  found 
C-bit  set   =  partition  not  found 

If  the  partition  has  been  located,  then; 

BlOCK   =  mi.,^ning  bias  of  partition 

BL0C/(+2  =  length  of  partition  in  32-word  blocks 


Registers:    RO  through  R3  destroyed 


R4,R3 

R5,R3 

(R3),-(SP) 

#11, (R3) 

R3,-(SP) 

-CSP) 

-CSP) 

*1,R1 

R4,R0 

SCATS 

R1,(SP) 

10$ 

#l,fil 

$CAT5 

R1,2(SP) 

SP,R3 
PCBADR 


857 

858 

.IF 

DF      P 

859 

860 

CALL 

SSRNAM 

861 

862 
863 

864  001154 

.IFF 

CALL 

SRMAM 

865 

866 

.IFTF 

867 

868  001160 

103016 

BCC 

20$ 

869 

P$$LAo 


Copy  address  of  string 
Point  past  end  of  string 
Save  wnatever  is  there 
Put  a  known  delimiter  in  its  place 
Save  the  delimiter  address 
Allocate  two  words  on  the  stack 
to  store  RAD50  partition  name 

Allow  periods  to  be  in  partition  name 
Copy  address  of  ASCII  string 
Convert  three  characters  to  RAD50 
Move  RAD50  equivalent  to  save  area 
Branch  if  less  than  three  converted 
Allow  periods  to  be  in  partition  name 
Convert  three  more  characters 
Move  RAD50  eauivalent  to  save  area 

Copy  address  of  RAD50  partition  name 
Clear  local  PCB  address 

If  system  has  PLAS  support  ... 

Use  executive  routine  to  find  PCB 

If  no  PLAS  support  . . . 

Use  internal  routine  to  find  PCB 

Regardless  of  PLAS  support  ... 

Branch  if  partition  found 
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SYMBOL 

-ROSS  REFERENCE 

CREF        04.00 

SYMBOL 

VALUE 

REFERENCES 

P.  SUB 

000010 

17-917 

17-919 

QRMVF 

000600  R3 

#8-236 

9-361 

12-670 

RDBSZ 

000616  RG 

#8-243 

10-522 

10-524 

10-558           10- 

■559 

REIADC 

=  OOOOOA 

#6-83 

RESADF 

=  000017 

#6-83 

RESADR 

=  000007 

#6-83 

RESBLK 

=  000010 

#6-83 

RESCAF 

=  OOOOU 

#6-83 

RESDAT 

=  000001 

#6-83 

RESDRP 

=  000016 

#6-83 

REtLDT 

=  000013 

#6-83 

RESLSN 

=  000012 

#6-83 

RESNML 

=  000001 

#6-83 

RESOPE 

=  000004 

#6-83 

RESOPR 

=  000000 

#6-83 

RESRCV 

=  000001 

#6-83 

RESSED 

=  000011 

#6-83 

RESSKU 

^  000006 

#6-83 

RESSTA 

=  000002 

#6-83 

RESSUM 

=  000003 

#6-83 

RESSYN 

=  000000 

#6-83 

RESTME 

=  000021 

#6-83 

RESTMO 

=  000000 

#6-83 

RESTMR 

=  000020 

#6-83 

RESUPT 

=  000002 

#6-83 

RE  SURE 

=  000003 

#6-83 

RESVER 

=  000005 

#6-83 

RESVRQ 

=  000015 

#6-83 

RTSINI 

=  000002 

#6-83 

RTSOFF 

=  000001 

#6-83 

RTSON 

=  000000 

#6-83 

R$$MPL 

=    *♦♦**♦ 

6-54 

8-'31 

9-407 

RSSIID 

=    ****** 

6-84 

R$$11M 

=  000000 

6-84 

Rtsns 

=  000001 

#4-3 

6-6^ 

6-84 

SCSOFF 

=  000001 

#6-83 

SCSON 

=  000000 

#6-83 

SCSRST 

=  000003 

#6-83 

SCSSHU 

=  000002 

#6-83 

SETTMR 

000126  R 

#8-202 

9-340 

SF.ACT 

=  000200 

#6-85 

SF.ENA 

=  000100 

#6-85 

SF.LPB 

=  OOOOOA 

#6-85 

SF.MFL 

=  000040 

#6-85 

SF.PAC 

=  000020 

#6-85 

SF.REA 

=  000010 

#6-35 

Sr.SER 

=  000001 

#6-85 

SF.SVC 

=  G00002 

#6-85 

SF.UNL 

=  000040 

#6-85 

SLOAD 

001330  R 

9-455 

#18-953 

18-983 

SLTMA 

000620  RG 

#8-244 

9-400 

SRNAM 

001246  R 

16-864 

#17-909 

MLD'IS            CREATED  BY     MACRO     ON  28-AU6-85   AT    11:51 
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281 

282 

283 

28^ 

285 

286 

287 

288 

"89 

190 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302  00U72 

303 

304 

305 

306  00K72 

307  00K76 
308 

309 
310 
311 

312  001502 

313  001506 
3U  001512 

315  001516 

316  001522 
317 

318 
319 
320 
321 
322 
323 

324  001526 

325  001534 

326  001536 

327  001542 

328  001544 

329  001546 

330  001550 

331  001'"56 

332  GO'  .0 

333  C01566 
33^  001570 

335  001572 

336  001574 

337  001600 


010667     176530 


005067 
005067 
005067 
017700 


032777 
001433 
016703 
010302 
011303 
001426 
026063 
001371 
026063 
001365 
011312 
001002 
010277 
005267 


.SariL  MANACP  -  NETWORK  MANAGEMENT  ACP 

.SBTTL  GETPKT  -  GET  NEXT  I/O  PACKET  (ACP  RE-START  AFTER  FORK) 

»«-MANACP-NETUORK  MANAGEMENT  ACP  FUNCTION  DISPATCHING 

THIS  ROUTINE  IS  THE  MAIN  LINE  OF  THE  NETWORK  MANAGEMENT  ACr.  r 
PROCESSES  I/O  PACKETS  UNTIL  THE  RECEIVE  QUEUE  IS  EMPTV.  WHEN  THERE 
ARE  NO  PACKETS  TO  PROCESS,  ANV  THREADS  WHICH  HAVE  FORKED  AND  ARE 
READY  TO  BE  RESUMED  WIIL  BE  PROCESSED.  IF  THE  NUMBER  OF  CURPENT 
USERS  IS  0,  THE  TASK  WILL  EXIT,  ELSE  IT  WILL  STOP. 

EACH  I/O  PACKET  IS  DISPATCHED  TO  A  PROCESSING  ROUTINE  ACCORDING 
TO  ITS  FUNCTION  (I.FCNtI). 

INPUTS: 

I/O  PACKETS  QUEUED  FROM  T.RCVL 

OUTPUTS: 

SIOFIN  CALLED  TO  COMPLETE  I/O 


MANACP:: 

INITIALIZE  THE  ACP 


MOV 
CALL 


SP,ISTACK 
INIACP 


SAVE  INTIAL  STACK  POINTER 
INITIALIZE  ACP 


GET  AN  1/0  PACKET,  IF  NONE,  CHECK  FOR  COMPLETED  FORKS,  IF  NONE, 
CHECK  FOR  CURRENT  USERS.  IF  USERS  <>  0,  STOP  TASK,  ELSE  EXIT 


176476 
176474 
176474 
176316 


OOOOOOG  176272 
176356 

OOOOOOG  000034 
000002G  000036 


176322 
176420 


GETPKT: :SWSTK$ 


10$: 


CLR 
CLR 
CLR 
MOV 


50$ 

CURIOP 

CURCTX 

DELFLG 

STKTCB,RO 


.IF  DF  MN$VOL 


ENTER  SYSTEM  STATE 

ASSUME  NO  I/O  PACKET 

NO  CURRENT  CONTEXT 

DON'T  DELETE  CURRENT  CONTEXT 

POINT  TO  OUR  TCB 

ONLY  DONE  IN  THE  VOLATILE  ACP 


CYET) 
;  RJK02 


LOOK  FOR  PROCESS  LEVEL  MANAGEMENT  REQUESTS  WHICH  HAVE  BEEN  COMPLETED. 
THIS  IS  DONE  BEFORE  I/O  PACKET  PROCESSING,  SO  THAT  SYSTEM  RESOURCES 
ARE  RELEASED  AS  SOON  AS  POSSIBLE. 


BIT  #FE.CEX,SFHASK 

BEQ  13$ 

MOV  NMCLH,R3 

11$:    MOV  R3,R2 

MOV  (R3),R3 

BEO  13$ 

CMP  T.NAM(R0),C.ADD(R3) 

BNE  1 1  $ 

CMP  T.NAM+2(R0),C.ADD+2(R3) 

BNE  1 1  $ 

MOV  (R3),(R2) 

BNE  12$ 

MOV  R2,SNMCL2 

12$:    INC  FDNCNT 


COMM  EXEC  LOADED  ;  RJK02 

IF  EQ,  NO  -  SKIP  CHECKING  LIST 

GET  POINTER  TO  LISTHEAD      ;  RJK02 

SAVE  UNLINK  ADDRESS 

POINT  TO  NEXT  CCB 

IF  EQ,  NO  COMPLETED  PROCESS  LEVEL  REQUESTS 

COMPARE  FIRST  PART  OF  TASKNAME 

IF  NE,  IT'S  NOT  OUR  CCB 

COMPARE  SECOND  PART  OF  TASKNAME 

IF  NE,  IT'S  SOMEONE  ELSES 

ELSE,  UNLINK  BUFFER  FROM  LIST 

IF  NE,  NOT  LAST  IN  LIST 

ELSE,  MODIFY  LIST  TAIL  POINTER;  RJK02 

INDICATE  A  FORK  HAS  COMPLETED 


MANACP 
GETPKT 
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MPSDLB 

MPSDLG 

MP$OLI= 

MPSDLT 

MPSDRO 

MP$DST 

MPSDTE 

MP$DTY= 

MPSDUA 

MPSDUC 

MPSDUM 

MPSDUP 

MPSDVC 

MPSDWE 

MPIELT 

MPSETY 

MPSEVE 

MPSFNC 

MPSGDT 

MP$GNM 

MPSGRO 

MPSGRP 

MPSGTY 

MP$HAD 

MPSHBT 

MPSHDD 

MPSHTM 

MPSHUA 

MPSIAT 

MPSIDE 

MPSIDP 

MPSIHO 

MPSINA 

MPSIND 

MPSINI 

MPSITI 

MPSLAA 

MPSLAN 

MPSLAR 

MPSLAS 

MPSLBS 

MPSLCO 

MPSLCT 

MP$LHL 

MPSLLE 

MPSLLO 

MPSLMB 

MPSLMX 

MPSLNA 

MPSLNO 

MPSLOA 

MPSLOG 

MPSLOe 

MPSLTM 

MP$LTV 

MPSLWI 

MPSMAC 


002571 

004521 

00H66 

002200 

001441 

000454 

002140 

001452 

000207 

000210 

000202 

002127 

002114 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 

001757 

002142 

000162 

001612 

002210 

001322 

000144 

006327 

000215 

002177 

002204 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 

000156 

000232 

000227 

004432 

002152 

002200 

000144 

000233 

000170 

004514 

000620 

001613 

004533 

000230 

004420 


MPSMAD 

MPSMAP 

MPSMAR 

MPSMAV 

MPIMBN 

MPSMBR 

MPSMBU 

MPSMCB 

MPSMCO 

MPSMDE 

MPSMHO 

MPSHLB 

MPSMLK 

MPSMLN 

MPSMLP 

MPSKRB 

MPSMRG 

MPSMRP 

MPSMRT 

HPSMRV 

MPSHSB 

MPSHVE 

MPSMVI 

MPSMVR 

MPSMWN 

MPSMXB 

MP$HXC 

MPSMXR 

MPSMXW 

MPSNAA 

MPSNAC 

MPSNAP 

MPSNCT 

MPSNET 

MPSNLI 

MPSNNA 

MPSNOD 

MPSNRA 

MPSNRB 

MPSNSA 

MP$NTI 

MPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

«P$0NA 

MPSONR 

MPSOQL 

MPSOTI 

MPSorv 

MPSOUS 
MPSOVE 
MPSOWN 
HPSPAR 


001630 

006323 

001635 

006321 

001636 

001637 

001642 

000156 

001632 

004421 

001633 

000202 

001306 

001631 

006333 

002171 

001605 

006322 

002153 

006320 

000170 

000145 

001634 

001751 

002154 

002172 

000466 

001630 

002143 

006335 

001130 

006326 

000240 

002114 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 


MPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

MPSPMC 

MPSPNT 

HPSPRl 

HPSPRO 

MPSPSS 

MPSPST 

MPSRET 

MPSRFA 

MPSRMX 

MPSRPA 

MPSRPR 

HPSRRT 

MPSRST 

HPSRSV 

MPSRSZ 

MPSRTI 

MPSRTM 

HPSRVE 

HPSRVT 

MPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MPSSDV 

MPSSEH 

MPSSER 

MPSSET 

MPSSGZ 

MPSSID 

MPSSIN 

MPSSLI 

MPSSLO 

MPSSMX 

MPSSND 

MPSSNP 

MPSSNU 

MPSSOB 

MPSSPA 

MPSSPR 

MPSSPS 

MPSSTA 

MPSSTI 

MPSSTT 

MPSSTY 

MP$SU6 


000513 
002152 
000024 
000144 
002114 
000170 
000012 
000025 
002140 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 
000144 
000000 
001644 
000176 
000310 
000156 
000171 
002202 
000500 
006332 
000542 
000524 
000157 
000536 
000513 
000000 
002140 
002201 
000175 
000001 


MPSSUR 

MPSSUS 

MPSSVR 

MPSSWI 

HPSSYP 

MPSTFL 

MPSTHI 

HP$TH2 

MP$TH3 

HPSTLN 

MPSTLO 

MPSTPA 

MPSTRI 

MPSTST 

HPSTYP 

MPSUCS 

MPSUSR 

HPSVEC 

MPSVER 

MPSWDF 

MPSWMX 

MPSXMT 

MPSXPF 

MPSXPL 

MPSXPT 

MPSXXX 

MP$5ST 

MSSACT 

MSSADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 

MSSGLO 

MSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOFF 

MSSON 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

MSSRSX 

MS$RT 

MS$SER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 


000156 
000512 
000163 
002260 
002424 
000156 
002206 
002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
M7777 
004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
0C0003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 


MSSTER 

MSSTOP 

MSSTRI 

HSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MT$BIL 

MTSBYS 

MTSCI 

HTSCLE 

MTSCOD 

MTSCON 

MTSDHC 

MTSETH 

MISHEX 

MTSLPB 

MTSMAX 

MTSMUL 

MTSNLE 

HTSNON 

MT$NR4 

HT$NTY 

HTSOCT 

MTSPHA 

MTSPOI 

MT$QP2 

MTSROU 

MT$R04 

MT$SEC 

HTSSGD 

MTSSYS 

MTSTER 

MTSTRI 

HTSTYP 

MTSUSD 

MT$X25 

MUSING 

MUSOUT 

HUSPER 

MVSIIl 

MVSIV 

MXSACT 

MXSCIR 

MXSCLN 

HXSCNM 

HXSCON 

MXSDAC 

MXSDTE 

MXSFIL 

MXSLGC 

MXSLIN 

HXSLON 


000001 

000003 

000005 

000005 

000004 

177600 

000002 

000003 

000001 

000003 

000100 

000001 

000011 

000007 

000077 

000200 

000001 

000004 

000006 

000040 

000005 

000037 

000100 

000017 

000001 

000005 

000060 

000060 

000002 

000000 

000010 

000000 

000004 

000000 

000020 

000002 

000001 

000002 

007777 

000000 

000003 

000001 

000002 

000000 

000000 

000001 

000020 

000020 

000020 

000006 

000006 

000020 

000020 

000034 

000777 

000020 

000006 
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59 
60 
61 
62 
63 
M 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 

81  000000 

82  000000 

83  000002 

84  000006 

85  OOOOU 

86  000022 

87  000024 

88  000026 

89  000032 

90  000036 

91  000042 

92  000046 


.SBTTL  NTLAST  -  NTL  COMPLETION  AST  HANDLING 

'**-NTLAST-NTL  COMPLETION  AST  HANDLING 

THIS  ROUTINE  IS  CALLED  WHEN  NTL/NTINIT  HAS  FINISHED  PROCESSING 
A  REQUEST.  IT  STORES  THE  REQUEST  COMPLETION  STATUS,  AND  MARKS 
THE  THREAD  AS  BEING  READY  TO  BE  RESUMED. 

INPUTS: 

(SP) 
2(SP) 


=  ADDRESS  OF  THREAD  CONTEXT  AREA 
=  COMPLETION  STATUS  OF  REQUEST 


OUTPUTS: 

STACK  CLEANED  OFF,  AND 

CSSTAT  IN  CONTEXT  AREA  =  COMPLETION  STATUS 

CFSFDN  IS  SET  IN  CSFLAG  OF  CONTEXT  AREA  TO  INDICATE  FORK  IS  DONE 

FDNCNT  IS  INCREMENTED  TO  INDICATE  A  THREAD  IS  READV  TO  BE  RESUMED. 

REGISTERS: 

NO  REGISTERS  ARE  MODIFIED 


000002 

OOOOOOG  OOOOOOG 

000004  OOOOOOG 


010046 
016600 
052760 
016660 
012600 
022626 


017700  OOOOOOG 
005267  OOOOOOG 


NTLAST: 


ASTX: 
ASTXl: 


10$: 


MOV 

MOV 

BIS 

MOV 

MOV 

CMP 

SWSTKS 

MOV 

CALLfi 

INC 


REXAST::ASTX$S 


RO,-(SP) 

2(SP),R0 

#CF$FDN,C$FLA6(R0) 

4(SP),C$STAT(R0) 

(SP)+,RO 

(SP)+,(SP)t 

10$ 

aTKTCB,RO 

aEXRQN 

FDNCNT 


SAVE  RO 

GET  CONTEXT  AREA  ADDRESS 

MARK  THREAD  AS  RESUMEABLE 

STORE  COMPLETION  STATUS 

RESTORE  RO 

CLEAN  OFF    STACK 
ENTER   SYSTEM  STATE 
GET   OUR   TCB  ADDRESS 
UNSTOP  OURSELF    AND   RETURN 

INDICATE   A  FORK    IS   COMPLETE 

EXIT   THE   AST 


RJK01 
RJKOl 
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210  00010^ 

006201 

ASR 

R1 

211  000106 

006201 

ASR 

R' 

212  000110 

EXTK$S 

R' 

213  000122 

103457 

BCS 

60$ 

2U  00012A 

215 

216  000130 

060267 

OOOOOOG 

ADD 

R2,P00LSZ 

162767 

OOOOOOG  OOOOOOG 

30$: 

SUB 

#C$SIZE,P00LSZ 

217  000136 

016704 

OOOOOOG 

MOV 

P00LPT,R4 

218  00OK2 

062767 

OOOOOOG  OOOOOOG 

ADD 

#C$SIZE,P00LPT 

219  000150 

010410 

MOV 

R4,(R0) 

220  000152 

005014 

CLR 

(R4) 

221  00015A 

222 

223  000160 

005064 

OOOOOOG 

CLR 

C$fLAG(R4) 

005264 

OOOOOOG 

40$: 

INC 

C$FLAG(R4) 

22-1  000164 

010467 

OOOOOOG 

MOV 

R4,CURCTX 

225  000170 

005267 

OOOOOOG 

INC 

NUHUSR 

226  000174 

012701 

OOOOOOG 

MOV 

#C0NTEX,R1 

227  000200 

012702 

OOOOOOG 

MOV 

#CTXSIZ,R2 

228  000204 

105021 

45$: 

CLRB 

(Rl)  + 

229  000206 

SOB 

R2.45$ 
60i 

230  000212 

SUSTK$ 

231  000216 

012701 

OOOOOOG 

MOV 

#U$SIZ,R1 

232  000222 

CALL 

aAALOCB 

233  000226 

103006 

BCC 

50$ 

234  000230 

017700 

OOOOOOG 

MOV 

aHEADR.RO 

CR0),r6 

6(R0) 

255  000234 

011000 

MOV 

236  000236 

005260 

000006 

INC 

237  000242 

000407 

BR 

60$ 

238  000244 

010067 

OOOOOOG 

50$: 

MOV 

R0,TSKLN2 

239  000250 

017720 

OOOOOOG 

MOV 

aTKTCB,(R0)t 

240  000254 

010420 

MOV 

R4,(R0)+ 

241  000256 

016510 

OOOOOOG 

MOV 

R$OPER(R5),(R0) 

242  000262 

60$: 

RETURN 

TRY  TO  EXTEND  THE  TASK 
IF  CS,  RETURN  WITH  ERROR 
ADD  EXTEND  SIZE  TO  POOL 

REDUCE  POOL  SIZE  BY  A  CONTEXT  BLOCK 
GET  ADDRESS  OF  BLOCK 
UPDATE  POOL  FREE  POINTER 
LINK  THE  BLOCK  INTO  THE  LIST 
MAKE  IT  THE  LAST  IN  THE  LIST 
CLEAR  THE  FLAGS 

INDICATE  CONTEXT  IN  USE  NOW 

SET  CURRENT  CONTEXT  ADDRESS 

INDICATE  ANOTHER  USER 

GET  ADDRESS  OF  LOU  CORE  CONTEXT 

GET  LENGTH  OF  LOW  CORE  CONTEXT  AREA 

CLEAR  OUT  CONTEXT  AREA 

IF  NOT  DONE,  CLEAR  NEXT  BYTE 

ENTER  SYSTEM  STATE 

SET  SIZE  OF  WINDOW  BLOCK 

ALLOCATE  A  BLOCK  ;  RJK02 

IF  CC,  SUCCESS 

ELSE,  GET  SAVED  SP         ;  RJK02 

...  (aa) 

SET  C-BIT 

AND  RETURN 

POINT  2ND  LUN  WORD  TO  WINDOW  BLOCK 

SET  OUR  TCB  ADDRESS         ;  RJK02 

...  CONTEXT  AREA  ADDRESS 

...  OPERATE  ROUTINE  ADDRESS 
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52 
53 
5A 
55 
56 
57 

58  000000 

59  000000 
60 
61 
62 
63 
6^  000000 


000000 


000000 
000002 
000004 
000006 
000010 
000011 
000012 
000020 


000022 
000030 
000103 
000000 


65  000000 


000103 


000020 
000010 
000020 

000000 


000001 
000002 


000000 


000020 
000010 
000020 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 

.MCALL  HANDF$,PKTDF$,ALCCX$,MOCCX$,SAVRG,RESRG,CALLR 


MANDFS 
PKTDFS 


;  DEFINE  NETWORK  MANAGEMENT  SYMBOLS 
;  DEFINE  I/O  PACKET  OFFSETS 


CONTEXT  AREA  OFFSET  DEFINITIONS 

ALCCXS  LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 

MAXID=16. 

MAXPAS=8. 

MAXACC=16. 

.ASECT 

.=0 

OFFSETS  IN  COMMON  WITH  READ  INFORMATION  MODULES 


MAXIMUM  LENGTH  OF  USER  ID 
MAXIMUM  LENGTH  OF  PASSWORD 
MAXIMUM  LENGTH  OF  ACCOUNT 


A$FLG 
A$OPT 
A$PAR 
A$8UF 
A$NUM 
A$TYP 
A$ALI 
ASSCO 


.BLKW 
.SLKW 
.BLKW 
.8LKW 
.BLKB 
.BLKB 
.BLKW 
.BLKW 


1 


FLAG  WORD 

SAVED  OPTIONS  WORD 

CURRENT  PARAMETER  TYPE 

SAVED  POINTER  TO  BUFFER 

NUMBER  OF  BYTES  IN  ANB  (FOR  SET) 

ALIAS  FORMAT  TYPE 

ALIAS  NAME,  SPACE  FILLED 

SCOPE  OF  ALIAS 


OFFSETS  UNIQUE  TO  CHANGE  PARAMETERS  MODULES 
A$DES: 


ASLEN: 


.BLKW 
.BLKB 


3  ;  DESTINATION  NAME,  SPACE  FILLED 

<1+MAXID>+<1+MAXPAS>t<1+MAXACC>  ;  ACCESS  CONTROL  STORAGE 
;  LENGTH  OF  CONTEXT  AREA 


SUCCESSFUL  INITIALIZATION  COMPLETED 
CONTEXT  AREA  OVERFLOWED 


.PSECT 

FLAGS  WORD  BIT  DEFINITIONS 

AF.INI=1 
AF.0VR=2 
MOCCXS  LIST 

Context  area  offsets  and  flags 

.ASECT 

.=0 

THE  FLAG  VALUES,  OPERATION  STATUS  INDICATORS  AND  COMMON  PARAMETERS  MUST 
BE  IDENTICAL  AND  AT  THE  SAME  LOCATION  IN  BOTH  MOCCXS  AND  MORCXS. 


HXACC  =  16. 
MXPAS  =  8. 
MXUID  =  16. 


Maximum  account  string  length 
Maximum  password  string  length 
Maximum  user  id  string  length 
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9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

40 
41 
42 
43 
44 
45 
46 
47 
48 


.TITLE 
.IDENT 


MANFRK  -  NETWORK  MANAGEMENT  ACP  FORK  PROCESSING 
/V05.00/ 


COPYRIGHT  (C)  1982,  1983,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  ACP  FORK  PROCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  16-APR-82 

DECNET-IIM  V3.1 
0ECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MANOIO  -  ISSUE  NETWORK  MANAGEME 
MACRO  CALLS  AN   LOCAL  DATA 

51 

52 

53 

5A 

55 

56 

57  000000 

58 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  CALLS 

.MCALL  ALUN$,QIOU$S,CALLR,MANDf$,DIR$,QIOW$ 


59 

60 

61 

62 

63 

M 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

('5 

76 

77 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91 

92  000000 

93  000010 
94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 

105  OGOOU 

106  000014 

107  000020 


000200 
000454 
177733 


MANDFS 

LOCAL  DEflNITIONS 

CM$RSX=200 
MXMES=300. 
IE.NLN=177733 

.IF  DF  R$$PRO  ;  PRO/DECNET 

NMFMES=20. 
FILEUP=100264 


.ENDC 


DF  R$$PR0 


LOCAL  MACRO  DEFINITIONS 

.MACRO  ERROR   IE, ME, TEXT 

$$$  =  0 

.IF  NB  <TEXT> 

.SAVE 

.PSECT  $$$STR,D,RO,LCL 

$$$  = 

.ASCIZ'  /TEXT/ 

.RESTORE 

.ENDC 

.BYTE   lE.ME 

.WORD   $$$ 

.ENDM   ERROR 


LOCAL  STORAGE 


ALUN: 
NMSTAT 


ALUNS   $TMLUN,NM 
.8LKW   2 


.IF  DF  R$$PRO  ;  PRO/DECNET 
NMF8UF:  .8LKB   NMFMES 

.ENDC   ;  DF  R$$PRO 


ERROR  STRINGS 

ERRT6L: 

ERROR  lE.IDU,  ME. OPE, 
ERROR  lE.HWR,  ME. OPE, 


DEFINE  MANAGEMENT  SYMBOLS 


DEFINE  RSX  SPECIFIC  FUNCTION  FLAG 

LENGTH  OF  BUFFER 

"NO  FILE  ON  LUN"  ERROR 


LENGTH  OF  NICE  BUFFER  FOR  NMFACP 

MP$FUP!<MO$PER*400> 

UPDATE  FILE  BY  PERMANENT  ACP  (NMFACP) 


ASSIGN  LUN 

I/O  STATUS  BLOCK 


NICE  BUFFER  FOR  NMFACP  MESSAGES 


<NM: 
<NM; 


driver  not  loaded>   ;ALUN$  ERROR 
driver  not  resident>  ;ALUN$  ERROR 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

ALCHIN 

000A20  RG 

#7-260 

ALCHOP 

000722  RG 

#7-414 

ALID 

000520  R 

7-263 

7-267 

#7-315 

ALREIN 

000'i26  RG 

#7-264 

ALREOP 

000722  RG 

#7-415 

ALUN 

000000  R 

#5-92 

6-156 

ARID 

000652  R 

7-274 

#7-383 

ARREIN 

000A34   RG 

#7-271 

ARREOP 

000722  RG 

#7-416 

A. LULU 

=  000002 

5-92 

CICHIN 

0O0A42  RG 

#7-278 

CI  CHOP 

000722  RG 

#7-417 

CUD 

000520  R 

7-281 

7-285 

7-289 

CIREIN 

000450  RG 

#7-282 

CIREOP 

000722  RG 

#7-418 

CIZEIN 

000456  RG 

#7-286 

CIZEOP 

000722  RG 

#7-419 

CMtRSX 

=  000200 

#5-61 
7-402 

7-262 

7-266 

ERRTBL 

OOOOU   R 

#5-105 

6-172 

IE. ABO 

=    »»«»«*      GX 

5-112 

lE.OAO 

=   »*«*♦•      GX 

5-109 

lE.HWR 

:    «♦«»*♦      GX 

5-107 

lE.IDU 

r    »*«»»»      GX 

5-106 

lE.NDR 

=    .***«*      GX 

5-114 

lE.NFW 

=   *«***«      GX 

5-113 

lE.NLN 

=    177733 

#5-63 

5-108 

lE.NST 

=   ♦♦*♦*«      GX 

5-111 

lE.OFL 

=    ******      GX 

5-115 

lE.PRI 

=   ♦*»♦»»      GX 

5-110 

INIQID 

000070  R 

#6-155 

7-408 

LICHIN 

000464   RG 

#7-293 

LICHOP 

000722  RG 

#7-420 

LIID 

000520  R 

7-296 

7-300 

7-304 

LIREIN 

000472  RG 

#7-297 

LIREOP 

000722  RG 

#7-421 

LIZEIN 

000500  RG 

#7-301 

LIZEOP 

000722  RG 

#7-422 

LOCHIN 

000532  RG 

#7-326 

LOCHOP 

000722  RG 

#7-423 

LOID 

000544   R 

7-329 

#7-333 

LOREIN 

000540  RG 

#7-330 

LOREOP 

000722  RG 

#7-424 

MD . NON 

U777? 

6-170 

6-171 

MESALI 

000010 

7-261 

7-265 

MESARE 

000005 

7-272 

MESCIR 

000003 

7-279 

''-283 

7-287 

MESLIN 

000001 

7-294 

7-298 

7-302 

IE  SLOG 

000002 

7-327 

7-331 

MESMOO 

000004 

7-339 

7-343 

7-347 

l»IE$NOD 

000000 

7-356 

7-360 

7-364 

MESOBJ 

000007 

7-377 

7-381 

#7-316 


7-310 


7-314 


7-378 


7-382 


7-394 


7-398 


#7-317 
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A$$CHK= 

A$$CPS= 

At$PRl= 

A$tTRP= 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

BIAS  = 

CURIOP= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DtSBUG= 

D$$ISK=: 

D$$L11= 

D$$YNC= 

D$$yNM= 

E$$XPR= 

F$SLVL= 

G$$TPP= 

G$$TSS= 

6$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

I.PRM  = 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LCSEXT 

LCSINT 

LD$LP  = 

L$$ASG= 

Lt$DRV= 

L$$P11= 

L$$11R= 

MAPADD= 

MAPALI= 

MAPREM= 

MBSDIS 

MBSENA 

MBSFUL 

MBSMIX 

MBSONE 

MBSRXO 

MBSTXO 

IBSZER 

MCSSAB 

MCSBID 

MCSBMC 

MCSBSf 

MCSfAC 


000000 

000000 

000000 

000000 

000020 

000000 

000002 

000010 

000012 

000010 

000002 

**»**»  GX 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

*»**«♦  GX 

♦»*♦♦«  GX 

177546 

177546 

000000 

000074 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

*»»♦»♦  GX 

♦*♦*♦»  GX 

»»««*»  ex 

000001 

000000 

000002 

000002 

000001 

000001 

000000 

000000 

006073 

001765 

001767 

001766 

001442 


HCtCAP 

MCSCCL 

MCSCDC 

MCSCDP 

MCSCIF 

MCSCLD 

MCSCOU 

MCSCTL 

MCSCTR 

MCSCTS 

MCSDOV 

HCSLBR 

MCSLBS 

MCSLDl 

MCSLDO 

MCSLDR 

l"IC$LDS 

MCSLLB 

MCSLLP 

MCSLLR 

MCSLOO 

MCtLRB 

MCSLRP 

MCtLRR 

MCSLSI 

MCSLST 

MCSLUP 

MCSMAP 

MCSMBL 

MCSMBX 

MCSMBY 

MCSMPX 

HCSNAP 

MCSNBR 

MCSNBS 

MCSNCR 

MCSNCS 

HCSNML 

MCSNMR 

MCSNMS 

HCSNNO 

MCSNNU 

MCSNOP 

MCINGR 

MCINPF 

MCSNPR 

HCSNRE 

MCSNRT 

MCS.WR 

MC$P08 

MC$P11 

HCSRFL 

MCSSBU 

MCSSFL 

MCSSVC 

HCSSYL 

MCSSYR 


001440 

001445 

002045 

001441 

001465 

001464 

100000 

001454 

001452 

001453 

002050 

001750 

001751 

001774 

001775 

001762 

001763 

002021 

002115 

002007 

000001 

002020 

002114 

002006 

002032 

002033 

006072 

010000 

001764 

004420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 


MCSSYS 

000024 

MDSFUL 

000000 

ME.CST 

177765 

MCSSYZ 

000000 
001140 

MDSHAL 

000001 

ME.DIS 

177755 

MCSTBR 

MDSHEL 

000002 

ME . DON 

177600 

MCSTBS 

001141 

MDSKCP 

000013 

ME.FCO 

177762 

MCSTDR 

002053 

MDSKDP 

000034 

ME.FIO 

177756 

MCITIM 

000000 

MDSKDZ 

000036 

ME. FOP 

177763 

MCSTYP 

007777 

MDSKL 

000040 

ME. FOR 

177776 

MCSUBU 

002052 

MDSKMX 

000054 

ME. FUN 

M7777 

MCSUFD 

002047 

MDSKMY 

000052 

ME.GRO 

177745 

HCSUMR 

001132 

MDSLEN 

000050 

ME.HAR 

177750 

MCSUHS 

001133 

MDSPCL 

000011 

ME.IID 

\777t7 

HCSVAX 

000003 

MDSQNA 

000005 

ME.LCO 

\777bt 

MCSUID 

ObOOOO 

MDSUNA 

000001 

ME.LPR 

177757 

MCSWIH 

040000 

MDSUIT 

000002 

ME.MPR 

177773 

MCSWIL 

020000 

MD.ABO 

000017 

ME.MVE 

177771 

MC$W08 

020000 

MD.ACC 

000010 

ME. OPE 

177747 

MC$W16 

040000 

MD.AOB 

000016 

HE.PLO 

177751 

MC$W32 

060000 

MD.BOB 

000011 

ME.PMI 

177743 

MCSXBR 

001750 

MO.DIA 

000007 

ME . PNA 

177752 

HCSXBS 

001751 

MD.DOB 

000015 

ME.PRI 

177775 

MCSXCJ 

000322 

MD.DUM 

000002 

ME.PTY 

177772 

MC$XCR 

002260 

MD.FAI 

000014 

ME.PVA 

177760 

MCSXCS 

002261 

MD.FNA 

000001 

ME. RES 

177761 

MCSXDR 

001762 

MD.FOB 

000006 

ME.ROO 

177754 

MCSXDS 

001763 

HD.LOA 

000001 

ME.SIZ 

17777k 

nCSXFR 

002272 

MD.LSH 

000020 

ME. SYS 

1777ttb 

MCSXFS 

002273 

MD.NOB 

000012 

ME.UCO 

177770 

MCSXLJ 

000323 

MD.NON 

Mim 

MFSACT 

177776 

MCSXLR 

002330 

MD.PER 

000000 

MFSADD 

000000 

HCSXMA 

000310 

MD.RES 

000004 

MFSADJ 

177774 

MCSXMC 

002305 

MD.ROB 

000005 

MFSALL 

177775 

MCSXMS 

002304 

MD.RSH 

000013 

MFSBYE 

000300 

MCSXNR 

002332 

MD.SDU 

000005 

MFSCHA 

000023 

MCSXRC 

002316 

MD.SLO 

000003 

MFSDUM 

000020 

MCSXRR 

002331 

MD.SNA 

000000 

MF$EVT 

000001 

MCSXRS 

002342 

MD.TLO 

000004 

MFSFUP 

000264 

HC$020 

000002 

MD.UNA 

000002 

MFSKNO 

177777 

HD$CI 

000007 

MD.UNR 

000003 

MFSLOA 

000017 

MDSCNA 

000003 

MD . UOB 

000007 

MFSLOO 

177775 

MDSCOU 

000001 

MD.VOL 

000006 

MF$REA 

000024 

MD$DA 

000010 

ME  SAL  I 

000010 

MFSSIG 

177773 

MD$DL 

000004 

HE$AL2 

000003 

MFSSPF 

000302 

MDSDLV 

000020 

MESARE 

000005 

MFSSYS 

000026 

MDSDMC 

000014 

MESCIR 

000003 

MFSTES 

000022 

MDSDMF 

000046 

MESEXA 

000000 

MFITRA 

000301 

MDSDMP 

000022 

MESEXE 

000200 

MFSTRI 

000021 

MDSDMR 

000050 

MESLIN 

000001 

MFSZER 

000025 

MDSDMV 

000042 

MESLOG 

000002 

MLSALL 

100000 

MP$DN 

000016 

MESMOD 

000004 

MLSCLS 

000000 

MD$DP 

000000 

MESNOD 

000000 

MLSCON 

000001 

MDSDPV 

000044 

MESNON 

177777 

MLSEXT 

000001 

MD$DQ 

000006 

ME $06 J 

000007 

MLSFIL 

000002 

MDSDTE 

000024 

ME$0B2 

000004 

MLSFIR 

000000 

MDSDU 

000002 

MESPRO 

000005 

MLSINT 

9°989S 

MDSDUP 

000012 

MESSYS 

000006 

HLSKNO 

140000 

MD$DV 

000026 

ME.BLO 

177744 

MLSMON 

000003 

MD$DZ 

000030 

HE. CON 

177753 

MLSSYS 

000002 
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MPSXPL 

MPSXPT 

MP$XXX 

MP$5ST 

MSSACT 

MS$ADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MS$DIE 

MSSDUM 

MSSFAl 

MSSGLO 

MSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOFF 

MS$ON 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

MSSRSX 

NISSRT 

MSSSER 

MSSSHU 

MStSRV 

MSSSTA 

MSSSYN 

MSSTER 


000244 

000240 

177777 

004406 

000001 

000010 

000007 

000006 

000011 

000000 

000003 

000004 

000003 

000004 

000013 

000000 

000002 

000002 

000003 

000002 

000001 

000000 

000006 

000004 

000001 

000003 

000001 

000002 

000005 

000002 

000002 

000007 

000000 

000012 

000001 


MSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTtASC 

MTSBIL 

MTSBYS 

MTSCI 

MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

HTSETH 

MTSHEX 

MTSLPB 

MTSMAX 

MTSMUL 

MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

MTSPHA 

MTSPOI 

MT$QP2 

MTSRCU 

MT$R04 

MTSSEC 

MTSSGD 

MTSSYS 


000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
000001 
000004 
000006 
000040 
000005 
000037 
000100 
000017 
000001 
000005 
000060 
OOOOcO 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 


.  ABS.  000020 
000154 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


•♦♦  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool ; 
Operating  system; 


203 

137 

26784  Words 

17608  Words 

RSX-llM/PLUS 


(   105  Pages) 
(   67  Pages) 


turday 

K  12 

29-Jun-85  10:31 

Page  7- 

3 

MTSTER 

000001 

M$$CRX= 

000000 

X$$DBT= 

000000 

MTSTRI 

000002 

M$$FCS= 

000000 

ZF.COU= 

001000 

MTSTYP 

007777 

M$$MGE= 

000000 

ZF.DDM= 

000001 

MTSUSD 

000000 

M$$NET= 

000000 

ZF.DIA= 

004000 

MT$X25 

000003 

M$$OVR= 

000000 

ZF.DLC= 

000002 

MUSINl 

000001 

NH.CLN 

003400 

ZF.DVP= 

100000 

MUSOUT 

000002 

NM.iNI 

002400 

ZF.INI= 

040000 

MUSPER 

000000 

NM.OPR 

003000 

ZF.KHX= 

000020 

MVSIII 

000000 

NM.VR2 

002401 

ZF.LLC= 

000004 

MVSJV 

000001 

NM.VR3 

002402 

ZF.LMC=: 

000100 

MXSACT 

000020 

N$$ACC= 

000001 

ZF.MAN= 

020000 

MXSCIR 

000020 

N$$BUF= 

000001 

ZF.MFL= 

000010 

MXSCLN 

000020 

N$$LDV= 

000001 

ZF.MTM= 

000400 

MX$CNM 

000006 

N$$MCP= 

000001 

ZF.MUX= 

000040 

MXSCON 

000006 

N$$MLL= 

000001 

ZF.PSE= 

002000 

MXSDAC 

000020 

N$$MOV= 

000010 

ZF.SLI= 

010000 

HXSDTE 

000020 

N$$NCT= 

000001 

ZF.TIH= 

000200 

MXSFIL 

000034 

N$$PEH= 

000001 

ZF.X3P= 

000000 

MXSLGC 

000777 

PDVJD  = 

*»»***  GX 

ZS.ASN= 

100000 

MXSLIN 

000020 

PDVTA  = 

******  GX 

ZS.8SY= 

140000 

HXSLON 

000006 

POOLPT= 

******  GX 

Z.AVL 

000014 

MXSNMS 

000454 

P$$P45= 

000000 

Z.DAT 

000016 

MXSNOD 

000006 

P$$URD= 

000000 

Z.DSP 

000000 

MXSOBJ 

000006 

Q$$OPT= 

000010 

Z.FLG 

000010 

MXSOWN 

000040 

R$$DER= 

000000 

Z.LEN  = 

000016 

MXSPAR 

000036 

R$$K11= 

000001 

Z.LLN 

000006 

MXSPAS 

000010 

R$$SND= 

000000 

Z.MAP 

000020 

MXSRAC 

000047 

R$$11M= 

000000 

Z.NAM 

000004 

HXSRJD 

000047 

SFSANM 

000001 

Z.PCB 

000012 

MXSRPS 

000047 

SFSDNH 

000002 

Z.SCH 

000007 

MXSSID 

000040 

S$$URG= 

000000 

$HEADR= 

******  GX 

MXSSNK 

000377 

S$$YSZ= 

007600 

$MBLUN= 

******  GX 

MXSTYP 

000077 

t$$k;mg= 

000000 

$$$SYS= 

004374 

MXSUID 

000020 

T$$MIN= 

000000 

$$$SYX= 

000000 

M$$CRB= 

000124 

V$$CTR= 

001000 
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SYMBOL 

VALUE 

REFERENCES 

ALCHIN 

- 

****** 

GX 

6-101 

6-102 

ALCHOP 

- 

****** 

GX 

6-101 

6-102 

ALREIN 

r 

****** 

GX 

6-103 

ALREOP 

- 

****** 

GX 

6-103 

ARREIN 

= 

****** 

GX 

6-95 

ARREOP 

r 

<■**♦** 

GX 

6-95 

CICHIN 

- 

****** 

GX 

6-108 

6-109 

CI  CHOP 

= 

****** 

GX 

6-108 

6-109 

CIREIN 

= 

****** 

GX 

6-111 

CIREOP 

r 

****** 

GX 

6-111 

CIZEIN 

- 

****** 

GX 

6-110 

CIZEOP 
CMSRSX 

= 

****** 

000200 

GX 

6-110 
#5-58 
6-159 

6-101 
6-164 

6-102 
6-165 

6-103 
6-170 

6-149 
6-171 

6-150 

6-151 

6-156 

6-157 

FTABLE 

000000 

RG 

#6-91 

LICHIN 

r 

****** 

GX 

6-115 

6-116 

LI  CHOP 

= 

****** 

GX 

6-115 

6-116 

LIREIN 

r 

****** 

GX 

6-118 

LIREOP 

= 

****** 

GX 

6-118 

LIZEIN 

= 

****** 

GX 

6-117 

LIZEOP 

- 

GX 

6-117 

LOCHIN 

= 

****** 

GX 

6-122 

6-123 

LOCHOP 

r: 

****** 

GX 

6-122 

6-123 

LOGOUT 

= 

****** 

GX 

6-185 

LOREIN 

= 

****** 

GX 

6-124 

LOREOP 

r 

****** 

GX 

6-124 

ME SAL i 

000010 

6-101 

6-102 

6-103 

MESARE 

000005 

6-95 

MESCIR 

000003 

6-108 

6-109 

6-110 

6-111 

MESLIN 

000001 

6-115 

6-116 

6-117 

6-118 

MESLOG 

000002 

6-122 

6-123 

6-124 

MESMOD 

000004 

6-131 

6-132 

6-133 

6-134 

MESNOD 

000000 

6-141 

6-142 

6-143 

6-144 

MESOBJ 

000007 

6-149 

6-150 

^-isi 

MESPRO 

000005 

6-156 

6-157 

6-159 

MESSYS 

000006 

6-164 

6-165 

6-170 

6-171 

MFSBYE 
MFSCHA 

000300 
000023 

6-185 
6-101 

6-102 

6-108 

6-109 

6-115 

6-116 

6-122 

6-123 

6-131 

6-132 

6-141 

6-142 

6-149 

6-150 

6-156 

6-157 

6-164 

6-165 

MFSREA 

000024 

6-95 

6-171 

6-103 

6-111 

6-118 

6-124 

6-134 

6-144 

6-151 

6-159 

MFSTRA 

000301 

6-179 

6-180 

6-181 

6-182 

MFSZER 

000025 

6-110 

6-117 

6-133 

6-143 

6-170 

MOCHIN 

r 

****** 

GX 

6-131 

6-132 

MOCHOP 

~ 

****** 

GX 

6-131 

6-132 

MOREIN 

r 

****** 

GX 

6-134 

MOREOP 

- 

****** 

GX 

6-133 

6-134 

MOZEIN 

- 

*♦♦«** 

GX 

6-133 

MOSADD 

000002 

6-181 

MOSALA 

000004 

6-182 

MOSALI 

000000 

6-179 

MOSCLE 

000100 

6-102 

6-109 

6-116 

6-125 

6-132 

6-142 

6-150 

6-157 

6-165 
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•  f  !LF"MD«"ALCHOP 


AAAAAA 

CCCCCCCC 

HH 

HH 

000000 

pppppppp 

AAAAAA 

CCCCCCCC 

HH 

HH 

000000 

pppppppp 

AA      AA 

HH 

HH 

00 

00 

pp    pp 

AA      AA 

HH 

HH 

UU 

00 

pp    pp 

AA      AA 

HH 

HH 

00 

00 

pp    pp 

AA      AA 

HH 

HH 

00 

00 

pp    pp 

AA      AA 

HHHHHHHHHH 

UO 

00 

pppppppp 

AA      AA 

HHHHHHHHH/ 

00 

00 

pppppppp 

AAAAAAAAAA 

HH 

Hh 

00 

00 

pp 

AAAAAAAAAA 

HH 

HH 

OU 

00 

pp 

AA      AA 

HH 

HH 

UU 

00 

pp 

AA      AA 

HH 

HH 

00 

00 

pp 

AA      AA 

LLLLLLLLLL 

CCCCCCCC 

HH 

HH 

000000 

pp 

AA      AA 

LLLLLLLLLL 

CCCCCCCC 

HH 

HH 

000000 

pp 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

S5 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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MD.NOB 
MD.NON 
MD.PER 
MD.RES 
MD.ROB 
MD.RSH 
MD.SDU 
MD.SLO 
MD.SNA 
MD.TLO 
MD.UNA 
MD.UNR 
MD.UOB 
MD.VOL 
ME  SAL  1 
ME$AL2 
MEtARE 
MESCIR 
MESEXA 
MESEXE 
MESLIN 
MEtLOG 
MESMOD 
MESNOP 
ME$NO^ 
ME  SOB J 
MES0B2 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
ME. DON 
ME.FCO 


FIG 
FOP 
FOR 


ME. FUN 
ME.GRO 
ME.HAR 
ME.IID 
ME.LCO 
ME.LPR 
ME.MPR 
ME.MVE 
ME. OPE 
ME. PLC 
ME.PMl 
ME.PNA 
ME.PRI 
ME.PTY 
ME.PVA 
ME. RES 
ME.ROO 
ME.SI7 
ME. SYS 


000012 
177777 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
000000 
000200 
000001 
000002 
00C004 
000000 
177777 
000007 
000004 
000005 
000006 
177744 
177753 
177765 
177755 
177600 
177762 
177756 
177763 
177776 

Mini 

177745 
177750 
177767 
177766 
177757 
177775 
177771 
177747 
177751 
177743 
177752 

177772 
177760 
177761 
177754 
\7''77U 
1777i.t, 


ME.UCO 

MFSACT 

MFSADD 

MFSADJ 

MFSALL 

MFSBYE 

MFSCHA 

MFSDUM 

MFSEVT 

MFSFUP 

MFSKNO 

MFSLOA 

MFSLOO 

MFSREA 

MFSSIG 

MFSSPF 

MFSSYS 

MFSTES 

MFSTRA 

MFSTRl 

MFSZER 

MLSALL 

MLSCLS 

MLSCON 

MLSEXT 

MLSFIL 

MLSFIR 

MLSINT 

MLS<NO 

MLSMON 

HLSSYS 

MLSTOP 

MNSUNL 

MOSACC 

MOSADD 

MOSALA 

MOSALI 

MOSCHA 

MOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

MOSLIN 

MOSLOG 

MOSMIR 

MOSNAM 

MOSNIC 

MOSNOD 

MOSOFF 

MOSON 

MOSOPT 


177770 

177776 

000000 

177774 

177775 

000300 

000023 

000020 

000001 

000264 

177777 

000017 

]7777'5 

000024 

177773 

000302 

000026 

000022 

000301 

000021 

000025 

100000 

000000 

000001 

000001 

000002 

000000 

000000 

140000 

000003 

000002 

000001 

000377 

000200 

000002 

000004 

000000 

000040 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

000000 

000001 


MOSPER 
MOSPRO 
MOSPRS 
MOSREA 
MOSSET 
MOSSTA 
MOSSUM 
MOSTSK 
MOSVOL 
MOSZER 
MPSACB 
MPSACC 
MPSACT 
MPSADD 
MPSADJ 
MPSADP 
MPSADS 
MPSALB 
MPSAMC 
MPSAMH 
MPSANB 
HPSASB 
MPSASC 
MPSAUS 
MPSBBT 
MPS8DF 
MPSBFQ 
MPSBLK 
MPSBLO 
MPSBMX 
MPSBNP 
MPS8RT 
MPSBSA 
MPSBSD 
MPSBS] 
MPSBSP 
MPS8UF 
MPSBUP 
MPSBUS 
MPSCAC 
MPSCAS 
MPSCAT 
MPSCCS 
MPSCHN 
MPSCIR 
MPSCLK 
MPSCLN 
MPSCLT 
MPSCMB 
MPSCMK 
MPSCMX 
MPSCND 
MPSCNU 
MPSCOB 
MPSCON 
MPSCOS 
MPSCPF 


000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

000514 

004526 

000766 

001440 

006325 

004406 

000036 

001640 

001641 

004420 

000024 

004432 

000512 

002165 

002164 

002121 

001616 

001452 

002176 

006330 

001620 

002176 

002203 

002200 

006331 

000170 

006324 

001643 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

000537 

002153 

000310 

001753 

000311 

002126 

001604 

000230 


MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

HPSDAL 

MP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DHO= 

MPSDIA 

MPSDLB 

MPSDLG 

MP$DL1= 

MPSDLT 

MPSDRO 

HPSDST 

MPSDTE 

MP$DTY= 

MPSDUA 

MPSDUC 

MPSDUM 

MPSDUP 

MPSDVC 

MPSDWE 

MPSELT 

MPSETY 

MPSEVE 

MPSFNC 

MPSGDT 

MPSGNM 

MPSGRO 

MPSGRP 

MPSGTY 

MPSHAD 

MPSHBT 

HPSHDD 

MPSHTM 

MPSHWA 

MPSIAT 

MPSIDE 

MPSIDP 

MPSIHO 

MPSINA 

MPSIND 

MPSINI 

MPSITI 

MPSLAA 

MPSLAN 

MPSLAR 

MPSLAS 

MPSLBS 

MPSLCO 


000232 

000226 

000161 

001 ; 55 

002127 

000540 

002570 

001464 

002177 

001131 

000156 

002114 

001320 

001465 

000173 

002571 

004521 

001466 

002200 

001441 

000454 

002140 

001452 

000207 

000210 

000202 

002127 

002114 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 

001757 

002142 

000162 

001612 

002210 

001322 

000144 

006327 

000215 

002177 

002204 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 


MPSLCT 
MPSLHL 
MPSlLE 
MPSLLO 
MPSLMB 
MPSLMX 
MPSLNA 
MPSLNO 
MPSLOA 
MPSLOG 
MPSLOO 
MPSLTM 
MPSLTY 
MPSLWI 
MPSMAC 
MPSHAD 
MPSMAP 
MPSMAR 
MPSMAV 
MPSMBN 
MPSMBR 
MPSMBU 
MPSMCB 
MPSMCO 
MPSMDE 
MPSMHO 
MPSMLB 
MPSMLK 
MPSMLN 
MPSMLP 
MPSMRB 
MPSMRO 
MPSMRP 
MPSMRT 
MPSMRV 
MPSMSB 
MPSMVE 
MPSMVI 
MPSMVR 
MPSMWN 
MPSMXB 
MPSMXC 
MPSMXR 
MPSMXU 
MPSNAA 
MPSNAC 
MPSNAP 
MPSNCT 
MPSNET 
MPSNLI 
MPSNNA 
MPSNOD 
MPSNRA 
HPSNRB 
MPSNSA 
MPSNTI 
HPSNUM 


000156 
000232 
000227 
004432 
002152 
002200 
000144 
000233 
000170 
004514 
000620 
001613 
004533 
000230 
004420 
001630 
006323 
001635 
006321 
001636 
001637 
001642 
000156 
001632 
004421 
001633 
000202 
001306 
001631 
006333 
002171 
001605 
006322 
002153 
006320 
000170 
000145 
001634 
001751 
002154 
002172 
000466 
001630 
002143 
006335 
001130 
006326 
000240 
002114 
000765 
000764 
000500 
006334 
000214 
001617 
002141 
001642 
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l.CCPAR 

870 
S?1 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
=,88 
j8<5 
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001162  012700     000166" 

001166  012701     000073' 

001172  010302 

001174 

001200  105010 

001202  012702     OC0166' 

001206 

001212  000261 

0012U  000410 

001216  010267  000124'       20$: 

001222  016267  000014  000152' 

001230  016267  000016  000154' 


001236  012626 

001240  012603 

C01242  112613 
00''244 


30$: 


MOV  #UORi<SP,R0 

MOV  *PARERR,R1 

MOV  R3,R2 

CALL  $EDMSG 

CLRB  (RO) 

MOV  #U0RKSP,R2 

CALL  LOGEVT 

SEC 

BR  30$ 

MOV  R2,PC8ADR 

MOV  P.REL(R2),BL0CK 

MOV  P.SJZE(R2),BL0CKt2 

MOV  (SP)+,(SP)+ 

MOV  tSP)+,R3 

MOVB  (SP)+,(R3) 
RETURN 

.IFF 


Get  address  of  output  event  string 

Copy  address  of  $EDMSG  instructions 

Copy  address  of  $EDMSG  arguments 

Format  the  output  string 

Make  it  an  ASCIZ  string 

Recover  error-specific  string  address 

'  g  the  event 

3tt  C-bit  to  indicate  load  error 

Branch  to  common  code 

Save  PCS  address 

Copy  partition  mapping  bias 

Copy  partition  size  (32-word  blocks) 

Deallocate  work  area  but  save  C-bit 
Retrieve  address  of  delimiter 
Replace  it  with  original  data 
Exit 


If  no  PLAS 


'Dort 


n  1 


MLD 
SRNAI* 
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SYMBOL  VALUE 


STDDM 

SVSDUM 

SVILOA 

S.COST 

S.FLG 

.,LEN 

S.NMST 

S.OWNR 

S.TSEF 

TKTCB 

TMREFL 

T.RCVL 

WAIT 

WORKSP 

XSSMCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSV 

Z.AVL 

Z.DAT 

Z.OSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

_  PCB 

Z.SCH 

SBLXID 

SCATS 

SCCSRT 

SEDMSG 

SLOBGT 

SLDBRf 

SNToIC 

SPARHD 


000622  RG 
=  000001 
=  000000 

000001 

000000 

000004 

000002 

000003 
=  000002 

000602  RG 
=  000003 

000012 

OOOUO  R 

000166  R 
=   ****** 

=  001000 

=  000001 

=  004000 

=  000002 

=  100000 

=  040000 

=  000020 

=  000004 

=  000100 

=  020000 

=  000010 

=  000400 

=  000040 

=  002000 

=  010000 

=  000200 

=  000000 

=  100000 

=  140000 

000014 

000016 

000000 

000010 

=  000016 

000006 

000020 

000004 

000012 

000007 


****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

#8-245 

#6-83 

#6-83 

#6-85 

#6-85 

#6-85 

#6-85 

#6-85 

8-203 
#8-237 
#7-115 

9-359 
#8-203 
#8-215 

6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 
#6-84 

8-230 

16-848 

8-238 

11-609 

8-239 

8-240 

8-234 

8-235 


12-674 


9-358 

8-202 

12-669 

9-341 

16-870 

6-84 


12-668 
8-203 


16-875 


6-84 

11-604 

16-852 
16-873 


mldiis 
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338  001 60A 

339  001610 
3A0  001 6U 
3A1  001622 
3A2 

3A3 
3AA 
3^5 
3A6  001 62A 

347  001626 

348  001634 

349  001640 

350  001642 

351  001644 

352  001652 

353  001634 

354  001656 
355 

356 
357 

358  001660 

359  001664 
360 

361 
362 

363  001666 

364  001672 

365  001674 

366  001700 
367 

368 
369 

370  001704 

371  001710 

372  001714 
373 

374 

375 

376 

377 

378  001720 

379 

380 

381 

382 

383 

384 

385 

386 

387  001726 

388  001734 
389 

390 
391 
392 
393 
394 


016302 
010362 
052762 
000472 


010005 
017760 
062700 
011003 
001406 
032763 
001414 
010300 
000770 


005767 
001051 


005767 
001402 


010367 
016300 
005263 


000004 
000012 
000002  000002 


176162  OOOOOOG 
OOOOOOG 


MOV  C.NSP(R3),R2 

MOV  R3,C$CCB(R2) 

BIS  #CF$FDN,C$FLAG(R2) 

BR  45$ 

.ENDC  ;DF  MNSVOL 


GET  ADDRESS  OF  CONTEXT  AREA  FROM  CCB 
PASS  BACK  CCB  ADDRESS 
FLAG  CONTEXT  AS  BEING  RESUMEA6LE 
AND  GO  DO  IT! 


SCAN  THE  RECEIVE  QUEUE  LOOKING  FOR  PACKETS  NEEDING  PROCESSING 
13$ 


15$: 


000001  000004 


176340 


MOV 
MOV 
ADD 
MOV 
BEQ 
BIT 
BEQ 
MOV 
BR 


R0,R5 

aCOPT,T.UCB(RO) 

*T.RCVL,RO 

(R0),R3 

17$ 

#1,I.TCB(R3) 

30i 

R3,R0 

15i 


KEEP  A  COPY  OF  TCB  ADDRESS 

DEFAULT  OUR  TI:  TO  CO:      ;  RJK02 

POINT  TO  THE  I/O  PACKET  LISTHEAD 

GET  NEXT  PACKET  ADDRESS 

IF  EQ,  NONE  REMAINING 

HAS  THIS  PACKET  BEEN  SEEN  .ALREADY  ? 

IF  EQ,  NO  •  USE  IT 

ELSE,  CONTINUE  SEACH  FROM  HERE 


NO  NEU  I/O  PACKETS,  LOOK  FOR  COMPLETED  FORKS 


17$: 


TST 
BNE 


FDNCNT 
45$ 


ARE  THERE  ANY  FORKS  TO  BE  RESUMED  ? 
IF  NE,  YES  -  GO  FINISH  PROCESSING  THME 


176326 


176300 
000004 
000004 


NO  COMPLETED  FORKS,  IF  THERE  ARE  CURRENT  USERS,  STOP  THE  TASK,  ELSE  EXIT 


TST 
BEQ 
CALLR 
CALLR 


NUMUSR 
20$ 

aSTPCT 
aDREXT 


20$ 

FOUND  AN  I/O  PACKET 


ELSE,  ARE  THERE  ANY  CURRENT  USERS  ? 
IF  EQ,  NO  -  EXIT 

ELSE,  STOP  TASK  FOR  NOW      ;  RJK02 
EXIT  TASK  ;  RJK02 


FLAG  IT  AS  BEING  PROCESSED 


'5  OOOOOOG  OOOOOOG 


^0$:    MOV  R3,CURI0P 

MOV  I.TCS{R3),R0 

INC  I.TCB(R3) 

.IF  DF  R$$MPL 

SAVRG  <R0,R3> 

CALL  aTKLR 

RESRG  <R3,R0> 

.ENDC 

MOV  T.UCB(R0),T.UCB(R5) 


SAVE  I/O  PACKET  ADDRESS 

GET  USER'S  TCB  ADDRESS 

FLAG  THIS  PACKET  AS  BEING  PROCESSED 


SAVE  TCB  AND  I/O  PACKET 

CLEAR  CURRENT  TI: 

RESTORE  I/O  PACKET  AND  TCB 


RJK02 


AND  SET  OUR  TI:  TO  HIS 


COPY  THE  TASK'S  2ND  LUN  WORD  INTO  LOCAL  STORAGE 


017367 
042767 


000006  176266 
000001  176260 


.IF  DF 

MOV 

SAVMAP 

HAP 

.IFTF 

MOV 

BIC 

.IFT 

RESMAP 

.ENDC 


R$$MPL 
T.PCB(R0),R5 

P.REL(R5) 

;DF  R$$MPL 

ai.LN2(R3),TSKLN2 

#1,TSKLN2 

;DF  R$$HPL 


;DF  R$$MPL 
COPY  ID  STRING  AND  INPUT  DATA  FOR  NM.INI  REQUESTS 


GET  PARTITION  CONTROL  BLOCK  ADDRESS 
SAVE  CURRENT  MAPPING 
MAP  TO  THE  TASK  HEADER 

COPY  THE  TASK'S  SECOND  LUN  WORD 
CLEAR  LUN  INTERLOCK  BIT 

RESTORE  PREVIOUS  MAPPING 
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MXSNMS 

MXSNOD 

MXSOBJ 

MXSOWN 

MXSPAR 

MXSPAS 

MXSRAC 

MXtRID 

MXSRPS 

MX$SID 

MXSSNK 

MXSTYP 

MXIUID 

M$$CRB= 

M$SCRX= 

M$$FCS= 

H$$MGE= 

M$$NET= 

M$$OVR= 

NDRERR 

NLNERR 

NMCLH 

NMCL2 

NMCRS 

NMLST 

NMVVCL= 

NWVVEC 

NH.CLN 

NM.INI 

NH.OPR 

NM.VR2 

NH.VR3 

NTLPT 

NUMUSR 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

OBJHD 

CAST 

O.EFN 


00045A 

000006 

000006 

000040 

000036 

000010 

0000A7 

000047 

000047 

000040 

000377 

000077 

000020 

000124 

000000 

000000 

000000 

000000 

000000 

002250R 

002256R 

0001 20RG 

000122RG 

0001 24RG 

0001 26RG 

000102  G 

OOOOOORG 

003400 

002400 

003000 

002401 

002402 

0001 30RG 

000220RG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

0001 32RG 

000006  G 

000010  G 


.  iBS.   177776 
002760 
Errors   detected: 


000 
001 
0 


O.ESB 

O.LGTH= 

O.LNK 

O.MCRL 

O.PTCB 

O.STAT 

PC. ALT = 

PC.ALM= 

PC.H1H= 

PC.LOU= 

PC.NRM= 

PC.XAF= 

PC.XIT= 

PDVIO 

PDVNM 

PDVTA 

PF.ALL= 

PF.1NS= 

PF.LOG= 

PF.REQ= 

POOLPT 

P00LS2 

PRIERR 

PSIPT 

P$$P45= 

P$$URD= 

0$$OPT= 

RBUFF 

RDBAF 

RDBCT 

RDBNM 

RDBSZ 

RDBTH 

RELOC 

RFSEND 

RFSNCX 

RFSPRV 

RID 

RSFLAG 

RSFUNC 

PSINIT 

RSOPER 

R$PC 

R$R0 

R$R1 


000012  G 

000034 

000000  G 

000002  G 

000004  G 

000014  G 

000004 

001000 

000001 

000002 

000400 

000010 

000200 

0001 34RG 

0001 36RG 

000140RG 

Mini 

000040 

000100 

000200 

000234RG 

000236RG 

002264R 

000142RG 

000000 

000000 

000010 

******  GX 

0001 44RG 
000146RG 
0001 50RG 
000152RG 
0001 54RG 
000036RG 


000200 
000002 
000001 

r  ****** 

000002 
000000 
000004 
000006 
000016 
000002 
000004 


G 

G 

G 

GX 

G 

G 

G 

G 

G 

G 

G 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


♦♦*  Assembler  statistics 


R$R2  = 
R$R3  = 
R$R4  = 
R$R5  = 
RSSIZE 
R$$DER= 

r$$k;11  = 

R$$SND= 

R$$11H= 

S8.ACK= 

SB.BOF= 

SB.DIS= 

SB.ENQ= 

SB.K]L= 

SB.NAK= 

SB.TMO= 

SDBAF 

SDBCT 

SDBNM 

SFSANM 

SFSDNM 

SLTMA 

SLTNM 

SNAPT 

SRSTD 

STATUS 

STPCT 

S$$WRG= 

S$$YSZ= 

TKTC8 

TSKLN2 

t$$i<;mg= 

T$$MIN= 
T.NAM  = 
T.RCVL= 
T.ST3  = 
T.UCB  = 
T3.PRV= 
UA.ACC= 
UA.ALL= 
UA.CAL= 
UA.C0M= 
UA.ECH= 
UA.PRO= 


000006  G 

000010  G 

000012  G 

000014  G 

000010  G 

000000 

000001 

000000 

000000 

177776 

177773 

177771 

177774 

■\77777 

■[77775 

\77771 

0001 56RG 

000160RG 

000162RG 

000001 

000002 

000164RG 

000166RG 

000170RG 

000040RG 

000230RG 

000042RG 

000000 

007600 

000044RG 

000222RG 

000000 

000000 


****** 
****** 
****** 
****** 
****** 

000001 
000400 
000100 
000200 
000004 
000002 


GX 
GX 
GX 
GX 
GX 


Work 

f 

Ip 

reads: 

223 

Work 

f 

lp 

wr  1  tes: 

186 

Size 

ot 

wo 

k  file: 

38064 

Words 

(  14V 

Pages) 

Size 

of 

core  pool : 

17608 

Words 

(  6/ 

Pages) 

UA.PUT= 

UA.SPE= 

UA.TRA= 

UA.TRN= 

UA.TYP= 

UPDCTX= 

U.CW2  = 

U2.PRV= 

V$$CTR= 

WBUFF  = 

W$ACP 

W$CTX 

U$0PR 

WSSIZ 

XAVL 

X8IAS 

X$$DBT= 

ZTIME 

ZTIM2 

$AL0CB= 

$8LXI0= 

$CALLX= 

$CCBAF= 

$CCBAL= 

$CCBCT= 

$CC8GT= 

$CCBNM= 

$CCBRT= 

ICEACC= 

$COPT  = 

SCRUNM 

$CSBRT= 

$DDMAN= 

$DEACB= 

$DECPT= 

$DREXT= 

$EXRQN= 

$EXRQP= 

$F]LHD= 

JFHASK= 

$HEADR= 

$IOFIN= 

$LDBAF= 

$LDBGT= 


000040 
000020 
002000 
001000 
000010 


****** 

******  G 

*****i(  G 

001000 
******  (5 

000000  G 
000002  G 
000004  6 
000006  6 
000172RG 
00017ARG 
000000 
0001 76RG 
000200RG 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


6X 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

000206RG 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


$LDBRT= 

$LGC0N= 

$L6FN8= 

$L6H0N= 

$LGSTT= 

$LGUIC= 

$LLCRS= 

$LLCTA= 

$MOULS= 

$NMCLH= 

$NMCL2= 

$NMCRS= 

$NHLST= 

$NTLPT= 

$OBJHD= 

$PDVID= 

$PDVNM= 

$PDVTA= 

SPRUNM 

$PSIPT= 

$RD8AF= 

$RDBCT= 

$RD8NM= 

$RDBSZ= 

$RDBTH= 

$REL0C= 

$SDBAF= 

$SD8CT= 

$SDBNM= 

$SLTMA= 

$SLTNM= 

$SNAPT= 

$SRSTD= 

$STPCT= 

$TKTCB= 

$XAVL  = 

$XBIAS= 

$ZTIME= 

$ZTIM2= 

$$MSG  = 

$$$SYS= 

$$$SYX= 

.$$$$.= 

...GBL= 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

00020ARG 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

000000 

004374 

000000 

000034 

000000 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
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94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 

113  000054 

114  000054  010046 

115  000056  016600 

116  000062  052760 

117  000070  011600 

118  000072  000754 


.SBTTL  DLXAST  -  DLX  QIO  COMPLETION  AST  HANDLING 

**-DLXAST-DLX  010  COMPLETION  AST  HANDLING 

THIS  ROUTINE  IS  CALLED  UHEN  A  DLX  QIO  HAS  BEEN  COMPLETED. 
IT  MARKS  THE  THREAD  AS  BEING  READY  TO  BE  RESUMED. 

INPUTS: 

(SP)  =  ADDRESS  OF  I/O  STATUS  BLOCK  IN  THREAD  CONTEXT  AREA  (CSSTAT) 

OUTPUTS: 

STACK  CLEANED  OFF,  AND  ,   ^„  ,^ 

CFSFDN  IS  SET  IN  CSFLAG  OF  CONTEXT  AREA  TO  INDICATE  FORK  IS  DONE 

FDNCNT  IS  INCREMENTED  TO  INDICATE  A  THREAD  IS  READY  TO  BE  RESUMED. 

REGISTERS: 

NO  REGISTERS  ARE  MODIFIED 


DLXAST:: 

MOV  R0,-(SP)  ;  SAVE  RO 

000002  MOV  2(SP),R0  ;  GET  I/O  STATUS  BLOCK  ADDRESS 

0000006  OOOOOOC        BIS  #CF$FDN,C$FLAG-C$STAT(RO);  MARK  THREAD  AS  RESUMEABLE 

MOV  (SP),RO  ;  RESTORE  RO 

BR  ASTX1  ;  AND  EXIT  THE  AST 
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MANBUF  -  NETWORK  MANAGEMENT  ACP  MACRO 
DEACTX  -  DEAL'.OCATE  CONTEXT  AREA 

2AA 
2A5 
246 
247 
2A8 
249 
250 
251 
252 
255 
254 
255 
256 
257 
258 
259 
260 
261 
262 

263  000264 

264  000264 

265  000270  016705  OOOOOOG 

266  000274  001422 
267 

268  000276  005367  OOOOOOG 

269  000302  100420 
270 

271  000304  005065  OOOOOOG 

272  000310  005067  OOOOOOG 
273 

274  000314  016703  OOOOOOG 

275  000320  016700  OOOOOOG 

276  000324  001406 

277  000326  005067  OOOOOOG 

278  000332  012701  OOOOOOG 

279  000336 

280  000342 
281 
282  000344  000004 
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.SBTTL  DEACTX  -  DEALLOCATE  CONTEXT  AREA 

**-DEACTX-DEALLOCATE  A  CONTEXT  AREA 

THIS  ROUTINE  DEALLOCATES  THE  CURRENT  CONTEXT  AREA,  AND  THE  CURRENT 
WINDOW  BLOCK  IF  NEEDED. 

INPUTS; 

CURCTX  =  ADDRESS  OF  CONTEXT  AREA  TO  BE  DEALLOCATED 

CURIOP  =  ADDRESS  OF  I/O  PACKET 

TSKLN2  =  2ND  LUN  WORD  FROM  USER  TASK  HEADER 

OUTPUTS: 

NUMUSR  IS  DECREMENTED  TO  INDICATE  ONE  LESS  USER 

REGISTERS: 

NO  REGISTERS  ARE    MODIFIED 


DEACTX: 


CALL 

MOV 

BED 

$SAVAL 
CURCTX, R5 
10$ 

DEC 
BMI 

NUMUSR 
20$ 

CLR 
CLR 

C$FLAG(R5) 
CURCTX 

10$: 

MOV 

MOV 

BEQ 

CLR 

MOV 

CALL 

RETURN 

CURIOP, R3 

TSKLN2,R0 

10$ 

TSKLN2 

#W$SI2,R1 

aDDEACB 

20$: 

lOT 

SAVE  ALL  REGISTERS 

POINT  TO  CURRENT  CONTEXT  AREA 

IF  EQ,  THERE  IS  NONE 

...  AND  ONE  LESS  USER 

IF  MI,  TROUBLE       ***  DEBUG  *** 

ELSE,  CONTEXT  IS  NOT  IN  USE 
...  NO  CURRENT  CONTEXT 

GET  I/O  PACKET  ADDRESS 

GET  WINDOW  BLOCK  ADDRESS 

IF  EQ,  NO  BLOCK 

CLEAR  2ND  LUN  WORD 

SET  SIZE  OF  BLOCK 

DEALLOCATE  THE  BLOCK        ;  RJK02 


OOPS 


♦♦*  DEBUG  •♦» 
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MXID  = 

16. 

MXDSTN 

=  MXID 

MXGRPN 

=  MXID 

MXOBJN 

=  MXID 

■  MODULE  entity 

opera 

HSOFLG: 

.BLKU 

MSfLAG: 

.BLKW 

M$FLG2: 

.BLKW 

MSENT: 

.BLKW 

MSPAR : 

.BLKW 

M$OPT: 

.BLKW 

M$BUF : 

.BLKW 

MODULE  entity  parameter  values  (common  to  READ  and  CHANGE) 


M$SCO:   .BLKW   1 
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000020 
000020 
000020 
000020 


000000 
000002 
000004 
000006 
000010 
000012 

oooou 


000016 
00U02O 
000022 
000032 
000033 
000053 
00005A 


00007A 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000116 
000120 
000122 
000K2 
000162 
000166 
000170 
000172 
000222 
000222 
000224 
000226 
000227 
000230 
000231 
000232 
000233 
00021^ 
000235 
000236 
000237 
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:  Maximum  network  management  id  string  length 

:  Max  destination  name 

;  Max  group  name 

;  Max  object  name 


Operation  flags 

Flags  word  1 

Flags  word  2 

Module  to  operate  on 

Parameter  value 

Saved  options  word 

Saved  address  of  input  buffer 


MSDTEL 

:  .BLKW   1 

MSDTE: 

.BLKB   8. 

MSDSTL 

:  .BLKB   1 

M$DST: 

.BLKB   MXID 

MSGROL 

:  .BLKB   1 

M$GRO: 

.BLKB   MXID 

.EVEN 

;  MODULE  entity  para 

M$STA: 

.BLKW   1 

MSPCT: 

.BLKW   1 

MSDTEP 

:  .BLKW   1 

M$PMC : 

.BLKW   1 

H$GNM: 

.BLKW   1 

M$GTY: 

.BLKW   1 

MSOBNL 

:  .BLKW   1 

MSOBNf 

:  .BLKW   2 

MSPRI: 

.BLKW   1 

MSCALL 

:  .BLKW   1 

M$CMK. 

.BLKB   16. 

MSCVA. 

.BLKB   16. 

M$SAD. 

.BLKW   2 

MSTXT 

.BLKW   1 

M$PCH( 

:  .BLKW   1 

M$PCh 

.BLKW   12. 

MSPCHI 

HSBDF 

.BLKW   1 

HSBMX 

.BLKW   1 

M$WDF 

.BLKB   1 

M$WMX 

.BLKB   1 

M$CAT 

.BLKB   1 

M$CLT 

.BLKB   1 

M$RS: 

.BLKB   1 

MSRRT 

.BLKB   1 

M$LMX 

.BLKB   1 

M$RMX 

.BLKB   1 

MSSMX 

.BLKB   1 

MSNETl 

:  .8LK8   1 

global) 
DTE 


Scope  (0   - 

Length  of  DTE  address  (number  of  digits) 

DTE  address  (BCD) 

Length  of  destination  name 

Destination  name 

Length  of  group  name 

Group  name 


New  module  state 

Counter  timer 

Pointer  to  DTE  descriptor 

DTE  maximum  circuits 

Group  number 

Group  type 

Object  number 

Object  name  (RAD50) 

Priority 

Length  of  call  mask/call  value  (bytes) 

Call  mask  (hex  image) 

Call  value  (hex  image) 

Subaddress 

Address  of  error  text 

Number  of  channel  ranges 

Room  for  six  channel  ranges 

End  of  channel  range  table 

Default  data 

Max  data 

Default  window 

Max  window 

Call  timer 

Clear  timer 

Reset  timer 

Restart  timer 

Max  clears 

Max  resets 

Max  restarts 

Length  of  network  name 
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MANFRK  - 

NETWORK  MANAGEMENT 

ACP 

MACRO 

V05.03b  Saturday  29-Jun-85  10:30 

MACRO  CALLS,  LOCAL  DEFINITIONS 

AND 

STORAGE 

50 

.SBTTL  MACRO  CALLS,  LO 

51 
52 

;  MACRO  LIBRARY  CALLS 

53 
5^ 

.MCALL  TC8DF$,PKTDf$ 

55 
56 

000000 

TC8DF$ 

57 
58 
59 

000000 

PKTDFS 

;  OVERLAY  SEGMENT  DESCRIPTOR  OF 

60 

61 

000000 

.ASECT 

62 

000000 

.=0 

63 

000000 

SSDISK: 

6^ 

000000 

SSSTAT:  .BLKW   1 

65 

040000 

SS$NDA=40000 

66 

020000 

SS$LOA=20000 

67 

010000 

SS$OUT=10000 

68 

000002 

SSLOAD:  .BLKW   1 

69 

000004 

SSSIZE:  .BLKW   1 

70 

000006 

S$UP:   .BLKW   1 

71 

000010 

SSDOWN:  .BLKW   1 

72 

000012 

SSNEXT:  .BLKW   1 

73 

000014 

SSNAME:  .BLKW   2 

74 

000020 

SSWIND:  .BLKW   1 

75 

000000 

.PSECT 

Page  5 
LOCAL  DEFINITIONS  AND  STORAGE 


DEFINE  TCB  OFFSETS 
DEFINE  I/O  PACKET  OFFSETS 


RELATIVE  DISK  ADDRESS  (BITS  0-11) 

SEGMENT  STATUS  (BITS  12-15) 

...  SEGMENT  HAS  NO  DISK  ALLOCATION 

...  SEGMENT  IS  LOADED  FROM  DISK 

...  SEGMENT  IS  NOT  LOADED  OR  NOT  MAPPED 

LOAD  ADDRESS 

LENGTH  IN  BYTES 

LINK  UP 

LINK  DOWN 

LINK  ACROSS 

SEGMENT  NAME 

WINDOW  DESCRIPTOR  ADDRESS 


MANFRK  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.03b  Saturday  29-Jun-85  10; 
FORK  -  SAVE  THRfAD  CONTEXT  AND  RE-START  SCAN 
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108  00002A 

109  000030 

110  000034 

m  000040 

112  000044 

113  000050 

114  000054 

115  000060 
116 

117 

118 

119 

120 

121 

122 

123  000064 

124 


NO  FILE  ON  LUN 
BUFFER  TOO  SMALL 
PRIVILEGE  VIOLATION 


ERROR  lE.NLN,  ME. DON 

ERROR  lE.DAO,  ME.SIZ 

ERROR  lE.PRI,  ME.PRI  .     .m. 

ERROR  lE.NST,  ME. OPE,  <Hanagement  ACP  not  instaLled> 

ERROR  IE. ABO,  ME. OPE,  <Managerient  ACP  aborted> 

ERROR  lE.NFW,  ME. OPE,  <Permanent  database  access  not  supported> 

ERROR  lE.NDR,  ME. RES 

ERROR  lE.OFL,  ME. OPE,  vNM:  device  offline> 

.IF  DF  R$$PRO   ;  PRO/DECnet 

ERROR  lE.RSU,  ME. OPE,  <Parameter  updated  but  not  saved  in  fil.e> 

.ENDC  ;  DF  R$$PRO 

ERROR  0,  ME. OPE,  <Directive  failed  -  return  =  > 
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SYMBOL    CROSS   REFERENCE 


SYMBOL  VALUE 


MESPRO 
MESSYS 
ME. DON 
ME. OPE 
ME.PRI 
ME. RES 
ME.SIZ 
MFSCHA 
MFSREA 

MF$ZER 

MOCHIN 

MOCHOP 

MOID 

MORE  IN 

MOREOP 

MOZEIN 

MOZEOP 

MXMES 

NMSTAT 

NM.INI 

NM.OPR 

NOCHIN 

NOCHOP 

NOID 

NOREIN 

NOREOP 

NOZEIN 

NOZEOP 

OBCHIN 

OBCHOP 

OBID 

OBREIN 

OBREOP 

OPRQIO 

PRCHIN 

PRCHOP 

PRID 

PRREIN 

PRREOP 

R$$PRO 

SYCHIN 

SYCHOP 

5YID 

SYREIN 

SYREQP 

SYZEIN 

SYZEOP 

$CBTA 

$DSW 

STMEFN 


000005 
000006 
177600 
177747 
177775 
177761 

000023 
00002A 


000025 

000552 

R(i 

000722 

R(i 

000572 

R 

000560 

R(i 

000722 

RG 

000566 

Rf, 

000722 

RG 

000454 

000010 

R 

002400 

003000 

000600 

RG 

000722 

RG 

000620 

R 

000606 

RG 

000722 

RG 

000614 

RG 

000722 

RG 

000640 

RG 

000722 

RG 

000652 

R 

000646 

RG 

000722 

RG 

000156 

R 

000506 

RG 

000722 

RG 

000520 

R 

000514 

RG 

000722 

RG 

*♦*♦♦* 

000666 

RG 

000722 

RG 

000706 

fi 

000674 

RG 

000722 

RG 

000702 

RG 

000722 

KG 

****** 

GX 

****** 

GX 

GX 

REFERENCES 

7-309 

7-393 

5-108 

5-106 

5-110 

5-114 

5-109 

7-262 

7-266 

7-398 

7-288 
#7-338 
*7-425 

7-341 
#7-342 
#7-426 
#7-346 
#7-427 
#5-62 
#5-93 

6-186 

6-158 

6-161 
#7-355 
#7-428 

7-358 
#7-359 
#7-429 
#7-363 
#7-430 
#7-376 
#7-431 

7-379 
#7-380 
#7-432 
#6-161 
#7-308 
#7-433 

7-311 
#7-312 
#7-434 

5-65 
#7-392 
#7-435 

7-395 
#7-396 
#7-436 
#7-400 
#7-437 

6-188 

6-163 

6-158 


7-313 
7-397 

5-107 


7-280 
7-273 

7-303 
7-345 


6-158 
*6-155 
*6-192 


7-362 

#7-384 
7-438 

#7-318 
5-95 
7-399 

6-161 


7-401 
5-111 

7-295 
7-284 

7-348 
#7-349 


6-161 
6-158 
6-196 


#7-366 
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5-112 


7-310 
7-299 

7-365 


5-113 


7-328 
7-314 

7-402 


5-115 


7-340 
7-332 


5-123 


7-357 
7-344 


7-378 
7-361 


7-394 
7-382 


6-161 
6-244 


♦6-163 


*6-164 


6-165 


6-176 


*6-178 


5-117 
#7-403 


6-1'; 


6-237 
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MLtTOP 

000001 

MPSBRT 

001620 

MPSEVE 

000311 

MPSMRO 

001605 

MPSRET 

001631 

'INtUNl 

\J  \J  V  \J  V     < 

000377 

MPSBSA 

002176 

MPSFNC 

001752 

MPSMRP 

^s^m 

MPSRFA 

001323 

MOSACC 

000200 

HPSBSD 

002203 

MPSGDT 

002222 

MPSMRT 

002153 

MPSRMX 

002201 

MOSADD 

000002 

MPSBSI 

002200 

MPSGNM 

002223 

MPSMRV 

006320 

MPSRPA 

004374 

MOSALA 

OOOOOA 

MPSBSP 

006331 

MPSGRO 

002115 

MPSMSB 

000170 

MPSRPR 

001606 

MOSALI 

\J  \/  \J  \J  \J      T 

000000 

MPSBUF 

000170 

MPSGRP 

000541 

MP$MVE 

2901^? 

MP'.RRT 

002213 

MOtCHA 

OOOOAO 

HPSBUP 

006324 

MPIGTY 

002224 

MPSMVI 

001634 

MP$RST 

002212 

MOSCIR 

000003 

MPSBUS 

001643 

MPSHAD 

001757 

MPtMVR 

001751 

MPSRSV 

001754 

MO$CLE 

000100 

MPSCAC 

001750 

MPSHBT 

002142 

MPSHUN 

502154 

MP$RSZ 

001756 

MOSCOU 

000060 

MPSCAS 

001762 

MPSHDD 

000162 

MPSMXB 

002172 

MPSRTI 

001616 

MOSDAC 

000000 

MPSCAT 

002210 

MPSHTM 

001612 

MPSMXC 

000466 

MPSRTM 

001611 

MOSDEF 

000000 

HPSCCS 

004406 

MPSHUA 

002210 

MPSMXR 

001630 

MPSRVE 

001604 

MOSDPR 

\J  \J  \J  \J\^  \J 

000000 

MPSCHN 

002141 

MPSJAT 

001322 

MPSMXU 

002143 

MPSRVT 

000156 

MO$ENT 

\J  \^  \/  \J  \J  *J 

000017 

MPSCIR 

000144 

MPSIDE 

000144 

MPSNAA 

006335 

MPSSAC 

000514 

MOSEVE 

000100 

MPSCLK 

002131 

MPSIDP 

006327 

MPSNAC 

001130 

MPSSAD 

000543 

MOSINF 

000160 

MPSCLN 

002126 

MPSIHO 

000215 

MPSNAP 

006326 

MPSSCA 

000310 

MOSINS 

00OOC2 

MPSCLT 

002211 

HPSINA 

002177 

MPSNCT 

8292^9 

MPSSCO 

000144 

moIlin 

000001 

MPSCMB 

002142 

HPtJND 

002204 

HPSNET 

002114 

MPSSCT 

002176 

MDSLOG 

000001 

MPSCMK 

000537 

HPSINI 

002201 

MPSNLI 

000765 

MPSSDU 

000203 

1    \\J  ■m'l^^J  ^mi 

MOSMIR 

U  V  U  x^  V  ' 

000031 

MPSCHX 

002153 

MPSITI 

000776 

MPSNNA 

000764 

MPSSDV 

000160 

MOtNAM 

000001 

MPSCND 

000310 

HPSLAA 

000231 

MPSNOD 

000500 

MP$SEH 

004401 

MOSNIC 

000023 

MPSCNU 

001753 

HPSLAN 

000234 

MP$NRA 

006334 

MPSSER 

000144 

MOSNOD 

U  V  W  V  ^  -^ 

000000 

HPSCOB 

000311 

MPSLAR 

000202 

MP$NRB 

000214 

MPSSET 

000000 

MOioFF 

000001 

MPSCON 

002126 

MPSLAS 

000012 

MPSNSA 

001617 

MPSSGZ 

001644 

MO$ON 

000000 

MPSCOS 

001604 

MPSLBS 

000203 

MPSNTl 

002141 

MPSSID 

000176 

MOSOPT 

000001 

MPSCPF 

000230 

MPSLCO 

000226 

MPSNUM 

99i^t? 

HPSSIN 

000310 

MOSPER 

000200 

MPSCPL 

000232 

MPSLCT 

000156 

HPSNVE 

001274 

MPSSLI 

000156 

MOSPRO 

000002 

MPSCPT 

000226 

MPSLHL 

000232 

MP$NXN= 

001476 

MPSSLO 

000171 

MOSPRS 

000001 

MPSCPU 

000161 

MPSLLE 

000227 

MPtOAC 

000632 

MPSSMX 

002202 

MOSREA 

000200 

MPSCSZ 

001755 

MPSLLO 

004432 

MPSOAN 

000620 

MPSSND 

9995§9 

MOSSET 

000000 

MPSCUS 

002127 

MPSLMB 

002152 

MPSOCO 

990^?^ 

MPSSNP 

006332 

MOSSTA 

0000?0 

'<P$CVA 

000540 

MPSLMX 

002200 

MPSOHO 

000214 

MPSSNU 

000542 

MOSSUM 

000000 

Hi^SDAL 

002570 

MPSLNA 

000144 

HPSONA 

000764 

MPSSOB 

000524 

MOSTSK 

000000 

MP$DCO= 

001464 

MPSLNO 

000233 

MPSONR 

W^H 

MPSSPA 

000157 

MOSVOL 

000000 

NPSDDT 

002177 

MPSLOA 

000170 

MPSOOL 

001453 

HPSSPR 

000536 

MOSZER 

000000 

MPSDEL 

001131 

MPSLOG 

004514 

MPSOTI 

000777 

MPSSPS 

999^1^ 

MPSACB 

000012 

MPSDES 

000156 

MPSLOO 

000620 

MPSOTY 

001022 

MPSSTA 

000000 

MPSACC 

0005U 

MPSDEV 

002114 

MPSLTM 

001613 

MPSOUS 

000777 

MPSSTI 

002140 

MPSACT 

004526 

MP$DFA 

001320 

MPSLTY 

004533 

MPSOVE 

001010 

MPSSTT 

002201 

MPSADD 

000766 

MP$DH0= 

001465 

MPSLWI 

000230 

MPSOUN 

004374 

MPSSTY 

000175 

MPSADJ 

00U4O 

MPSDIA 

000173 

MPSMAC 

004420 

MPSPAR 

000036 

MPSSUB 

000001 

MPSADP 

006325 

MPIDLB 

002571 

MPSMAD 

001630 

MPSPAS 

000513 

MPSSUR 

000156 

MPSADS 

004406 

MPSDLG 

004521 

MPSMAP 

006323 

MPSPCH 

002152 

MP$SUS 

000512 

MPSALB 

000036 

MP$DLJ= 

001466 

MPSMAR 

001635 

MPSPCO 

000024 

MPSSVR 

000163 

MPSAMC 

001640 

MPSDLT 

002200 

HPSMAV 

006321 

MPSPCT 

000144 

MPSSWI 

002260 

MPSAMH 

001641 

MPSDRO 

001441 

MPSMBN 

001636 

MPSPDT 

002114 

HPSSYP 

002424 

MPSANB 

004420 

HPSDST 

000454 

MPSMBR 

001637 

MPSPHA 

000170 

MPSTFL 

000156 

MPSASB 

000024 

MPSDTE 

002140 

MPSMBU 

001642 

MPSPHY 

000012 

MPSTHI 

002206 

MPSASC 

004432 

MP$D1Y= 

001452 

MPSMCB 

000156 

MPSPLl 

999°?^ 

MP$TH2 

002205 

MPSAUS 

000512 

MPSDUA 

000207 

MP$MCO 

001632 

MPSPLN 

002140 

MP$TH3 

002202 

MPSBBT 

002165 

MPSDUC 

000210 

HPSMDE 

004421 

MPSPLO 

000012 

MPSTLN 

000202 

IIPSBDF 

002164 

MPSDUM 

000202 

MPSMHO 

001633 

MPSPMC 

99^^^^ 

MPSTLO 

9991?i 

itPSBFQ 

002121 

MPSDUP 

002127 

MPSMLB 

000202 

MPSPNT 

002126 

MPSTPA 

004375 

MPSBLK 

001616 

MPSDVC 

002114 

MPSMLK 

001306 

MPSPRI 

004411 

MPSTRI 

002164 

MPSBLO 

001452 

MPSDWE 

001321 

MPSMLN 

001631 

MPSPRO 

9921^0 

MPSTST 

000144 

MPSBMX 

002176 

HPSELT 

000157 

MPSMLP 

006333 

MPSPSS 

001763 

MPSTYP 

002130 

MP$BNP 

006350 

MPSETY 

001605 

MPSHRB 

002171 

MPSPST 

001762 

MPSUCS 

004407 
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REFERENCES 


CMtRSX 

=  000200 

#5-58 

FE.CEX 

=  020000 

#5-59 

FMASK, 

=  ..♦♦..  GX 

7-120 

INIACP 

000000  RG 

#6-87 

INIBUF 

=  ♦*»♦*«  GX 

6-96 

INIREQ 

000014  RG 

#7-119 

ISSAS 

=   ****** 

5-56 

MEtSYS 

000006 

7-137 

ME.CST 

177765 

7-139 

MFSCHA 

000023 

7-137 

MO$SET 

000000 

7-137 

N$$VCT 

-   ****** 

7-131 

PDVID 

=  *««**»  GX 

7-125 

PDVTA 

=  ******  GX 

7-127 

POOLPT 

=  ******  GX 

6-94 

R$$MPL 

=  ****** 

5-61 

R$$11D 

~   ****** 

5-56 

R$$11M 

=  000000 

5-56 

R$t11S 

r  ****** 

5-56 

X$$MCB 

=  ****** 

5-56 

ZF.COU 

=  001000 

#5-56 

ZF.DDM 

=  000001 

#5-56 

ZF.DIA 

=  004000 

#5-56 

ZF.DLC 

=  000002 

#5-56 

ZF.DVP 

=  100000 

#5-56 

ZF.INI 

=  040000 

#5-56 

ZF.KMX 

=  000020 

#5-56 

ZF.LLC 

=  000004 

#5-56 

ZF.LMC 

=  000100 

#5-56 

ZF.MAN 

=  020000 

#5-56 

ZF.MFL 

=  000010 

#5-56 

ZF.MTM 

=  000400 

#5-56 

ZF.MUX 

=  000040 

#5-56 

ZF.PSE 

=  002000 

#5-56 

ZF.SLl 

=  010000 

#5-56 

ZF.TIM 

=  000200 

#5-56 

ZF.X3P 

=  000000 

#5-56 

ZS.ASN 

=  100000 

#5-56 

ZS.BSY 

=  140000 

#5-56 

Z.AVL 

000014 

#5-56 

Z.DAT 

000016 

#5-56 

Z.DSP 

000000 

#5-56 

Z.FLG 

000010 

#5-56 

Z.LEN 

=:  000016 

#5-56 

Z.LLN 

000006 

#5-56 

Z.MAP 

000020 

#5-56 

Z.NAM 

000004 

#5-56 

Z.PCB 

000012 

#5-56 

Z.SCH 

000007 

#5-56 

SHEADR 

r  ».»«♦.   GX 

7-131 

SMBLUN 

=  »..*.♦  GX 

7-146 

7-137 
7-120 


7-141 


5-56 


5-56 


7-129 
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SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

MOSNAM 

000001 

6-180 

HOISET 

000000 

6-101 

6-108 

6-115 

MO$ZER 

000000 

6-110 

6-117 

6-133 

NOCHIN 

- 

****** 

GX 

6-Ul 

6-142 

NOCHOP 

r 

****** 

GX 

6-Ul 

6-142 

NOREIN 

= 

****** 

GX 

6-144 

NOREOP 

~ 

GX 

6-144 

NOZEIN 

- 

****** 

GX 

6-143 

NOZEOP 

~ 

****** 

GX 

6-143 

OBCHIN 

- 

GX 

6-149 

6-150 

OBCHOP 

= 

****** 

GX 

6-149 

6-150 

OBREIN 

r 

****** 

GX 

6-151 

OBREOP 

- 

GX 

6-151 

PRCHIN 

- 

****** 

GX 

6-156 

6-157 

PRCHOP 

r 

****** 

GX 

6-156 

6-157 

PRREIN 

= 

****** 

GX 

6-159 

PRREOP 

:: 

****** 

GX 

6-159 

RfSEND 

~ 

****** 

GX 

6-190 

RFSNCX 

- 

****** 

GX 

6-179 

6-180 

6-181 

RFSPRV 

~ 

****** 

GX 

6-101 
6-123 
6-156 

6-102 
6-131 
6-157 

6-108 
6-132 
6-164 

R$$PRO 

r 

****** 

6-126 

6-168 

R$$RTR 

- 

****** 

6-155 

6-163 

6-184 

SYCHIN 

- 

****** 

GX 

6-164 

6-165 

SYCHOP 

r 

****** 

GX 

6-164 

6-165 

SYREIN 

- 

****** 

GX 

6-171 

SYREOP 

= 

****** 

GX 

6-171 

SYZEIN 

r 

****** 

GX 

6-170 

SYZEOP 

- 

****** 

GX 

6-170 

S$$BAS 

z: 

****** 

6-97 

6-145 

6-184 

TRAACC 

~ 

****** 

GX 

6-182 

TRAADD 

r 

GX 

6-181 

TRAALI 

- 

GX 

6-179 

TRANAM 

' 

****** 

GX 

6-180 
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6-122 
6-143 


6-131 
6-170 


6-141 


6-149 


6-156 


6-164 


6-182 
6-109 
6-133 
6-165 


6-185 
6-110 
6-141 
6-170 


6-115 
6-142 
6-182 


6-116 
6-143 


6-117 
6-149 


6-122 
6-150 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
55 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
6 
1,1 
48 
49 
50 
51 
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AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DlCr  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFT   ,£  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  ALIAS  CHANGE  PARAMETERS  INITIALIZE  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

2.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Table  ot  contents 

MACRO   CAILS   AND   LOCAL    DATA 

ALCHOP   -   ALIAS    CHANGE    PARAMETERS   OPERATE 

SETALI    -   SET    AN  ALIAS 

CLRALI    -   CLEAR   AN  ALIAS 

DEAANB   -   DEALLOCATE    ALIAS   NAME   BLOCK 

FINDA  -   FIND   A  MATCHING   ALIAS  BLOCK 
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S^ 

h- 

/'; 

1- 

119 

R- 

■?hl 

9- 

^Sf 

10- 

AOA 
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MPSNVE 

001 27^ 

MPSSEH 

004401 

MPtNXN- 

00U76 
000632 

MPSSER 

000144 
000000 

MPIOAC 

MP$SET 

MPtOAN 

000620 

MP$SGZ 

001644 

MPtOCO 

000776 

MPtSID 

000176 

MPtOHO 

0002U 

MP$SIN 

000310 

MPtONA 

00076A 

MPSSLI 

000156 

MP$ONR 

0021U 

MPSSLO 

000171 

MPtOQt 

00U53 

MPtSMX 

002202 

MPtOTl 

000777 

MPSSND 

000500 

MPSOTY 

001022 

MPSSNP 

006332 

MP$OUS 

000777 

MPSSNU 

000542 

MPSOVE 

001010 

MPtSOB 

000524 

MPSOWN 

004374 

MPtSPA 

000157 

MPtPAR 

000036 

MPSSPR 

000536 

MPtPAS 

000513 

MPSSPS 

000513 

MPSPCH 

002152 

MPSSTA 

000000 

MPtPCO 

000024 

MPtSTI 

002140 

MPtPCT 

000144 

MPSSTT 

002201 

MPSPDT 

002114 

MPSSTY 

000175 

MPSPHA 

000170 

MPSSUB 

000001 

MPSPHY 

000012 

MPtSUR 

000156 

MPtPLI 

000025 

MPSSUS 

000512 

MPSPLN 

002140 

MPSSVR 

000163 

MPtPLO 

000012 

MPSSWI 

002260 

MPSPMC 

004374 

MPSSYP 

002424 

MPSPNT 

002126 

MP$TFL 

000156 

MPSPRI 

004411 

MPSTHI 

002206 

MPSPRO 

002130 

MP$TH2 

002205 

MP$P5S 

001763 

MP$TH3 

002202 

MPIPST 

001762 

MPSTLN 

000202 

MPSRET 

001631 

MPSTLO 

000172 

MP$RFA 

001323 

MPSTPA 

004375 

MPSRMX 

002201 

HPSTRI 

002164 

MPSRPA 

004374 

MPSTST 

000144 

MPSRPR 

001606 

MPSTYP 

002130 

MPSRRT 

002213 

MPSUCS 

004407 

MPSRST 

002212 

MPSUSR 

001750 

MPSRSV 

001754 

MPSVEC 

004410 

MPSRSZ 

001756 

MPSVER 

004406 

MPSRTI 

001616 

MPSWDf 

002165 

MPSRTM 

001611 

MPSWMX 

002177 

MPSRVE 

001604 

MPSXMT 

002166 

MPSRVT 

000156 

MPSXPF 

000242 

MPSSAC 

000514 

MPSXPL 

000244 

MPSSAD 

000543 

MPSXPT 

000240 

MPISCA 

000310 

MPSXXX 

xmn 

MPSSCO 

000144 

MP$5ST 

004406 

MPSSCT 

002176 

MSSACT 

000001 

MPtSDU 

000203 

MSSADU 

000010 

MPtSDV 

000160 

.  ABS. 

000104    000   (RW,I,G8L,ABS, 

000736    001   (RW,1,LCL,REL, 

Errors 

detected:  0 

••*  Assernbler   statistics 


MS$AL0 

000007 

MT$MUL 

000100 

M$$FCS= 

000000 

MSSASE 

Q00Q06 

MT$NLE 

000017 

950001 

000005 
000060 
000060 

MSSMGE= 

000000 

MSSATR 

00001 

1 

MT$N0N 

MSSNET= 

000000 

MS$AUT 

000000 

MT$NR4 

MSSOVR= 

ffi?88 

MS$CLE 

ooooc 

3 

MT$NTY 

NM.CLN 

MStDED 

0000 

)4 

MTSOCT 

NM.INI 

002400 

MSSDIE 

OOOOi 

)3 

MTSPHA 

000002 

NM.OPR 

003000 

MSSDUM 

000004 

MT$P0] 

000000 

NM.VR2 

002401 

MSSFAl 

0000 

3 

MT$QP2 

000010 

NM.VR3 

002402 

MSSGLO 

000000 

MTtROU 

000000 

N$SACC= 

000001 

MSSHOL 

000002 

MT$R04 

000004 

NSSBUF= 

59S2S] 

MSSJNA 

000002 

MT$SEC 

000000 

NS$LDV= 

000001 

MS$L0A 

000003 

MTSSGD 

000020 

NSSMCP= 

000001 

MSSLOO 

000002 

MTSSYS 

000002 

NSSMLL= 

500001 

MS$0FF 

000001 

MTSTER 

000001 

NS$MOV= 

000010 

MStON 

000000 

MTSTRl 

000002 

NSSNCT= 

000001 

MSSPRO 

000006 

MTSTYP 

007777 

NSSPEM= 

000001 

MSSREA 

000004 

MTSUSD 

000000 

PS$P45= 

000000 

MSSREF 

000001 

MT$X25 

000003 

P$$WRD= 

000000 

MSSRES 

000003 

MUSING 

000001 

QSSOPT= 

000010 

MSSRST 

000001 

MUSOUT 

000002 

RSSDER= 

900000 

MSSRSX 

000002 

MUSPER 

000000 

RSSK11= 

000001 

MS$RT 

000005 

MV$in 

000000 

RSSSND= 

000000 

MSSSER 

000002 

MV$IV 

000001 

RS$11M= 

000000 

MSSSHU 

000002 

MXSACT 

000020 

SETALI 

000072R 

MSJSRV 

000007 

MXSCIR 

000020 

SFSANM 

000001 

MSSSTA 

000000 

MXSCLN 

000020 

SFSDNM 

000002 

MSSSYN 

000012 

MXSCNM 

000006 

SSSWRG= 

000000 

MSITER 

000001 

MXSCON 

000006 

SSSYSZ= 

007600 

MSSTOP 

000003 

MXSDAC 

000020 

TSSKMG= 

000000 

MSSTRI 

000005 

HXSDTE 

000020 

TSSMIN= 

000000 

MSSUNR 

000005 

MXSFIL 

000034 

VSSCTR= 

001000 

MSSVMS 

000004 

MXSLGC 

000777 

W.BATT 

000006 

MS. DON 

177600 

MXSLIN 

000020 

W.BFPD 

000014 

MS.MOR 

000002 

MXSLON 

000006 

W.BHVR 

99995^ 

MS. PAR 

000003 

MXSNMS 

000454 

W.BLGH 

000020 

MS. sue 

000001 

MXSNOD 

000006 

W.BLPD 

000016 

MT$AR4 

000003 

MXSOBJ 

000006 

W.BLVR 

99999? 

MTSASC 

000100 

MX SOWN 

000040 

W.BNPD 

000015 

MTSBIL 

00000 

MXSPAR 

000036 

W.BOFF 

000012 

MTSBYS 

00001 

MXSPAS 

000010 

U.BPCB 

000000 

MT$CI 

000007 

MXSRAC 

000047 

W.BSIZ 

000010 

MTSCLE 

000077 

MXSRID 

000047 

XSSDBT= 

000000 

MTSCOD 

000200 

MXSRPS 

000047 

SCALLX= 

******  GX 

MTSCON 

000001 

MXSSID 

000040 

$CRUNM= 

**»♦«*  GX 

MTSDMC 

000004 

MXSSNK 

000377 

$PRUNM= 

«♦*♦**  GX 

MTSETH 

000006 

MXSTYP 

000077 

SSAVRG= 

******  GX 

MTSHEX 

000040 

MXSUID 

000020 

$XLINK= 

******  GX 

MT$LP8 

000005 

M$SCRB= 

000124 

S$$SYS= 

004374 

MTSMAX 

000037 

M$$CRX= 

000000 

SS$SYX= 

000000 
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»1l:     -  Murocode  LOaae>-      MACRO  V05.03b  Wednesday 
iRNAf»   -  Search  ^ or   Named  Partition 


39^ 
89S 
896 
897 
898 
899 
900 
901 
905 
905 
9^. 
905 
906 
907 
908 

909  00 ^^'•6 

910  001252 

911  001256 

912  001260 

913  001266 
91^ 

915  001270 

916  001276 

917  001300 

918  001304 

919  001306 
92C  001 3' 2 
921 

922  0013K 

923  001320 

924  001322 

925  001324 


926 
927 
928 

929 


0C1326 


017702  000576" 

026213  000004 

001004 

026263  000006  000002 

001417 

032762  000040  000030 

001410 

005762  000010 

001403 

016202  000010 

000757 

016202  000012 
011202 
CO1353 
000261 


.SSTTL 

F  jnction: 

Call  Format: 
Inputs : 
Outputs: 

Registers: 


SRNAM:   MOV 

10$:    CMP 

BNE 

CMP 

BEQ 


N  1 
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SRNAM   -  Search  For  Named  Partition 

•«*  SRNAM  *»♦ 

To  search  the  system  PCB  list  for  a  named  partition.  This 
routine  is  supplied  for  systems  without  PLAS  support. 

CALL    SRNAM 

R3  =  address  of  RAD50  doubleword  partition  name 

C-bit  set:     partition  not  found 

C-bit  clear:    partition  found,  R2  =  PC8  address 

R2  destroyed 


20$: 


30$: 
40$: 


50$: 


BIT 
BEQ 
TST 
BEQ 
MOV 
BR 

MOV 
MOV 
BNE 
SEC 

RETURN 

.ENDC 


aPARHD,R2 

P.NAM(R2),(R3) 

20$ 

P.NAM+2(R2),2(R3) 

50$ 

*PS.SyS,P.STAT(R2) 

40$ 

P.SUB(R2) 

30$ 

P.SU8(R2),R2 

10$ 

P.MAIN(R2),R2 

(R2),R2 

10$ 


Get  address  of  first  PCB 
Match  on  first  word  of  name? 
Branch  if  not 

Hatch  on  second  word  of  name? 
Branch  if  so 

System-controlled  partition? 

Branch  if  not 

Is  there  another  partition? 

Branch  if  not 

Get  next  subpartition  PCB  address 

Look  for  match 

Get  address  of  main  partition  PCB 
Get  address  of  next  PCB 
Branch  if  one  there 
Set  C-bit  for  failure 

Exit 

End  PLAS  conditional 


N  1 

MLC     -  Microcode  Loader     MACRO  V05.03b  Wednesday  28-Aug-85  11:31  Page  18 
SlOAD   -  Load  Control  for  RSX-115  Systems 


MLD11S 

CREATED  BY 

MACRO     ON  28 

-AUG-35   AT 

11:31 

SYMPOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SPDSPL 

=       ****** 

r,x 

8-241 

SPDVTA 

=       ****** 

nx 

8-242 

SQRMVF 

-       ****** 

r,x 

8-236 

$RDBS2 

r     ****** 

fiX 

8-243 

SSLTMA 

-     ****** 

(iX 

8-244 

SSTODM 

-     ****** 

GX 

8-245 

STKTCB 

—     ****** 

GX 

8-237 

$$$ARG 

=  000002 

#11-617 

11-617 

#11-617 

11-617 

11-617 

#11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

$$tGLB 

-      ****** 

8-202 

8-203 

M  2 

PAGE  3 

CREF   04.00 


11-617 

#11-617 

11-617 

#11-617 

11-617 

#11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

#11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

#11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

11-617 

MLDIIS     CREATED  BY  MACRO  ON  28-AUG-85  AT  11:31 
MAfRQ  CROSS  REFERENCE       
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395  001742 

396  001750 

397  001752 

398  001760 

399  001762 

400  001766 

401  001774 

402  001776 

403  002002 

404  002004 

405  002010 
406 

407 
408 

409  002012 

410  002016 

411  002022 

412  002024 

413  002030 
414 

415 
416 

417  002032 

418  002036 

419  002040 

420  002042 

421  002044 

422  002050 

423  002052 
424 

425 
426 

427  002056 

428  002062 

429  002064 

430  002066 

431  002072 

432  002074 

433  002100 

434  002102 

435  002106 

436  002112 

437  002114 

438  002120 

439  002126 
440 

441 
442 

443  002132 

444  002136 

445  002142 

446  002146 

447  002150 

448  002152 

449  002154 

450  002156 

451  002160 


126327  000013  000005 

001017 

026327  000040  000454 

101006 

026327  000032  000062 
101403 

000446 


012700  002206' 
016703  176166 
001003 

000624 


121063  000013 

001405 

005710 

001403 

062700  000004 

000770 


005701 

001410 

020163  000030 

101403 

000402 

005767  176104 
001402 

016767  176066  176066 
005063  000042 


005363  000004 

017704  175702 

062704  OOOOOOG 

010405 

021403 

001402 

01140« 

000774 

011314 


40$: 


43$: 

44$: 
45$: 


CMPB  I. FCNi-l(R3),#NM. INI/256. 

BNE  45$ 

CMP  I.PRM+14(R3),#BUFSIZ 

BHI  43$ 

CALL  RBUFF 

CMP  I.PRM+6(R3),*MAXID 

BLOS  44$ 

CALL  DAOERR 

BR  90$ 

CALL  RID 

RETURN 


INITIALIZE  FUNCTION  ? 

IF   NE,   NO 

WILL   DATA  FIT   INTO   THE   LOCAL  BUFFER    ? 

IF  HI,  NO  -  ERROR 

COPY  THE  USER'S  BUFFER 

WILL  ID  FIT  INTO  THE  LOCAL  ID  BUFFER 

IF  LOS,  YES 

ELSE,  RETURN  DATA  OVERRUN  ERROR 

COPY  THE  USER'S  ID  BUFFER 
RETURN  TO  USER  STATE 


BACK  FROM  SYSTEM  STATE,  IF  NO  I/O  PACKET,  LOOK  FOR  THE  FIRST  COMPLETED  FORK 


50$: 


MOV 

MOV 

BNE 

CALL 

BR 


#100$, RO 

CURI0P,R3 

60$ 

FRKDON 

GETPKT 


POINT  TO  FUNCTION  DISPATCH  TABLE 
GET  I/O  PACKET  ADDRESS 
IF  NF,  THER:  IS  A  PACKET  TO  PROCESS 
ELSE,  PROCESS  ANY  COMPLETED  FORKS 
AND  LOOK  FOR  MORE  WORK 


I/O  PACKET  FOUND,  DISPATCH  BASED  ON  FUNCTION  CODE 


60$: 


70$: 


CMPB 

BEQ 

TST 

BEQ 

ADD 

BR 

CALL 


(R0),I.FCNt1(R3) 

70$ 

(RO) 

70$ 

#4,R0 

60i 

a2(R0) 


MATCH  ON  FUNCTION  ? 

IF  EQ,  YES  -  DISPATCH 

ELSE,  AT  END  OF  TABLE  ? 

IF  EQ,  YES  -  ILLEGAL  FUNCTION 

ELSE,  POINT  TO  NEXT  TABLE  ENTRY 

...  AND  TRY  AGAIN 

DISPATCH  TO  FUNCTION  ROUTINE 


FNIER  SYSTEM  STATE  TO  COPY  DATA  TO  USER  BUFFER  AND  COMPLETE  REQUEST 


75$: 
80$: 


90$: 


SWSTK$ 

TST 

BEQ 

CMP 

BLOS 

CALL 

BR 

CALL 

TST 

BEQ 

CALL 

MOV 

CLR 


50$ 

R1 

80$ 

R1,I.PRMt4(R3) 

DAOERR 

80$ 

WBUFF 

DELFLG 

90$ 

DEACTX 

CURCTX.LSTCTX 

I.PRM+16(R3) 


ENTER  SYSTEM  STATE 

ELSE,  ANYTHING  TO  RETURN  ? 

IF  EQ,  NO 

IS  THE  USER'S  BUFFER  LARGE  ENOUGH  ? 

IF  LOS,  YES 

ELSE,  OVERRUN  ERROR 

ELSE,  WRITE  THE  BUFFER  TO  USER  TASK 

SHOULD  CONTEXT  BE  DELETED  ? 

IF  EQ,  NO 

DEALLOCATE  THE  CONTEXT  AREA  ON  ERROR 

MAKE  CURRENT  CONTEXT  "LAST"  ACCESSED 

CLEAR  RMS  BLOCK  LOCK  INDICATOR 


UNLINK  PACKET  BEING  COMPLETED  FROM  RECEIVE  QUEUE 


95$: 


97$: 


DEC 

MOV 

ADD 

MOV 

CMP 

BEQ 

MOV 

3R 

MOV 


I.TC8(R3) 

aTKTCB,R4 

#T.RCVL,R4 

R4,R5 

(R4),R3 

97$ 

(R4),R4 

95$ 

(R3),(R4) 


FLAG 
RJK02 


CLlAR  "pACI'ET  BEING  PROCESSED' 

GET  'J'JR  iCd  ADDRESS 

POINT  TO  THE  RECEIVE  QUEUE 


IS  IS',  '■URRENT  PACKET  THE  NEXT  IN  LIST 
IF  EQ,  CES  -  UNLINK  IT 
ELSE,  GET  ADDRESS  OF  NEXT 
AND  KEEP  LOOKING 
UNLINK  PACKET  FROM  LIST 
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120 

121 

122 

123 

12*; 

125 

126 

127 

128 

129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139  00007A 

KO  000074  0100A6 


.SBTTL  MRKAST  -MARK  TIME  COMPLETION  AST  HANDLING 

**-MRKAST-MARK  TIME  COMPLETION  AST  HANDLING 

THIS  ROUTINE  IS  CALLED  WHEN  A  MARK  TIME  HAS  EXPIRED. 
IT  MARKS  THE  THREAD  AS  BEING  READY  TO  BE  RESUMED. 

(SP)  =  RETURN  ADDRESS  PAST  LINKAGE  CODE  IN  CONTEXT  AREA  (C$LOC+A) 

OUTPUTS: 

STACK  CLEANED  OFF,  AND  ,,^ 

CFSFDN  IS  SET  IN  CSFLAG  OF  CONTEXT  AREA  TO  INDICATE  FORK  IS  DONE 
FDNCNT  IS  INCREMENTED  TO  INDICATE  A  THREAD  IS  READY  TO  BE  RESUMED. 

REGISTERS: 

NO  REGISTERS  ARE  MODIFIED 


MRKAST: 


HI  000076 

142  000102 

143  000110 
144 

145 


016600 
052760 
000744 

000001 


000002 

OOOOOOG  OOOOOOC 


MOV 
MOV 
BIS 
BR 

.END 


RO,-'SP)  ;  SAVE  RO 

2(SP),R0  ;  GET  RETURN  ADDRESS 

#CF$FDN,C$FLAG-<CIL0C+4>(R0);  MARK  THREAD  AS  RESUMEABLE 
ASTX  ;  UNSTOP  TASK  AND  EXIT  THE  AST 
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284 
285 
285 
287 
288 
289 
290 
291 
292 
295 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 

305  000346 

306  000346 

307  000352 

308  000356 

309  000362 

310  000364 

311  000370 

312  000372 

313  000376 
314 

315  000402 

316  000406 

317  000410 

318  000414 
319 

320  000420 

321  000424 

322  000426 

323  000432 


.SBTTL  UPDCTX  -  UPDATE  THE  CURRENT  CONTEXT 

«*-UPDCTX-UPDATE  THE  CURRENT  CONTEXT 

THIS  ROUTINE  IS  CALLED  TO  MAKE  SURE  THAT  THE  CONTEXT  AT  "CONTEX" 
IS  THE  SAME  AS  THE  ONE  POINTED  TO  BY  "CURCTX".  IF  THE  LAST  CONTEXT 
ACCESSED  CAS  INDICATED  BY  "LSTCT"")  IS  THE  SAME  AS  THE  CONTEXT  TO 
BE  RESTORED,  THEN  NOTHING  HAS  TO  BE  DONE.  ELSE,  THE  '.AST  CONTEXT 
HAS  TO  BE  SAVED,  AND  THE  CURRENT  CONTEXT  MOVED  INTO  "CONTEX  . 

INPUTS: 

CURCTX  =  ADDRESS  OF  CURRENT  CONTEXT 

LSTCTX  =  ADDRESS  OF  LAST  CONTEXT  REFERENCED 

OUTPUTS: 

CONTEX  =  CURRENT  CONTEXT,  LAST  CONTEXT  SAVED  IF  NECCESSARY 

REGISTERS: 

NO  REGISTERS  ARE    MODIFIED 


UPDCTX:: 


012700 
016701 
001407 
020167 
001420 
062701 


016700 
001411 
062700 
012701 

012702 
012021 


OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOC 


10$: 


20$: 
30$: 

40$: 


CALL 

MOV 

MOV 

BEQ 

CMP 

BEQ 

ADD 

CALL 

MOV 
BEQ 
ADD 
MOV 


$SAVAL 

#CONTEX,RO 

LSTCTX, R1 

10$ 

R1, CURCTX 

40i 

#C$DATA,R1 

20$ 

CURCTX, RO 
40$ 

#C$DATA,RO 
#C0NTEX,R1 


MOV  #CTXSIZ/2,R2 

MOV  (R0)+,(R1)+ 

SOB  R2,30$ 
RETURN 


SAVE  ALL  REGISTERS 

POINT  TO  LOW  CORE  CONTEXT 

GET  LAST  CONTEXT  ADDRESS 

IF  EQ,  NO  PREVIOUS  CONTEXT 

IS  IT  THE  SAME  AS  DESIRED  CONTEXT 

IF  EQ,  YES  -  NO  ACTION  REQUIRED 

ELSE,  POINT  PAST  LINK  AND  FLAGS 

SAVE  LAST  CONTEXT 

GET  CURRENT  CONTEXT  ADDRESS 
IF  EQ,  NO  CONTEXT  TO  LOAD 
POINT  PAST  LINK  AND  FLAGS 
POINT  TO  LOW  CORE  CONTEXT 

SET  LENGTH  OF  CONTEXT  IN  WORDS 
SAVE/RESTORE  CONTEXT 
LOOP  TILL  MOVED 
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0002^0 
000260 
000261 
000267 
000270 
000310 
000311 
000351 
000332 
000352 
000353 
000363 
00036A 

000404 
000442 


000001 
000002 
000004 
000010 
000020 
000040 
000100 


000001 
000002 


000010 
000020 


000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 


000010 


M$NET: 

MSSNDL 

MSSND: 

MSOBNL 

MSOBNA 

MSPLNL 

MSPNL 

MSSACL 

MSSAC 

MSSPSL 

H$SPS 

MSSUSL 

M$SUS 

M$SCR 
M$LEN 


.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.EVEN 
.BLKW 


MXID 


MXID 

MXID 

MXACC 

MXPAS 

MXUID 

15. 


Network  name 

Length  of  node  name 

Node  name 

Length  of  object  name 

Object  name  (ASCII) 

Length  of  line  name 

I Tne  name 

/ .count  length 

Account  name 

Password  length 

Password 

User  name  length 

User  name 

Scratch  space 

Length  of  context  area 


Define  function  bits  for  operations  flag  word 


HMSDON  =  1 
MMSPER  =  2 
MMSKNO  =  4 
MMSALL  =  10 
MMSOVR  =  20 
MHSZRO 
MMSMUX 


40 
100 


Processing  complete 

Indicate  error  detail  specified 

KNOWN  specified 

ALL  specified 

Context  area  buffer  overflowed 

ZERO  operation  in  progress 

Line  is  a  MUX  line 


Define  flags  in  MSFLAG  (parameter  presence  indicators) 


Common  parameters 

MFSDST  =  1 
MF$NET  =  2 

Module  X25-ACCESS 

HF$AN8  =  10 
MFSASC  =  20 

Module  X25-PR0T0C0L  (general) 

MFSBDF  =   10 
MFSBMX  =  20 
MFSWDF  =  40 
MFSWMX  ^  100 
MFSCAT  =  200 
MFSCLT  =  400 
HFSRST  =  1000 
MFSRRT  =  2000 
MFSLMX  =  4000 
MFSRMX  =  10000 
MFSSMX  =  20000 

Module  X2n-SERVER 

ftFSSOB  =  10 


DESTINATION  specified 
NETWORK  specified 


NUMBER  specified 
SCOPE  specified 


DEFAULT  DATA  specified 
MAX  DATA  specified 
DEFAULT  WINDOW  specified 
MAX  WINDOW  specified 
CALL  TIMER  specified 
CLEAR  TIMER  specified 
RESET  TIMER  specified 
RESTART  TIMER  specified 
MAX  CLEARS  specified 
MAX  RESETS  specified 
MAX  RESTARTS  specified 


OBJECT  specified 


MANBYE  -  PERFORM  LOGOUT  ClEANUP  MACRO  V05.03b  Wednesday 
MACRO  CALLS  AND  LOCAL  DATA 


N  7 

18-Sep-85  17:20  Page  5-3 


MANFRK  -  NETWORK  MANAGEMENT   ACP  MACRO  VO5.03b  Saturday  29-Jun-85   10: 
FORK.  -   SAVE    THRi^AD    CONTEXT   AND   RE-START    SCAN 


!0  Page  6 


77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

95 

9A 

95 

96 

97 

98 

99 

100  000000 

101  000000 

102 

103 

104 

105  000004 

005005 

106  000006 

016704 

OOOOOOG 

107  000012 

010400 

108  000014 

005205 

109  000016 

016001 

000006 

110  000022 

001413 

111  000024 

032711 

010000 

112  000030 

001406 

113  000032 

016101 

000012 

114  000036 

020160 

000006 

115  000042 

001403 

116  000044 

000767 

117  000046 

010100 

118  000050 

000762 

119  000052 

010046 

120  000054 

016404 

000012 

121  000060 

020467 

OOOOOOG 

122  000064 

001352 

123  000066 

010546 

124 

125 
126 
127  000070 

016746 

OOOOOOG 

128  000074 

016746 

OOOOOOG 

129  000100 

017701 

OOOOOOG 

130  000104 

016146 

000026 

131  000110 

012701 

OOOOOOC 

132  000114 

012641 

133  000116 

020667 

OOOOOOG 

.SBTTL  FORK  -  SAVE  THREAD  CONTEXT  AND  RE-START  SCAN 

•*-FORK-SAVE  THREAD  CONTEXT  AND  RE-START  SCAN 

THIS  ROUTINE  IS  CALLED  TO  SAVE  THE  CONTEXT  FOR  THE  CURRENT  THREAD, 
INCLUDING  THE  TASK  STACK,  IN  THE  CONTEXT  AREA.  THE  THREAD  WILL 
BE  RESUMED  WHEN  THE  CFtFDN  FLAG  IS  SET  IN  CSFLAG  OF  THE  CONTEXT 
BLOCK.  THE  BUFFER  IS  WRITTEN  TO  THE  USER'S  BUFFER  (TO  SAVE  IT). 

INPUTS: 

CURCTX  =  ADDRESS  OF  CURRENT  CONTEXT  BLOCK 
CURIOP  =  ADDRESS  OF  CURRENT  I/O  PACKET 
TSKLN2  =  ADDRESS  OF  TASK'S  2ND  LUN  WORD 
ISTACK  =  INITIAL  STACK  POINTER  FOR  T/^SK 

OUTPUTS: 

CURCTX  =  ADDRESS  OF  SAVED  CONTEXT  AREA  WITH 
C$SP  =  SAVED  STACK  POINTER,  AND  TASK  STACK 
COPIED  INTO  THE  HIGH  ADDRESSES  IN  THE  CONTEXT 
AREA. 

BUFFER  IS  MOVED  INTO  THE  USER'S  BUFFER 


FORK: 


CALL    SSAVAL 
SAVE  OVERLAY  CONTEXT 


10$ 
20$ 
30$ 


40$: 
50$: 


CLR 

MOV 

MOV 

INC 

MOV 

BEQ 

BIT 

BEQ 

MOV 

CMP 

BEQ 

BR 

MOV 

BR 

MOV 

MOV 

CMP 

BNE 

MOV 


R5 

.NST8L,R4 

R4,R0 

R5 

S$UP(R0),R1 

50$ 

«SS$0UT,(R1) 

40$ 

S$NEXT(R1),R1 

R1,S$UP(R0) 

50$ 

30$ 

R1,R0 

20$ 

R0,-(SP) 

S$NEXT(R4),R4 

R4,.NSTBL 

lOi 

R5,-(SP) 


;  SAVE  ALL  REGISTERS  ON  CONTEXT  STACK 


INIT  SAVED  SEGMENT  DESCRIPTOR  COUNT 

GET  POINTER  TO  ROOT  SEG  DESCRIPTOR 

POINT  TO  NEXT  ROOT  SEGMENT 

INDICATE  ANOTHER  SEGMENT  SAVED 

GET  ADD  OF  NEXT  HIGHER  SEGMENT 

IF  EQ,  NO  HIGHER  IN  THIS  TREE 

IS  THIS  MAPPED  ? 

IF  EQ,  YES  -  LOOK  FOR  NEXT  HIGHER 

ELSE,  SCAN  ACROSS  TREE 

ARE  WE  BACK  TO  WHERE  WE  STARTED  SCAN? 

IF  EQ,  YES  -  NO  SEGMENT  LOADED  HERE 

ELSE,  SEE  IF  NEXT  SEG  IS  LOADED 

SAVE  THIS  AS  HIGHEST  SEG  LOADED  SO  FAR 

...  AND  KEEP  LOOKING  ON  THIS  TREE 

SAVE  HIGHEST  LOADED  SEG  DESCRIPTOR 

GET  ADDRESS  OF  NEXT  CO-TREE  ROOT 

ARE  WE  BACK  AT  THE  ROOT  ? 

IF  NE,  NO  -  KEEP  SCANNING 

ELSE,  SAVE  NUMBER  OF  SEG  DESCRIPTORS 


SAVE  THE  CURRENT  I/O  PACKET  ADDRESS,  THE  "TI:"  AND  THE  TASK  STACK 


60$: 


MOV  CURIOP, -(SP) 

MOV  TSKLN2,-(SP) 

MOV  aTKTCB,R1 

MOV  T.UCB(R1),-(SP) 

MOV  #C0NTEXtCTXSIZ,R1 

MOV  (SP)  +  ,-(RP 

CMP  SP, ISTACK 


SAVE  I/O  PACKET  ADDRESS 

SAVE  TASK'S  2ND  LUN  WORD 

GET  OUR  TC8  ADDRESS         ;  RJK01 

...  AND  SAVE  OUR  TI:  UCB  ADDRESS 

POINT  TO  STACK  SAVE  AREA  IN  CONTEXT 

SAVE  TASK  STACK  ON  CONTEXT  STACK 

MORE  TO  COPY  ? 
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INIQIO  -  ISSUE  NM.INI  010  TO  NM: 


126 
127 
128 
129 
130 
131 
132 
133 
M', 
135 
136 
137 
138 
139 
UO 
1A1 
K2 
U3 
U4 
H5 
K6 
K7 
U8 
U9 
150 
151 
152 
153 
15A 

155  000070 

156  00007A 

157  000102 

158  000104 

159  000154 
160 

16"  000156 

162  000226 

163  000230 

164  000236 

165  000242 

166  000246 

167  000250 

168  000252 

169  000254 

170  000256 

171  000262 

172  000266 

173  000272 

174  000274 

175  000276 

176  000300 

177  000304 

178  0CO3O6 

179  000314 

180  000320 

181  000322 

182  000324 


103005 
116767 
105067 
105767 
100451 
001051 
010300 
105020 
112720 
112720 
012702 
022222 
105712 
001403 
121267 
001372 
116267 
016201 
001424 
105020 
112120 


.SSTTL 
.SBTTL 


INIQJO  -  ISSUE  NM.INI  QIO  TO  NM: 
OPRQIO  -  ISSUE  NM.OPR  QIO  TO  NM: 


•*-INIQIO-ISSUE  NM.INI  QIO  TO  NM: 
**-OPRQIO-]SSUE  NM.OPR  QIO  TO  NM: 

THESE  ROUTINES  ISSUE  THE  MANAGEMENT  QIOS  TO  NM: 
THE  ERROR  RETURN  CODES. 

INPUTS: 

INIQIO: 

RO  =  LENGTH  IF  ID  STRING 

R1  =  ADDRESS  OF  ID  S'RING 

R2  =  LENGTH  OF  NICE  MESSAGE  IN  BUFFER 

R3  =  ADDRESS  OF  NICE  MESSAGE  BUFFER 

R4  =  NICE  FUNCTION  AND  OPTION 

OPRQIO: 

R3  =  ADDRESS  OF  NICE  MESSAGE  BUFFER 

OUTPUTS: 

C-81T  SUCCESS/FAILURE  INDICATOR  AND: 
RO  =  NICE  STATUS  CODE 
R2  =  LENGTH  OF  DATA  RETURNED  IN  BUFFER 
R3  =  BUFFER  ADDRESS 


AND  FORMAT 


.ENABL  LSB 


005067  177716 

103451 

000424 


OOOOC 
17754, 
177543 


U7777 
177777 
000010' 


177504 

000001 
000002 


177552 


177475 


INIQIO: 

CLR 

NMSTATt2 

DJR$ 

#ALUN 

BCS 

10$ 

QJOW$S 

*NM.JN1,#$TMLUN,/!"TMEFN,, 

BR 

10$ 

OPRQIO: 

QIOW$S 

#NM.OPR,#$TMLUN,#$TMEFN,, 

10$: 

BCC 

20$ 

MOVB 

$DSW,NMSTAT 

CLRB 

NMSTATt-1 

20$: 

TST8 

NMSTAT+1 

BMI 

70$ 

BNE 

80$ 

25$: 

MOV 

R3,R0 

CLRB 

(r6)  + 

MOVB 

#MD.NON,(R0)t 

MOVB 

#MD.NON,(R0)+ 

MOV 

#ERRrBL-4,R2          ; 

30$: 

CMP 

(R2)+,(R2)t 

TSTB 

(R2) 

BEQ 

40$ 

CMPB 

(R2),NMSTAT 

BNE 

30$ 

40$: 

MOVB 

1(R2), NMSTAT+1 

MOV 

2(R2),R1 

BEQ 

70$ 

CLRB 

(R0)  + 

50$: 

MOVB 

(Rl)  +  ,(RO)f- 

NO  DATA  RETURNED 
ASSIGN  LUN  TO  NM: 
IF  CS,  PROCESS  ERROR 
#NMSTAT,,<R4,R1,R0,R3,R2,#MXMES> 
CHECK  AND  FORMAT  STATUS 

#NMSTAT,,<R3,*MXMES> 
IF  CC,  DIRECTIVE  WAS  OK 
ELSE  DSW  CONTAINS  ERROR 
ZERO  TO  FALL  THRU  TO  ERROR  PROCESSING 
SUCCESSFUL  RETURN  ? 
IF  MI,  NO  -  HAVE  MANAGEMENT  RESPONSE 
IF  NE,  YES 
COPY  BUFFER  POINTER 
SKIP  OVER  RETURN  CODE 
NO  DETAIL  CODE 

POINT  TO  ERROR  TABLE 

BUMP  TABLE  POINTER 

END  OF  TABLl  ? 

IF  EQ,  YES 

IS  THIS  THE  ERROR  CODE  ? 

IF  NE,  NO 

MAP  IT  ONTO  NETWORK  MGMT  RETURN 

CHECK  FOR  DETAIL  STRING 

IF  EQ,  NONE 

SKIP  OVER  LENGTH  BYTE 

COPY  DETAIL  STRING 
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MANQIO 

CREATED  BY 

MACRO  ON 

'9-JUN-85 

AT  10:31 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

tTMLUN 

=  «.»**»  GX 

5-92 

6-158 

6-161 

$$$ 

=  000235  R 

#5-106 

#5-106 

5-106 

5-109 

#5-110 

5-110 

#5-113 

#5-113 

5-113 

#5-123 

5-123 

$$$ARG 

=  000002 

#6-158 

6-158 

#6-158 

6-158 

#6--' 58 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

#6-158 

6-158 

6-158 

6-158 

6-158 

#6-161 

#6-161 

6-161 

6-161 

6-161 

6-161 

#6-161 

6-161 

6-161 

6-161 

6-161 

6-161 

6-161 

$$$GLB 

Z   t ***** 

5-92 

$$$T1 

=  000002 

#5-92 

$$$T2 

=  000004  R 

#5-92 

5-92 

M 

10 

PAGE  5 

CREF   04. 

00 

#5-107 

#5-107 

5-107 

#5-108 

5-108 

#5-109 

#5-111 

#5-111 

5-111 

#5-112 

#5-112 

5-112 

#5-114 

5-114 

#5-115 

#5-115 

5-115 

#5-123 

6-158 

#6-158 

6-158 

#6-158 

6-158 

#6-158 

#6-158 

6-158 

#6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

#6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

6-1 5a 

6-158 

6-158 

6-161 

#6-161 

6-161 

#6-16- 

6-161 

6-161 

6-161 

6-161 

6-161 

6-16' 

6-161 

6-161 

6-161 

6-161 

6-161 

6-16' 

6-161 

6-161 

6-161 

#6-161 

6-161 

6-161 

6-161 

6-161 

6-161 

6-161 

6-161 
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MP$USR 

001750 

MSSREF 

000001 

IPSVEC 

00^410 

MSSRES 

000003 

MP$VER 

004406 

MSSRST 

000001 

MP$UDF 

002165 

MSSRSX 

000002 

MPSWMX 

002177 

MS$RT 

000005 

MPIXMT 

002166 

MSSSER 

000002 

MPtXPF 

000242 

MSSSHU 

000002 

MPSXPL 

000244 

MSSSRV 

000007 

MPSXPT 

000240 

MSSSTA 

000000 

MPSXXX 

177777 

MSSSYN 

000012 

MP$5ST 

004406 

MSSTER 

000001 

MStACT 

000001 

MSSTOP 

000003 

MSSADU 

000010 

MSSTRI 

000005 

MSSALO 

000007 

MSSUNR 

000005 

MSSASE 

000006 

MSSVMS 

000004 

MSSATR 

000011 

MS. DON 

177600 

MSSAUT 

000000 

MS.MOR 

000002 

MSSCLE 

000003 

MS. PAR 

000003 

HSSDED 

000004 

MS. sue 

000001 

MSSDIE 

000003 

MT$AR4 

000003 

MSSDUM 

000004 

MTSASC 

000100 

MSSfAI 

000013 

MTSBIL 

000001 

HSSGLO 

000000 

MTSBYS 

000011 

MSSHOL 

000002 

MT$CI 

000007 

MSSINA 

000002 

MTSfLE 

000077 

MSSLOA 

000003 

MTSCOD 

000200 

MSSLOO 

000002 

M^'SCON 

000001 

MSSOFF 

000001 

MTSDMC 

000004 

MSSON 

000000 

MTSETH 

000036 

MSSPRO 

000006 

MTSHEX 

000040 

MSSREA 

000004 

MULPB 

000005 

.  ABS. 

000020 

one 

(RW,I,GBL,ABS,0VR) 

000410 

001 

(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

♦**  Assembler  stat 

i  s  t  i  c  s 

Work   t 

lie  reads 

197 

Work 

lie  writes 

132 

Si  26  0 

work  file 

25433  Words 

(  100  Pages) 

Size  0 

core  pool 

17608  Words 

(  67  Pages) 

Operating  system 

RSX 

-IIM/PLU; 

MTSMAX 

000037 

MXSDTE 

000020 

MTSMUL 

000100 

MXSFIL 

000034 

MTSNLE 

000017 

MXSLGC 

000777 

MTSNON 

000001 

MXSLIN 

000020 

MT$NR4 

000005 

MXSLON 

000006 

MTSNTV 

000060 

MXSNHS 

000454 

MTSOCT 

000060 

MXINOD 

000006 

MTSPHA 

000002 

MXSOBJ 

000006 

MTSPOI 

000000 

MXSOUN 

000040 

MT$QP2 

000010 

MX$PAR 

000036 

MTSROU 

000000 

MXSPAS 

000010 

MT$R04 

000004 

MXSRAC 

000047 

MTSSEC 

000000 

MXSRID 

000047 

MTSSGD 

000020 

MXSRPS 

000047 

MTSSYS 

000002 

MXSSID 

000040 

MTSTER 

000001 

MXSSNK 

000377 

MTSTRI 

000002 

MX$rYP 

000077 

MTSTYP 

007777 

MXSUID 

000020 

MTSUSD 

000000 

M$$CRB= 

000124 

MT$X25 

000003 

M$$CRX= 

000000 

MUSINC 

000001 

M$$FCS= 

000000 

MUSOUT 

000002 

M$$HGE= 

000000 

MUSPER 

000000 

M$$NET= 

000000 

MVSIII 

000000 

M$$OVR= 

000000 

MV$1V 

000001 

NM.CLN 

003400 

MXSACT 

000020 

NM.INJ 

002400 

MXSCIR 

000020 

NM.OPR 

003000 

MXSCLN 

000020 

NH.VR2 

002401 

MXSCNM 

000006 

NM.VR3 

002402 

MX SCOW 

000006 

N$$ACC= 

000001 

MXSDAC 

000020 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$H0V= 

N$$NCI= 

N$$PEM= 

P$$P45= 

P$$WRD= 

Q$$0PT= 

REPALI= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANM 

SFSDNM 

S$$URG= 

S$$YSZ= 

TRAACC 

TRAADD 

TRAALI 

TRANAM 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$HEADR= 

$$$SYS= 

$$$SYX= 


000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

000001 

000002 

000000 

007600 

000216RG 

OOOOOORG 

000134RG 

000056RG 

000000 

000000 

001000 

000000 

******  GX 

004374 

000000 
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MACRO  NAME 

REFERENCES 

ALUNSS 

#5-53 

7-U6 

CALL 

6-96 

7-123 

7-125 

DIRS 

#5-53 

#7-U6 

7-U6 

GINt 

#5-53 

MANDfS 

#5-53 

5-55 

MOVt 

#7-1A6 

7-U6 

7-U6 

PDVDF$ 

#5-53 

5-56 

RETC 

#5-53 

7-131 

RETURN 

6-97 

7-132 

7-U8 

SW5TK$ 

7-123 

7-U6 
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MACRO  CROSS  REFERENCE  CREF       OA.OO 
MACRO  NAME              REFERENCES 

mml                    'A'-li               6-?t              6-101  6-102             6-103            6-108            6-109            6-110 

6-116             6-7            6-118  6-122             6-123            6-2^            6-3              6-32 

6-K1             6-1«             6-U3  6-U«             6-U9            6-150            6-5              6-56 

6-16'.             6-165             6-170  6-171             6-179            6-180            6-181             6-182 


6-111 

6-115 

6-133 

6-1 3« 

6-157 

6-159 

6-185 

6-190 

N  13 

••FlLE'MD-'PSlBYE 


ALCHlN  -  ALIAS  CHANGE  PARAMETER  MACRO 
MACRO  CALLS  AND  LOCAL  DATA 

5? 

5^ 

55 

56 

57 

58 

59  000000 

60 

61  000000 


000000 


000000 
000002 
000004 
000006 
000010 

oooon 

000012 
000020 


000022 
000030 
000103 
000000 


000020 
000010 
000020 

000000 


62 


000001 
000002 


N  U 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LISRARV  CALLS 

.MCALL  MANDF$,ALCCX$ 

MANDFI 

ALCCXt  LIST 

CONTEXT  AREA  OfFSET  DEFINITIONS 

MAXID=16. 

MAXPAS=8. 

MAXACC:16. 

.ASECT 

.=0 


DEFINE  NETWORK  MANAGEMENT  SYMBOLS 
DEFINE  CONTEXT  AREA 


MAXIMUM  LENGTH  OF  USER  ID 
MAXIMUM  LENGTH  OF  PASSWORD 
MAXIMUM  LENGTH  OF  ACCOUNT 


OFFSETS  IN  COMMON  WITH  READ  INFORMATION  MODULES 


A$FL6 
ASOPT 
A$PAR 
ASBUF 
AtNUM 
A$TYP 
ASALI 
AtSCO 


.BLKW 
.8LKW 
.BLKW 
.BLKW 
.BLK6 
.BLK8 
.BLKW 
.BLKW 


FLAG  WORD 

SAVED  OPTIONS  WORD 

CURRENT  PARAMETER  TYPE 

SAVED  POINTER  TO  BUFFER 

NUMBER  OF  BYTES  IN  ANB  (FOR  SET) 

ALIAS  FORMAT  TYPE 

ALIAS  NAME,  SPACE  FILLED 

SCOPE  OF  ALIAS 


OFFSETS  UNIQUE  TO  CHANGE  PARAMETERS  MODULES 
AIDES 


ASLEN: 


.BLKW 
.8LKB 


.PSECT 

FLAGS  WORD  BIT  DEFINITIONS 

AF.INI=1 
AF.0VR=2 


3  ;  DESTINATION  NAME,  SPACE  FILLED 

<1+MAXID>*<1+MAXPAS>t<1tMAXACC>  ;  ACCESS  CONTROL  STORAGE 
;  LENGTH  OF  CONTEXT  AREA 


SUCCESSFUL  INITIALIZATION  COMPLETED 
CONTEXT  AREA  OVERFLOWED 


N  U 
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ALCHIN  -  ALIAS  CHANGE  PARAMETERS  INITIALIZE 
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I  T  I  Ar  r  7C 


ALfMOf  -  ALIAS  rhANGE  PARAMfTfR  MACRO  VO^.O^b  Tuesday  lO-Seo-SS  11 


'■.II 


Paqe  4 


5 

S 

6 

7 

8 

9 
10 
11 
'2 
13 
K 
15 
16 
17 
18 
19 
?0 
21 
22 
21 
2A 
?•> 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
A3 
44 
45 
46 
A7 
48 
49 

50 
51 


.riILt  AlCHOP  -  Al IAS  CHANGE  PARAMBTfRS  OPERATE 
.IDENT  /V05.00/ 

fOPYRIGMT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  WAV  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK.  MANAGEMENT  -  ALIAS  CHANGE  PARAMETERS  OPERATE  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDEJT  HISTORY: 

I. 00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

2.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS    VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.? 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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AlCHOP  -  ALIAS  CHANGE  PARAMETER  MACRO  V05.03b  Tuesday  10-Sep-85  11:45  Page  5 
MACRO  CALLS  AND  LOCAL  DATA 
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AlChop  -  M1A5   CHANOe   PARAMETER  MACRO  V05.0;b   Tuesday   10-5ep-85   ni45     Page   10-4 
Sywbnl    table 

work     file     reads!  ?10 

work     ti  le  wi  tes  :  U5 

Size  of   work    tile;  ?8019  Words      (    110  Pages) 

Size  of  core  Dool:  17608  Words     (   67  Pages) 

Operating     system;  RSX-1 1M/PLUS 

DBf?ALCHOp!'T?4?ri?5!^5i]ALCHOP/fR/-SP--D8^;[1J]RSXMfM.SML/MLj1?0J10]NETLI8/MLj130J0]RSXMCM/PA;1,[135,^ 


B     1  J      5  E   10  M  14 

CI  K     5  F   10  N  U 
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SlOAD       -  Load  Control    for  RSX-llS  Systems 
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9V 
932 

933 
93^ 
935 
936 
937 
938 
939 
940 
9i1 
9h2 
9'-.  5 

945 

946 
94  7 
948 
949 
950 
951 
952 
955  0C1330 

954  001334 

955  001340 
956 

957  001344 

958  001346 

959  001352 

960  001356 

961  001360 

962  001362 

963  001364 
964 

965  001366 

966  001370 
967 

968  001372 

969 

970 

971 

972  001410 

973  001412 

974  001414 

975  001420 

976  001422 
977 

978  001426 

979  001432 

980  001436 

981  001442 

982  001444 

983  C0U50 
9S4  001452 
985 

986  00U54 
987 


012700 
012702 
062704 

012224 
012724 
012^03 
020312 
003002 
160312 
000402 

011203 
005012 

060342 
000006 


010324 
005024 
005767 
001402 


012744 
016704 

103404 
005767 
001327 
005003 


000001 

000152' 

000014 


140000 
000177 


000154' 


100000 
'^00156' 


000154' 


.SBTTL  SLOAD   -  Load  Control  for  RSX-11S  Systems 
*♦*  SLOAD  ♦♦* 


Function: 

Call  Format: 
Inputs: 

Outputs: 


To  control  microcode  load  sequences  on  RSX-11S  systems. 
This  routine  segments  a  microcode  partition  into  4K  word  pieces 
for  dispatch  to  the  device  driver  and  maintains  the  load  seq- 
uence counter(s)  and  status. 


CAL' 


SLOAD 


PC3ADR  =  address  of  partition's  PCB 
R4  =  address  of  "load  request"  CCB 

Load  sequence  ended 

R3  =  load  '  '  •:  status 

R4  =  addre    f  "halt  load 


CCB 


Registers:    RO  through  h:>   are  destroyed 


SLOAD:  MOV 
MOV 
ADD 


10$: 


20$: 
30$: 


40$: 


50$: 


MOV 
MOV 
MOV 
CMP 
8GT 
SUB 
BR 

MOV 
CLR 

ADD 

.REPT 

ASL 

.ENDR 

MOV 

CLR 

TST 

BEQ 

SOB 

MOV 

MOV 

CALL 

BCS 

TST 

BNE 

CLR 

RETURrj 


#NBUFS,RO 
#8L0CK,R2 
#C.8UF1,R4 

(R2)+.(R4)t 

#140000, (R4)< 

*177,R3 

R3,(R2) 

20i 

R3,(R2) 

30§ 

(R2),R3 
(R2) 

R3,-(R2) 

6 

R3 

R3,(R4)+ 
(R4)  + 
BLOCK+2 
40$ 
R0,10$ 

#CF.LB,-(fi4. 

CUR0ST,R4 

DSPDRV 

50$ 

BLUCKt2 

SLOAD 

R3 


Set  up  a  loop  counter 

Get  address  of  load  control  words 

Point  at  first  CCB  buffer  descriptor 

Copy  bias  of  next  partition  segment 
Starting  address  is  virtual  0  CAPR6) 
Assume  segment  size  =177*32  ~4k  words 
Is  that  greater  than  what's  left? 
Branch  if  so  and  do  some  adjusting 
Compute  #  32-word  blocks  left  to  load 
Branch  to  common  code 

Load  seqment  size  =  partition  remnant 
No  data"  left  to  load 

Compute  bias  of  next  load  segment 
Compute  number  of  bytes  to  load 
from  number  of  32-word  blocks 
in  current  load  segment 
Move  segment  size  in  bytes  to  CCB 
Clear  CCB  flag  word 
Has  end  of  partition  been  reached? 
Branch  if  so 
Loop  around  if  more  to  load 

Mark  last  descriptor  as  last  buffer 

Retrieve  starting  address  of  CCB 

Call  driver  to  load  microcode 

Branch  if  driver  halted  the  load 

Has  the  entire  partition  been  loaded? 

Branch  if  not 

Load  halt  ^^avus  =  end  of  data 

E^i; 


N    2 
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MACRO  CROSS  REFERENCE  CREF       OA.OO 

MACRO  NAME  REFERENCES 

CALL*^  *9-329  9-330             9-352            9-355             9-361             9-372            9-438            9-455             9-466             10-499 

"'-^  10-529  10-574           11-609           12-655           12-661           12-670           12-674           12-680           12-682           16-848 

16-852  16-864  16-873  16-876  18-980 

CALLR  10-547 

DIRS^*  it-ll  #9-269            9-269          #9-318            9-318          #9-319            9-319            9-340            9-341           #9-469 

9-469  #11-617  11-6V        #12-687  12-687 

EVLD^S  #6-79  6-83 

Hois*^  #9-269  9-269            9-269            9-269          #9-318            9-318          #9-319            9-319          #11-617           11-617 

""^*  11-617  11-617           11-617        #11-617           11-617           11-617        #11-617           11-617           11-617 

MRKT$  #6-89  8-202 

MVB$  #11-617  11-617 

L-^FS  #8-202  #8-203 

PL9DF$  #6-72  6-74 

PDVDFS  #6-79  6-84 

QDPeSS  #11-617            11-617 

RETURN  *9-337  9-369^          9-374             10-562           10-577           11-618           12-685           16-887          17-927          18-986 

RVP$  #11-617            11-617           11-617           11-617 

SLTDFI  #6-79  6-85 

SOB  18-976 

SPRASS  #6-78  9-318 

5REA$S  #6-78  9-319 

STSES  #6-89               8-203 

TCBDFS  #6-79                6-81 


MANACP  -  NETWORK  MANAGEMENT  ACP  MACRO  V05.n3b  Saturday  29-Jun-85  10:28  Page  6-3 
GETPKT  -  GET  NEXT  I/O  PACKET  (ACP  RE-START  AFTER  FORK) 


452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 


002162  001002 

002164  010465  000002 


002170 


002170  016773  176026  000006 


002176 

002202  000167  177300 


002206 
002212 
002216 
002222 


BNE 

98$                 ; 

MOV 

R4,2(R5) 

'■    UPDATE  TASK'S 

2ND  LUN  WORD,  POST  COMPLE 

§8$: 

.IF  DF 

R$$I«PL 

MOV 

.TC8(R3),R5 

MOV 

.PCe(R5),R5 

SAVMAP 

HAP 

P.REL(R5) 

.IFTF 

;DF  R$$MPL 

MOV 

TSKLN2,ai.LN2(R3) 

.IFT 

;DF  R$$MPL 

RESMAP 

.ENDC 

;DF  R$$MPL 

CALL 

aiOFIN 

JHP 

10$ 

;  I/O 

FUNCTION 

CODE  DISPATCH  TABLE 

100$: 

lOFUNS 

NM.JNI.MANINI 

lOFUNt 

NM.OPR.MANOPR 

OFUN$ 

NM.lLN.MANCLN 

OFUN$ 

O.IFCERR 

IF  NE,  NOT  LAST  IN  LIST 
ELSE,  CLOSE  UP  LIST 


POST  COMPLETION  ON  I/O  AND  LOOK  FOR  MORE  WORK 


GET  TASK'S  TCB  ADDRESS 

GET  PARTITION  CONTROL  BLOCK  ADDRESS 

SAVE  CURRENT  MAPPING 

MAP  TO  THE  TASK  HEADER 


UPDATE  THE  TASK'S  SECOND  LUN  WORD 
...  (CLEARING  LUN  INTERLOCK  BIT) 
RESTORE  PREVIOUS  MAPPING 


FINISH  UP  I/O  REQUEST 
AND  LOOK  FOR  NEXT 


INITIALIZE  REQUEST 
OPERATE  REQUEST 
CLEAN  UP  LUN 
ILLEGAL  FUNCTION 


RJK02 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

AALOCB 

000010 

RG 

#5-88 

ALLCTX 

r  ****** 

GX 

8-571 

ALNERR 

002234 

R 

#7-497 

8-539 

BITO 

=  000001 

G 

#5-237 

BIT1 

=  000002 

G 

#5-238 

BIT10 

=  002000 

G 

#5-247 

' 

BIT11 

=  004000 

G 

#5-248 

B1T12 

=  010000 

G 

#5-249 

BIT13 

=  020000 

G 

#5-250 

BITK 

=  040000 

G 

#5-251 

BIT15 

=  100000 

G 

#5-252 

BIT2 

=  000004 

G 

#5-239 

BIT3 

=  000010 

G 

#5-240 

BIT4 

=  000020 

G 

#5-241 

BITS 

=  000040 

G 

#5-242 

BIT6 

=  000100 

G 

#5-243 

BIT7 

=  000200 

G 

#5-244 

BITS 

=  000400 

G 

#5-245 

BIT9 

^  001000 

G 

#5-246 

BLXIO 

000012 

RG 

#5-89 

BUFFER 

000734 

RG 

#5-276 

8-587 

9-621 

BUFSIZ 

=  000454 

#5-77 

5-275 

5-276 

6-397 

CALLX 

000202 

RG 

#5-169 

CCBAF 

000046 

RG 

#5-103 

CCBAL 

000050 

RG 

#5-104 

CCBCT 

000052 

RG 

#5-105 

lCBGT 

000054 

RG 

#5-106 

CCBNM 

000060 

RG 

#5-108 

CCBRT 

000056 

RG 

#5-107 

CEACC 

000062 

RG 

#5-109 

CFSBSY 

=  000001 

G 

#5-197 

CFSFON 

=  000002 

G 

#5-198 

6-340 

CF$VR2 

=  000004 

G 

#5-199 

8-575 

CF$VR3 

=  000010 

G 

#5-200 

8-578 

CMSRSX 

=  000200 

#5-81 

8-544 

CONTEX 

000244 

RG 

#5-274 

8-588 

9-622 

COPT 

000014 

RG 

#5-90 

6-347 

CSBRT 

000064 

RG 

#5-110 

CTXHD 

000232 

RG 

#5-269 

CTXSIZ 

=  000466 

G 

#5-76 

5-205 

5-273 

5-274 

CURCTX 

000212 

RG 

#5-261 

•6-314 

6-438 

»9-618 

•10-649 

CURIOP 

000210 

RG 

#5-260 

»6-313 

*6-370 

6-410 

11-693 

C$CCB 

000012 

G 

#5-203 

»6-339 

CSDATA 

000032 

G 

#5-205 

CSFLAG 

000002 

G 

#5-196 

*6-340 

♦8-575 

•8-578 

CSLINK 

000000 

G 

#5-195 

CSLOC 

000012 

G 

#5-204 

CSSIZE 

000520 

G 

#5-206 

C$SP 

000004 

G 

#5-201 

CSSTAT 

000006 

G 

#5-202 

C.ADD 

000034 

6-330 

b-i^2 

:.NSP 

000004 

6-338 
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ASTX 

ASTX1 

A$tCHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

CF$FDN= 

C$FLAG= 

CSLOC  = 

CSSTAT- 

C$$CKP= 

C$$ORE= 

C$$RSH= 

RLXAST 


000022R 

000024R 

000000 

000000 

000000 

000000 

******  Gi 

******  (3; 

******  G 

******  G 

000000 

OOOAOO 

17756^ 

00005ARG 


D$$BUG= 
D$$ISK= 
D$$L11= 
D$$YNC= 
D$$YNM= 
EXRQN  = 
E$$XPR= 
FDNCNT= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$URD= 
I$$RAR= 


1775K 

000000 

000001 

000000 

000000 

******  GX 

000000 

******  GX 

000001 

000000 

000000 

000000 

000000 

000000 


I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MRKAST 

M$$CR8= 

M$$CRX= 

M$$FCS= 


000000 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000074RG 

000124 

000000 

000000 


H$$HGE= 

M$$NET= 

H$$OVR= 

NTLAST 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$»MCP= 

Nt.*i'1LL  = 

N$$MOV= 

N$$NCT= 

N$$PEM= 

P$$P45= 

P$$WRD= 


000000 

000000 

000000 

OOOOOORG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 


Q$$OPT= 

REXAST 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

S$$WRG= 

S$$YSZ= 

TKTCB  = 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 


000010 

000J46RG 

000000 

000001 

000000 

000000 

000000 

007600 

******  GX 

000000 

000000 

001000 

000000 


.  ABS.  000000 
000112 
Errors  detected: 


000 
001 
0 


(RW,I,G8L,ABS,0VR) 
(RU,],LCL,REL,CON) 


»**  Assembler  statistics 


0 

0 

9'' 14  Words     (  36  Pages) 

14440  Words     (   55  Pages) 

RSX-IIM/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system: 

SY:^ANASry2!c°35??^4]MANAST/CR/-SP=SY:[1  J]RSXMCM.SML/ML,[13O,11O]NETLIB/ML,[130,10]RSXMCM/PA:1,[l35,10]MANAST 
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MANBUF   ... .--  ,-, 

RBUFF  -  READ  THE  USER'S  BUhFER  INTO  "BUFFER 

325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353  000434  RBUFF::  CALL 
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.SBTTL  RBUFF  -  READ  THE  USER'S  BUFFER  INTO  "BUFFER 
.SBTTL  READ  -  READ  A  SPECIFIED  BUFFER  INTO  "BUFFER",, 
.SBTTL  RID  -  READ  THE  USER'S  ID  STRING  INTO  "IDBUFF" 

**-RBUFF-READ  THE  USER'S  BUFFER  INTO  'BUFFER" 
**-READ-READ  A  SPECIFIED  BUFFER  INTO  'BUFFER" 
•*-RID-READ  THE  USER'S  ID  STRING  INTO  "IDBUFF" 

THIS  ROUTINE  COPIES  THE  SUPPLIED  BUFFER  TO  A  LOCAL  BUFFER 

INPUTS: 

FOR  RBUFF  AND  RID: 

R3  =  ADDRESS  OF  I/O  PACKET  WITH  BUFFER  DESCRIPTOR 
FOR  READ: 

R3  =  ADDRESS  OF  3  WORD  BUFFER  DE<;CRIPTOR 

OUTPUTS: 

BUFFER  IS  COPIED 

REGISTERS: 

FOR  RBUFF  AND  RID: 

NO  REGISTERS  MODIFIED 
FOR  READ: 

RO,  R1,  R2  AND  R3  ARE  MODIFIED 


.ENABL  LS8 


354  000440 

062703 

000034 

ADD 

355  000444 

012700 

OOOOOOG 

READ: 

MOV 

356  000450 

357 

358  000452 

000406 

BR 

RID:: 

CALL 

359  000456 

062703 

000026 

ADD 

360  000462 

361 

362  000466 

012700 

OOOOOOG 

MOV 

10$: 

CALL 

363  000472 

010146 

MOV 

364  000474 

010204 

MOV 

365  000476 

016300 

000004 

MOV 

366  000502 

011301 

MOV 

367  000504 

016302 

000002 

MOV 

368  000510 

042702 

160000 

BIC 

369  000514 

052702 

120000 

BIS 

370  000520 

012603 

MOV 

371  C00522 

CALLR 

372 

373 

.DSA8L 

SSAVAL 

#I.PRM+10,R3 
*BUFFER,R0 
10$ 

$SAVAL 

#I.PRM+2,R3 

#IDeUFF,RO 

aPELOC 

R1,-(SP) 

R2,R4 

4(R3),R0 

(R3),R1 

2(R35,R2 

*160060,R2 

*120000,R2 

{SP)+,R3 

aBLXJO 

LSB 


SAVE  ALL  REGISTERS 
POINT  TO  BUFFER  DESCRIPTOR 
GET  DESTINATION  BUFFER  ADDRESS 
JOIN  COMMON  CODE 

SAVE  ALL  REGISTERS 

POINT  TO  BUFFER  DESCRIPTOR 

GET  DESTINATION  ID  BUFFER  ADDRESS 

RELOCATE  THE  BUFFER         ;  RJK02 

SAVE  THE  APR  6  BIAS 

COPY  DESTINATION  APR  6  DISPLACEMENT 

GET  NUMBER  OF  BYTES  TO  MOVE 

GET  SOURCE  APR  5  BIAS 

GET  SOURCE  APR  6  DISPLACEMENT 

STRIP  OFF  APR  OFFSET 

MAKE  SOURCE  DISPLACEMENT  VIA  APR  5 

RETRIEVE  DESTINTATION  APR  6  BIAS 

COPY  DATA  AND  RETURN        ;  RJK02 


N  7 
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MACRO  CALLS  AND  LOCAL  DATA 


000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 


000001 
000002 


000010 
000020 
000040 
000100 


001000 
002000 
004000 
OIUOOO 
020000 


000001 
000002 
000003 
000004 


005240 
000014 
000015 
005214 


66 
67 
68 

69 
70 


000000 


MFSSPR 
MfSCMK 
MFSCVA 
MFSSNU 
HFSSAD 
MFSSAC 
MFSSND 
MfSSPS 
MFSSUS 
MFSSGR 


20 

40 

100 

20f^ 

40') 

1000 

2000 

4000 

10000 

20000 
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PRIORITY  specified 
CALL  MASK  specified 
CALL  VALUE  specified 
NUMBER  specified 
SUBADDRESS  specified 
ACCOUNT  specified 
NODE  specified 
PASSWORD  specified 
USER  specified 
GROUP  specified 


•  Define  flags  in  second  parameter  flags  word  tM$FLG2) 

;  Common  parameters 

NB:  The  common  STATE  and  COUNTER  TIMER  parameters  are  kept 
in  M$FLG2  rather  than  MSFLAG  to  enable  a  simpler  test  of 
the  X25-SERVER  and  X25-PR0T0C0L  parameter  groupings 


MFSSTA  =  1 
MFSPCT  =  2 

■  Module  X25-PR0T0C0L  (GROUP) 

MFSGRO  =  10 
MFSGNM  =  20 
HFSGTY  =  40 
MFSGDT  =  100 

;  Module  X25-PR0T0C0L  (DTE) 


MFSPDT 
MFSPCH 
MFSPLN 
MFSPMC 
MFSDNT 


1000 

2000 

4000 

10000 

20000 


STATE  CHANGE  specified 
COUNTER  TIMER  specified 


GROUP  specified  (X25-PROTOCOL) 
Group  NUMBER  specified 
Group  TYPE  specified 
Group  DTE  specified 


DTE  address  specified  (X25-PROTOCOL) 

DTE  CHANNELS  specified 

DTE  LINE  specified 

DTE  MAX  CIRCUITS  specified 

Dummy  flag  to  space-fill  NETWORK  field 


Define  module  entity  flags  word 

MESXAC  =  1 
MESXPR  =  2 
ME$X5S  ^-  3 
ME$X9S  =  4 


Module  X25-ACCESS 
Module  X25-PROTOCOL 
Module  X25-SERVER 
Module  X29-SERVER 


Define  system-specific  network  management  parameters  for  VMS  compatibility 


MSVSUB   .720. 
HSVRUN  =12. 
MSVUNS  =13. 
MPVSTA  =  2700. 

.PSECT 


DTE  substate  parameter 
RUNNING  substate 
UNSYNCRHONISED  substate 
X25-SERVER  STATE  parameter 


TABLE  OF  LOGOUT  ROUTINES  (TERMINATED  BY  0) 

**  NOTE  •*  THE  NEXT  FEU  LINES  ARE  ORDER  DEPENDENT 
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FORK  -  SAVE  THREAD  CONTEXT  AND  RE-START  SCAN 


13A  000122 

001374 

BNE 

60$ 

135  000124 

016700 

OOOOOOG 

MOV 

CURCTX.RO 

136  000130 

010160 

OOOOOOG 

MOV 

R1,C$SP(R0) 

137  000134 

138 

139 

010067 

OOOOOOG 

MOV 

RO.LSTCTX 

;•  SAVE 

"BUFFER' 

IN  THE  USER'S  BUFFER 

140 

141  000140 

SWSTKS 

80$ 

142  000144 

016703 

OOOOOOG 

MOV 

CURI0P,R3 

I.PRM+4(R3),R1         ; 

143  000150 

016301 

000030 

MOV 

144  000154 

020167 

177776G 

CMP 

R1,BUFFER-2 

145  000160 

101402 

BL05 

70$ 

146  000162 

016701 

177776G 

MOV 

BUFFER-2,R1 

147  000^66 

010163 

000030 

70$; 

MOV 

R1,I.PRMt4(R3) 

148  000172 

CALLR 

WBUFF 

149  000176 

80$: 

CALLR 

GETPKT 

IF  NE,  YES 

GET  THE  ADDRESS  OF  THE  CURRE'.'T  CONTEXT 

SAVE  "SP" 

SET  "LAST"  CONIEXT  ACCESSED 


ENTER  SYSTEM  STATE 
GET  THE  I/O  PACKET  ADDRESS 
GET  LENGTH  OF  USER'S  BUFFER 
IS  IHE  USER'S  BUFF  LARGER  THAN  BUFSIZ 
IF  LOS,  NO  (OR  EQUAL) 
ELSE,  USE  SMALLER  SIZE 
TRUNCATE  THE  USER'S  BUFFER  IF  NEEDED 
"WRITE"  THE  BUFFER  (TO  SAVE  IT) 
AND  TRY  TO  GET  ANOTHER  PACKET 


N  9 
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OPRQIO  -  ISSUE  NM.OPR  QIO  TO  NM; 
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183  000326 

184  000330 

185  000332 

186  000334 

187  000340 

188  000344 

189  000350 

190  000352 

191  000354 

192  000356 

193  000362 

194  000366 

195  000372 

196  000374 
197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

22'^ 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 


001376 

105712 

001007 

116701      177450 

012702     030412 


105020 
005300 
160300 
010067 
162700 
110063 
000261 
116700 


177430 
000004 
000003 

177411 


60$: 


70$: 
80$: 


BNt  50$ 

TST8  (R2) 

BNE  60$ 

Move  NMSTAT.RI 

MOV  #10.+400+<4000*6>,R2 

CALL  $C8TA 

CLR8  (R0)+ 

DEC  RO 

SUB  R3,fi0 

MOV  R0,NMSTATt2 

SUB  #4,R0 

MOVB  R0,3(R3) 

SEC 

MOVB  NMSTATtl,RO 

.IF  DF  R$$PRO 


82$: 


\M 

MOV 
BR 

CMPB 
BNE 
TST 
BEQ 
CLfi 

mSv 

MOV 


82$ 

#140, RO 
88$ 

#140, RO 
#1,FILUPD 


#MS.DON,RO 

88$ 

FILUPD 

88$ 

FILUPD 

RO,-(SP) 

NMSTATt2,-(SP) 


IF  NE,  MORE 

WAS  IT  A  RECOGNIZED  ERROR  ? 

IF  NE,  YES 

ELSE  PICK  UP  ERROR  CODE 

SIGNED  DECIMAL,  NO  LEADING  ANYTHING 

CONVERT  IT 

INSERT  ZERO  BYTE  (BRIEFLY) 

BACK  OVER  ZERO  BYTE 

CALCULATE  MESSAGE  LENGTH 

PASS  BACK  MESSAGE  LENGTH 

GET  STRING  LENGTH 

PLUG  IT  INTO  MESSAGE 

INDICATE  ERROR 

SET  RETURN  CODE 

PRO/DECnet 

BRANCH  IF  UNSUCCESSFUL  OR  DONE  RETURN  CODE 

TEST  NT. CFG  AND  ALIAS  FILES  UPDATE  BUS 

IF  EQ,  DON'T  UPDATE  FILE 

ELSE  CLEAR  NT. CFG  AND  ALIAS  FILES  UPDATE  BITS 

AND  SET  FILE  UPDATE  FLAG 

CONTINUE 

IS  REQUEST  DONE  ? 

IF  NE,  UNSUCCESSFUL  -  BRANCH 

TEST  FOR  CONFIGURATION  FILE  UPDATE 

IF  EQ,  DON'T  UPDATE  FILE 

ELSE  CLEAR  FILE  UPDATE  FLAG 

SAVE  RO 

SAVE  2ND  WORD  OF  I/O  STATUS  BLOCK 


Update  the  approon'ate  files  by  issuing  I/O  request 


C00400  110013 


QIOW$S  #NM.INI,#$TMLUN,#$TMEFN, 

BCC  83$ 

CLRB  NMSTAT+1 

83$:    TSTB  NMSTAT+1 

BGT  85$ 

CMP  (SP)+,(SP)t 

MOV  #IE.RSU,NMSTAT 


BR  25$ 

85$:    MOV  (SP)+,NMSTAT+2 

MOV  (SP)+,RO 

.ENDC  ;  DF  R$$PRO 

88$:    MOVB  R0,(R3) 

.IF  OF  R$$PRO 

BPL  89$ 


#NMSTAT,,<#FILEUP,,,#NMFBUF,,#NMFMES> 
IF  CC,  DIRECTIVE  IS  ALRIGHT 
ZERO  TO  FALL  INTO  ERROR  PROCESSING 

CH-^CK  NICE  RETURN  CODE  FROM  NMFACP 
IF  GT,  FILE  WAS  UPDATED  CORRECTLY 
POP  NMSTAT+2  AND  RO  FROM  STACK 
SET  DSW  ERROR  CODE  FOR  ERROR  TABLE 
(NOTE:  THIS  CODE  SHOULD  NOT  COME  BACK 

FROM  A  QIO$  OR  MATCH  ANY  OTHER  ERROR 

TABLE  CODES  FOR  THE  DSW.) 
BRANCH  TO  BUILD  ERROR  RETURN 
RESTORE  2ND  WORD  OF  I/O  STATUS  BLOCK 
RESTORE  RO 


PUT  NICE  RETURN  CODE  IiVI  BUFFER 

PRO/DECNET 

IF  PL,  CONTINUE 


MANQIO  CREATED  B¥     MACRO     ON  29-JUN-85   AT   10:31 
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CREf       04.00 


MACRO  NAME 


REFERENCES 


ALUNS 

#5-55 

5-92 

CALL 

6-188 

CALLR 

#5-55 

7-408 

7-438 

DIRt 

#5-55 

6-156 

#6-158 

6-158 

#6-161 

6-161 

ERROR 

#5-76 
5-115 

5-106 
5-123 

5-107 

5-108 

5-109 

5-110 

5-111 

5-112 

5-113 

5-114 

MANDFS 
MOV$ 

#5-55 
#6-158 

5-57 
6-158 

6-158 

6-158 

6-158 

6-158 

6-158 

#6-158 

6-158 

6-158 

#6-158 

6-158 

6-158 

#6-161 

6-161 

6-161 

#6-161 

6-161 

6-161 

#6-161 

6-161 

6-161 

MVB$ 

#6-158 

6-158 

#6-161 

6-161 

OFF$ 

#5-92 

QDPBSS 

#6-158 

6-158 

#6-161 

6-161 

QIOW$ 

#5-55 

QIOWSS 

#5-55 

6-' 58 

6-161 

RETURN 
RVP$ 

6-249 
#6-158 

6-158 

6-158 

6-158 

#6-161 

6-161 

6-161 

6-161 

MANTRA  CREATED  BY     MACRO     ON  29-JUN-85   AT   10:31 
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CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

A.ACC 

000020 

#5-57 

9-198 

A.LNK 

000000 

#5-57 

A.NAM 

000002 

#5-57 

A.  PUD 

00C010 

#5-57 

A. REM 

000012 

#5-57 

A.UCB 

000010 

#5-57 

BIAS 

=  000002 

#5-60 

•9-207 

CURIOP 

-  ****** 

GX 

6-83 

7-116 

S-!^? 

9-18". 

I.PRM 

r  ****** 

GX 

6-84 

7-117 

t-150 

9-185 

KISAR6 

=  ****** 

GX 

9-192 

•9-213 

MAPADD 

=  ****** 

GX 

6-90 

MAPALI 

=     ****** 

GX 

8-155 

MAPREM 

=  ****** 

GX 

7-122 

ME. FOR 

177776 

6-86 

7-119 

8-152 

9-187 

ME.UCO 

177770 

6-92 

7-124 

8-157 

9-217 

MS. sue 

000001 

6-94 

7-126 

8-162 

9-229 

M$$MGE 

=  000000 

5-59 

N$$VCT 

-  ****** 

9-192 

9-195 

9-213 

REPALI 

r  ****** 

GX 

9-193 

TRAACC 

000216 

RG 

#9-182 

TRAADD 

000000 

RG 

#6-81 

TRAALI 

0001 3A 

RG 

#8-147 

TRANAM 

000056 

RG 

#7-114 

SHE  ADR 

=   ****** 

GX 

9-195 
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AA 

AA 
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NN 
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LL 
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l.L 

SSSSSSSS 

TTTTT 

mil 

.L 

SS 

T 

.L 

SS 

1 

-L 

SS 

1 

.L 

SS 

f 

LL 

SSSSSS 

t 

LL 

SSSSSS 

1 

_L 

SS 

1 

LL 

SS 

LL 

SS 

LL 

SS 

T 
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1 
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YY 
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ss 

11 
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ALCHIN 
AICHIN 


N  U 

MIAS  THANGE  PARAMETER  MACRO  V05.03b  Saturday  29-Jun-85  12.04  Page  6 
ALIAS  CHANGE  PARAMETERS  INITIALIZE 


64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


89  000000 

90  000000 

004567 

OOOOOOG 

91  000004 

010064 

000002 

92  000010 

010364 

000006 

93 

94 

95 

96  000014 

012700 

177773 

97  000020 

026427 

177776 

000103 

98  000026 

002474 

99 

100 
101 
102  000030 

012700 

M7777 

103  000034 

032764 

^77b77 

000002 

104  000042 

001066 

105 

106 

107 

108  000044 

109  000050 

103463 

110 

111 

112 

113  000052 

126427 

000011 

177775 

114  000060 

001005 

115  000062 

032764 

000100 

000002 

116  000070 

OC1045 

117  000C"2 

000452 

118  000074 

119  000100 

103447 

120 

.SBTTL  ALCHIN  -  ALIAS  CHANGE  PARAMETERS  INITIALIZE 

'••-ALCHIN-ALIAS  CHANGE  PARAMETERS  INITIALIZE  ROUTINE 

THIS  ROUTINE  IS  CALLED  TO  INITIALIZE  FOR  THE  ALIAS  CHANGE  PARAMETER 
OPERATION. 

INPUTS: 

RO  =  OPTION  (SET/CLEAR) 

R1  =  ID  ADDRESS  (ALIAS  FORMAT) 

R2  =  LENGTH  OF  DATA  IN  INPUT  BUFFER 

R3  =  ADDRESS  OF  INPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

RO  =  RETURN  CODE 

R2  =  LENGTH  OF  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDESS  OF  OUTPUT  BUFFER 

DATA  SAVED  IN  CONTEXT  AREA 

C-BIT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 


SAVE  R3-R5 

SAVE  OPTION  WORD 

SAVE  BUFFER  POINTER 


REGISTERS: 

R3,  R4 

R5  ARE  PRESERVED 

CHIN:: 

JSR 
MOV 
MOV 

R5,$SAVRG 

R0,A$OPT(R4) 

R3,A$BUF(R4) 

CHECK  LENGTH 

OF  CONTEXT  AREA 

MOV 
CMP 
BLT 

#ME.MPR,RO 

-2(R4),#A$LEN 

30$ 

CHECK  OPTIONS  FLAGS 

MOV 
BIT 
BNE 

*ME.FUN,R0 

#*C<M0$CLE>,A$0PT(R4) 

30$ 

CHECK  ALIAS 

^ORMAT 

CALL 
BCS 

CHKALI 
30$ 

CHECK  SCOPE, 

UNLESS  OPERATION  WAS  FOR  ' 

CMPB 
BNE 
BIT 
BNE 
BR 
t:     CALL 
BCS 

A$TVP(R4),*MF$ALL       ; 

4$                  ; 

#nO$CLE,A$OPT(R4)       ; 

20$ 

30$ 

CHKSCO 

30$                ; 

ASSUME  CONTEXT  AREA  TOO  SMALL 
IS  CONTEXT  AREA  LARGE  ENOUGH  ' 
IF  LT,  NO  -  ERROR 


A""  '"^  ILLEGAL  OPTION 

FOR  ILLEGAL  OPTIONS 
IF  NE,  ERROR 


CHECK  ALIAS  FORMAT 
IF  CS,  ILLEGAL  FORMAT 

'ALL" 

WAS  ALIAS  TYPE  "ALL" 
IF  NE,  NO  -  CHECK  SCOPE 
ELSE,  WAS  THIS  A  CLEAR  OPERATION  ? 
IF  NE,  YES  -  BYPASS  DESTINATION  CHECK 
ELSE,  ILLEGAL  ALIAS  TYPE  FOR  SET 
4$:     CALL    CHKSCO  ;  CHECK  THE  SCOPE 

IF  CS,  ILLEGAL  SCOPE 


ALCHOf  -   ALIAS    fHANGE    PARAMFTEI?  MACRO 
MACRO   CALLS   AND   LOCAL   DATA 

55 
5A 
55 

58 
59 

60  000000 

61  000000 

62  000000 

63  000000 
6A 

65  000000 

66 

67  000002 

68 
69 
70  000000 
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000020 


000000 
000002 
000004 
000006 
000010 

0000  n 

000012 
000020 


000022 
000030 
000103 
000000 


000020 
000010 
000020 

000000 


71 


000001 
000002 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 


.MCALL 
.MCALL 

ANBDFS 
MANDFS 
HDRDFt 
DH8Dr$ 

BIAS=0 
.IF  DF 
BIAS=2 
.ENDC 


AN8DF$,MANDF$,SWSTK$,SAVMAP,MAP,RESMAP,SAVRG,RESRG 
HDRr)F$,CALLX,DHBDF$,ALCCX$ 

;  DEFINE  ALIAS  NAME  BLOCK  OFFSETS 

;  DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

;  DEFINE  TASK  HEADER  OFFSETS 

;  DEFINE  DEC  HOME  BLOCK  OFFSETS 


M$$MGE 


ALCCXS  LIST 

CON  EXT  AREA  OFFSET  DEFniTIONS 

MAXID^16. 

MAXPAS=8. 

MAXACC=16. 

.ASECT 

.=0 

OFFSETS  IN  COMMON  WITH  READ  INFORMATION  MODULES 


JIAS  OF  REGISTERS  ON  STACK 
OFFSET  FOR  SAVED  KISAR6 

DEFINE  CONTEXT  AREA  OFFSETS 


MAXIMUM  LENGTH  OF  USER  ID 
MAXIMUM  LENGTH  OF  PASSWORD 
MAXIMUM  LENGTH  OF  ACCOUNT 


A$FLG 
A$OPT 
A$PAR 
A$BUF 
A$NUM 
ASTYP 
A$ALI 
A$SCO 


.8LKW 
.8LKW 
.8LKW 
.BLKW 
.BLKB 
.8LKB 
.BLKW 
.6LKW 


FLAG  WORD 

SAVED  OPTIONS  WORD 

CURRENT  PARAMETER  TYPE 

SAVED  POINTER  TO  BUFFER 

NUMBER  OF  BYTES  IN  ANB  (FOR  SET) 

ALIAS  FORMAT  TYPE 

ALIAS  NAME,  SPACE  FILLED 

SCOPE  OF  ALIAS 


OFFSETS  UNIQUE  TO  CHANGE  PARAMETERS  MODULES 
A$DES: 


A$LEN: 


.BLKW 
.BLKB 


.PSECT 

FLAGS  WORD  BIT  DEFINITIONS 

AF.INI=1 
AF.0VR=2 


3  ;  DESTINATION  NAME,  SPACE  FILLED 

<ltMAXID>+<1+MAXPAS>t<l+MAXACC>  ;  ACCESS  CONTROL  STORAGE 
;  LENGTH  OF  CONTEXT  AREA 


SUCCESSFUL  INITIALIZATION  COMPLETED 
CONTEXT  AREA  OVERFLOWED 


■ 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
5 
3 
3 
3 
3 
3 
3 
3 

;; 

A 

A 
5 
C   5 


MANACP 


MANAST 


J  5 

E  10 

K  5 

f  10 

L   5 

G  10 

M  5 

H  10 

N  5 

1  12 

B  6 

J  10 

C  6 

D  6  MANBUF 

K  10 
L  10 

E  6 

M  10 

F   6 

N  10 

G  6 

B  11 

H  6 

c  n 

I   6 

t)  11 

J  6 

E  11 

K  6 

F  11 

L  6 

G  11 

M  6 

H  11 

N  6 

I  11 

B  7 

J  11 

C  7 

K  11 

D  7 

L  1] 

E   7 

M  11 

F  7 

N  11 

G  7 

B  12 

H   7  HANBVE 

C  12 

I   7 

D  12 

J   7 

E  12 

K   7 

F  12 

L   7 

G  12 

M   7 

H  12 

N   7 

I  12 

B  8 

J  12 

C  8 

K  12 

D  8 

L  12 

E  8 

1*1  12 

N  12 

G  8 

B  13 

H  8 

C  13 

I   8  MANFRK 

D  13 

J 

E  13 

K 

F  13 

G  13 

M 

H  13 

N 

I  13 

B 

J  13 

K  13 

I     t 

L  13 
M  13 

F  9 

N  13 

G  9 

B  H 

H  9  MANQIO 

C  U 

D  U 

J  9 

E  14 

K  2 

F  14 

^ 

G  14 

H  14 

N  9 

i  14 

B  10 

J  14 

C  10 

K  14 

D  10 

L  14 

MANTRA 


MANVCD 


MANVT8 


psierE 


M 

14 

N 

U 

B 

IS 

r 

n 

n 

n 

F 

IS 

F 

IS 

G 

IS 

H 

IS 

1 

IS 

,1 

IS 

K 

IS 

1 

IS 

M 

IS 

N 

IS 

R 

16 

r 

lis 

D 

(S 

F 

6 

F 

A 

G 

1(S 

H 

lis 

I 

1A 

,1 

16 

K 

16 

1 

16 

H 

16 

ALCHOP 


ALCHIN 


ALCHOP 
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SYMBOL  CROSS  REFERENCE 
SYMBOL     VALUE 


.(EFERENCES 


AF.INI 

=  000001 

#5-70 

AF.OVR 

=  000002 

#5-70 

ALCHOP 

000000 

«i 

#6-94 

ALOCB 

=  ****** 

GX 

7-195 

A$AL1 

000012 

#5-70 

ASBUF 

000006 

#5-70 

ASDES 

000022 

#5-70 

ASFLG 

000000 

#5-70 

ASLEN 

000103 

#5-70 

A$NUM 

000010 

#5-70 

ASOPT 

000002 

#5-70 

A$PAR 

000004 

#5-70 

ASSCO 

000020 

#5-70 

ASTYP 

000011 

#5-70 

A.ACC 

000020 

#5-60 

A.LNK 

000000 

#5-60 

A.NAM 

000002 

#5-60 

A.  PUD 

000010 

#5-60 

A. REM 

000012 

#5-60 

A.UCB 

000010 

#5-60 

BIAS 

=  000002 

#5-65 

CEACC 

=  ****** 

GX 

7-214 

CF$VR2 

r  ****** 

GX 

8-318 

CLRALI 

000336 

R 

6-105 

CURCTX 

::  ****** 

GX 

8-317 

CSFLAG 

=  ****** 

GX 

8-318 

OEAANB 

000534 

R 

7-170 

DEAC8 

=  ****** 

GX 

9-396 

DECPT 

=  ****** 

GX 

7-160 

DSANN 

oocooo 

7-162 

FINDA 

000634 

R 

7-166 

KISAR6 

=  ****** 

GX 

7-159 

MAXACC 

=  000020 

#5-70 

MAX  ID 

=  000020 

#5-70 

HAXPA5 

=  000010 

#5-70 

ME SAL  I 

000010 

8-316 

ME$AL2 

000003 

8-320 

ME. DON 

177600 

6-97 

ME. RES 

177^61 

7-197 

ME.UCO 

177770 

8-315 

MFSALL 

177775 

8-334 

MOSCLE 

000100 

6-103 

IS.  sue 

000001 

7-146 

M$$MGE 

=  000000 

5-66 

N$$VCT 

-   *♦•♦«* 

7-159 

R$$PRO 

-   ♦**•»* 

7-148 

SETALI 

000072 

R 

'  ;07 

SCALLX 

r  ****** 

GX 

7-249 

SCRUNM 

r  **♦♦♦♦ 

GX 

7-172 
9-398 

SPRlJNM 

r  ****** 

■  X 

♦7-235 

SSAvRG 

=  .♦.♦.. 

GX 

6-95 

6-98 


7-217 
♦  6-96 

6-98 

7-190 
6-103 
♦8-316 
7-168 
8-308 
9-384 

10-437 


7-168 
#5-67 
7-238 

#8-290 


8-322 

7-225 
7-233 
8-313 
♦7-256 
5-70 
5-70 
5-70 


8-291 

7-249 

7-178 
#7-145 

9-395 
♦7-234 
♦10-429 

7-248 


10-437 
6-113 

♦6-111 


♦8-320 
7-243 
8-334 


10-439 


7-241 

♦7-197 

8-331 


8-338 

8-305 

8    -07 

#10-428 

8-304 


7-256 
7-199 


7-255 
10-430 
•8-328 
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10-439 


7-252 


10-441 


7-252 

♦8-315 

9-399 


#9-373 


♦8-341 


10-441 


8-336 


8-336 
10-433 


10-443 


10-443 


8-304 
7-227 


•7-256 

♦10-451 

9-595 


8-541 
7-258 


♦8-527 
9-597 


9-595 
8-295 


8-328 
•10-430 


8-545 
♦8-529 


9-575 
9-592 


♦9-597 
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ALREIN  -  ALIAS  READ  INFORMATION  MACRO  V05.05b  Saturday  2'. 
Symbol  table 


B  2 

-Juii-85  12:05 


Page  9-1 


AF.INI= 

AF.OVR= 

ALREIN 

ASALI 

ASBUF 

AtFLG 

A$LEN 

A$NEX 

ASNUM 

ASOPT 

ASPAR 

A$SAV 

A$SCO 

AITYP 

A$SCHK= 

AI$CPS= 

At$PRI= 

A$$TRP= 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

CEACC  = 

Cf^SVR2= 

CHKALI= 

CHKSCO= 

CURCTX= 

C$FLAG= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DECPT  = 

DSAMXC 

DSAMXH 

DSANN 

DSBRPR 

DSBRTM 

DSDELF 

DSDELU 

OSEND  = 

DSFNB 

DSHIOR 

DSHOST 

DSINAf 

OSINCT 

DSIPL 

D$LID 

DSLNAM 

D<iLNUC 

DSLST 

DSMAXC 

DSMAXH 

DSMAXV 

DSMLL 

OSMNOD 


000001 

000002 

OOOOOORS 

000012 

000006 

000000 

00002A 

000022 

000010 

000002 

OOOOOA 

00002A 

000020 

000011 

000000 

000000 

000000 

000000 

000020 

000000 

000002 

000010 

000012 

000010 


000000 
OOOAOO 
17756A 

****** 

000072 
00007A 
000000 
000102 
000100 
0000A5 
000046 
00010A 
000034 
000024 
000022 
00004A 
000042 
000051 
000020 
000006 
000014 
000047 
000064 
000066 
000070 
000040 
000041 


GX 


D$NA 

DSNBEA 

DSNBRA 

D$NEND= 

D$NLN 

D$NN 

OSOUTT 

DSRETF 

DSRNN 

DSRTMR 

D$SEG 

DSSER 

DSSQRL 

D$$BUG= 

DS$ISK= 

D$$L11= 

[)$$YNC  = 

D$$YNI'  = 

E$$XPR= 

FINDA 

F$$L7L= 

G$$TPP= 

GS$TSS= 

GS$TTK= 

G$$WRD= 

H.CSP 

H.CUIC 

H.DSW 

H.DUIC 

H.EFLM 

H.EFSV 

H.FCS 

H.FORT 

H.FPSA 

H.FPSL= 

H.FPVA 

H.GARD 

H.HDLN 

H.IPC 

H.IPS 

H.IS° 

H.LUN 

H.NLUN 

H.NML 

H.ODVA 

H.ODVL 

H.OVLV 

H.PFVA 

H.RCVA 

H.RRVA 

H.SPRI 

H.TKVA 

H.TKVL 

H.VEXT 

H.WND 

H.X25 

I$$RAR= 


000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

000000 

000466R 

000001 

000000 

000000 

000000 

000000 

000000 

000010 

000046 

000012 

000004 

000040 

000050 

000052 

000042 

000062 

000034 

000072 

000002 

000016 

000014 

000020 

000076 

000074 

000061 

000022 

000024 

000054 

000032 

000036 

000062 

000060 

000026 

000030 

000056 

000044 

000064 

000000 


I$$RDN= 

000000 

KISAR6= 

******   GX 

K$$CNT= 

177546 

K$$CSR= 

177546 

K$$LDC= 

000000 

K$$TPS= 

000074 

LCSEXT 

000000 

LCSIMT 

000001 

LD$Lf  = 

000000 

L$$ASG= 

000000 

L$$DRV'= 

000000 

L$$P11= 

000001 

L$$11R= 

000000 

MAXACC= 

000020 

MAXID  = 

000020 

MAXPAS= 

000010 

MBSDIS 

000001 

MBSENA 

000000 

MBSFUL 

000002 

MBSMIX 

000002 

MBSONE 

000001 

MSSRXO 

000001 

MBSTXO 

000000 

MBSZER 

000000 

MCSBAB 

006073 

MCSBID 

001765 

MCSBMC 

001767 

MCSBSC 

001766 

MCSCAC 

001442 

MCSCAP 

001440 

MCSCCL 

001445 

MCSCDC 

002045 

MCSCDP 

001441 

MCSCIF 

001465 

MCSCLD 

001464 

MCSCOU 

100000 

MCSCTL 

001454 

MCSCTR 

001452 

MCSCTS 

001453 

MCSDOV 

002050 

MCSLBR 

001750 

MCSLBS 

001751 

MCSIDI 

001774 

MCSLDO 

001775 

MCSLDR 

001762 

MCSLDS 

001763 

MCSLLB 

002021 

MC$LLP 

002115 

MCSLLR 

002007 

MCSLOO 

000001 

MCSLRB 

002020 

MCSLRP 

002114 

MCSLRR 

002006 

MfSLSI 

002032 

MCSIST 

00203? 

MC$LUP 

006072 

MCSMAP 

010000 

MCSMBL 
MCSMBX 
MC$MBY 
MCSMPX 
MCSNAP 
MCSNBR 
MC$NBS 
MCSNCR 
MCSNCS 
MCSNML 
MCSNMR 
MCSNMS 
MCSNNO 
MCSNNU 
MCSNOP 
MCSNOR 
MCSNPF 
MCSNPR 
MCSNRE 
MCSNRT 
MC$NVR 
MC$P08 
MCSPIl 
MCSRFL 
MCSSBU 
MC$SFL 
MC$SYC 
MCSSYL 
MCSSVR 
MCSSYS 
MCSSYZ 
MCSTBR 
MCSTBS 
MC$TDR 
MCSTIM 
MCSTYP 
MC$UBU 
MCSUFD 
MC:UMR 
MCSUMS 
MC$VAX 
MCSWID 
MCSwIH 
MCSWIL 
MC$W08 
MCSUU 
MC$U32 
MC$XBR 
MC$XBS 
MClXCJ 
MC$XCR 
MCSXCS 
MCSXDR 
MCSXDS 
MCtXFR 
MCSXFS 
MCSXLJ 


001764 
004420 
001752 
004406 
001604 
001130 
001131 
001154 
001155 
001274 
001142 
001143 
001606 
001605 
001607 
000000 
001616 
001630 
001200 
001166 
001642 
300000 
000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 


MCSXLR 

MCSXMA 

MCSXMC 

MCSXMS 

HCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

MC$020 

MDSCI 

MDSCNA 

MDSCOU 

MD$DA 

MD$DL 

MD$DLV 

MDSDMC 

MD$[)MF 

MDSOMP 

MDSDMR 

MDSDMV 

MD$DN 

MD$DP 

MDSDPV 

MD$DQ 

MDSDTE 

HD$DU 

MDSDUP 

MD$DV 

M0$D7 

MDSFUL 

MDSHAL 

MDSHEL 

MDSKCP 

MDSKDP 

MDSkPZ 

MD$KL 

MDSKMX 

MDSKMY 

MDSLEN 

MDSPCL 

MDSQNA 

MDSUNA 

MDSUIT 

MD.ABO 

MD.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.NOB 

MD.NON 


002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 
000036 
000040 
000054 
000052 
000050 
000011 
000005 
000001 
000002 
000017 
000010 
000016 
000011 
000007 
000015 
000002 
000014 
000001 
000006 
000001 
000020 
000012 
177777 
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Mn  Bpo  nnnnnn 


HFi^Ann  nnnnnn 


MnSPRS   000001 


MPSCPU  000161 


MPSLLE  000227 
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165 
166 
167 
168 
169 
170 
171 
172 
175 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 

184  000306 

185  000306 

186  000310 

187  000314 

188  000316 

189  000320 

190  000322 

191  000324 

192  000532 

193  00O334 

194  000342 

195  000344 

196  000346 

197  000350 

198  000552 


.SBTTl  FMTNAM  -  FORMAT  A  NAME  FIELD 

**-FMTNAM-'^ORMAT  A  NAME  FIELD 

THIS  ROUTINE  TAKES  A  6  CHARACTER  SPACE  FILLED  NODE  NAME,  AND 
BUILDS  AN  IMAGE  FIELD,  DELETING  TRAILING  SPACES. 

INPUTS: 

R1  =  POINTER  TO  6  CHARACTER  NAME 

R3  =  POINTER  TO  BUFFER  FOR  IMAGE  STRING 

OUTPUTS: 

R1  =  NEXT  BYTE  AFTER  NAME 

R3  =  NEXT  FREE  BYTE  IN  BUFFER 

REGISTERS: 

RO,  R4  ARE  PRESERVED 


010302 
012705 
110523 
112123 
005305 
001375 
1262  7 
0014  : 
126327 
001003 
005503 
105312 
000771 


000006 


000001  000040 


FMTNAM: 


10$: 


^7171? 


D0040  20$: 


30$: 


MOV 

R5,R2 

MOV 

#6,R5 

MOV'B 

R5,(R3)+ 

MOVB 

(fi1)+,(R3)t 

DEC 

R5 

BNE 

10$ 

CMP8 

1(R2),#' 

BEQ 

30$ 

CMPB 

-1(R3),*' 

BNE 

30$ 

DEC 

R3 

DECS 

(R2) 

BR 

20$   ^ 

RETURN 

^ 

COPY  BUFFER  POINTER 

SET  LENGTH  OF  NAME 

ASSUME  IMAGE  FIELD  LENGTH  OF  6 

MOVE  NAME  INTO  BUFFER 


IS  THE  FIRST  CHARACTER  A  SPACE  ? 
IF  EQ,  YES  -  DON'T  DELETE  SPACES 
IS  THE  LAST  CHARACTER  A  SPACE  ? 
IF  NE,  NO  -  FINISHED 
ELSE,  BACK  UP  OVER  SPACE 
DEC  IMAGE  FIELD  LENGTH 
AND  LOOK  AT  PREVIOUS  CHAR 
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7nn      .SRTTI       FMTSCO  -   FORMAT   SCOPE    PARAMETER 
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3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
Al 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
49 
50 
51 


.TITLE  ALXXIN  -  ALIAS  INITIALIZATION  COMMON  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  198A,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  Bi'  DIGITAL  EOUIPMENl 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 
NETWORK  MANAGEMENT  ■ 


ALIAS  INITIALIZATION  COMMON  ROUTINES 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00      14-DEC-79 

DECNET-TM/S    u.O 
DECNET-11M-PLUS   VI. 0 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

A. 00  07-N0V-83 

DECNET-11M  VA.O 
DECNET-11M-PLUS  V2.0 

5.0C  22-JUL-85 

DECnet-llH/S  iA.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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MACRO  CALLS  AND  LOCAL  DATA 

■;?  <;rtti  MAfRn  cams  and  i  ncAi  DATA 


ALXaIN     created  by  macro  on  29-JUN-85  AT  12:07 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


AF.INI 

AF.OVR 

ALUDy 

ALU 

ALIT2 

ALIT3 

A$ALI 

AIBUF 

A$DES 

AtFLG 

A$LEN 

ASNUM 

ASOPT 

A$PAR 

A$SCO 

ASTYP 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A.REH 

A.UCB 

CF$VR2 

CHKALI 

CHKPAR 

CHKSCO 

CMPCST 

CURCTX 

CSFLAG 

DEALUN 

DV.TTY 

D .  NAM 

HEADR 

H.LUN 

MAXACC 

MAXID 

MAXPAS 

MESAL! 

MF$AL2 

ME.PMI 

ME.PTY 

ME.PVA 

ME.UCO 

MFSALL 

Mi'SSCO 

MSSTER 

N$SVCT 

RStMPL 

R$$PRO 

SAVNAM 

TKTCB 

T.UCB 


00000  I 

00C002 

000026  R 

000000  R 

000010  R 

000016  R 

000012 

000006 

000022 

000000 

000103 

OOOOT^ 

000002 

000004 

000020 

000011 

000020 

000000 

000002 

000010 

000012 

000010 

».*•*«  GX 

000036  RG 

000526  RG 

000252  RG 

000210  R 

GX 
GX 
GX 


GX 
GX 


-  ****** 

r  ****** 

-  OOOOOA 

-  ****** 

-  ****** 

000076 

=  000020 

=  000020 

=  000010 

000010 

000003 

1777A? 

177772 

177760 

177770 

177775 

00OU4 

000001 


****** 

..»*»*  r,x 

******  GX 

.****.  GX 


REFERENCES 

#5-65 
#5-65 
#5-84 
#5-74 
#5-77 
#5-80 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-60 
#;-60 
#;-60 
#5-60 
#5-60 
#5-60 

6-151 
#6-112 

7-217 
#7-211 

6-141 

6-150 

6-151 

7-283 

7-314 

7-310 

7-300 

7-301 
#5-65 
#5-65 
#5-65 

6-U9 

6-153 

8-350 

8-355 

7-321 

6-154 

6-117 

7-215 

7-247 

7-316 

7-290 

7-225 

6-127 

7-312 

7-313 


6-138 
5-84 
5-85 
5-86 

6-125 


♦6-149 
*7-222 
•6-119 


#8-347 

#6-i71 


5-65 
5-65 
5-65 


7-237 
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*6-153 
•7-266 


•7-216 
•7-275 


7-285 


•7-317 


7-259 


7-268 
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SYMBOL  CROSS  REFERENCE 
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Symbol  table 


S1.TSY  = 
Sl.USI^ 
S2.BEL= 
S2.BRQ= 
S2.CR  = 
S2.CT0= 
S2.CTS= 
S2.E.F= 
S2.FLF= 
S2.IRa= 
S2.0Bf= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
S2.SRQ= 
S2.WAL= 
S2.WRA= 
S2.URB= 
S3.ACR= 

S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
S3.RES= 
S3.RUB= 
S3.TAB= 
S3.TME= 
33.r3Y= 
S3.8SC= 
S4.ABD= 
::4.AM  = 
SA.Ai'3= 
S4.BLK= 
SA.DEC= 
S4.DL0= 
SA.EDT= 
SA.HFF= 
S4.HFL= 
SA.HHI= 
SA.HSV; 
SA.RGS= 
SA.SFC= 
SA.VFL= 
S5.ABP= 
S5.8CC= 
55.DAC= 


0000^0 
100000 
020000 
000020 
002000 
OAOOOO 
100000 
001000 
OOOAOO 
000200 
OOAOOO 
000100 
010000 
0OCOO1 
OOOOAO 
000010 
000006 
000002 

oooop-i 

00000s 
000200 
001000 
OOOAG) 
000020 
020000 
OOAOOO 
000010 
010000 
OAOOOO 
000002 
002000 
OOOOAO 
000100 
100000 
OOOAOO 
OCT^OO 
0L2000 
OOAv,"JJ 
000100 
010000 
000020 
000007 
OOOOAO 
000200 
020000 
OAOOOO 
OOCOIO 
100000 
020000 
OAOOOO 


S5.HPC= 
S5.HP0= 
S5.ITI= 
55.0XF= 
55.RP0= 
S5.SW1= 
S5.TMM= 
S5.VER= 
S5.X0F= 
S5.X0NI= 
S6.EI0= 
S6.RD1= 
S6.RLU= 
T$$KMG= 
T$$MIN= 
UC.AL6= 
UC.AIT= 
UC.KIL= 
UC.LGH= 
UC.NPR= 
UC.PWF= 
UC.QUE= 
UD.UNS= 
UD.160= 
UD.200= 
UD.556= 
00.625= 
UD.8^  = 
UD.800= 
UM.CLI= 
UM.DSB= 
iJH.n8R= 
UM.OyR= 
US.A80= 
US.8SP= 
LlS.BSY  = 
US.FOR= 
US.FRK= 
US.KPF= 
US.LAB= 
US.MDE= 
US.MDM= 
US.MNT= 
US.OFL= 
US.PUB= 
LlS.PWF  = 
US.RED= 
US.SHR= 
uS.SPU= 
US.UMD= 


00001A 

000020 

000100 

OOOOAO 

002000 

000001 

000002 

010000 

OOOOOA 

000010 

OOOAOO 

100000 

001000 

000000 

000000 

000200 

000010 

OOOOOA 

000003 

000100 

000020 

OOOOAO 

000000 

OOOOOA 

000001 

000002 

000005 

000006 

000003 

000036 

000200 

OOO'.OO 

000001 

000001 

000002 

000200 

OOOOAO 

000002 

000001 

OOOOOA 

000002 

000020 

000100 

000001 

OOOOOA 

000010 

000002 

000001 

000002 

000010 


.  A8S.   177776 
00051A 
Errors  detected: 


000 
001 
0 


(RW,I,G8L,ABS,0VR) 
(RW,I,LrL,REL,CON) 


US.VV  = 

US.WCK= 

UU.A80= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.I0S= 

UU.0NL= 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.AC8 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKT= 

U.8UF 

U.CBF  = 

U.CLI 

U.CNT 

U.COTO 

U.CTCB 

U.CTL 

U.CTYP 

U.CW1 

u.:w2 

U.CW3 

U.CWA 

U.CYL  =-- 

U.DC8 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.<CSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.MLUN= 

U.MUP 

U.OWN 

U.R8NS= 

u.Rcrc= 

U.RCTS= 

U.RED 

U.RED2 

U.SC8 

U.SHST= 


000001 

000010 

OOOAOO 

000100 

OOOOOA 

000010 

002000 

000020 

000002 

000200 

000001 

001000 

OOOOAO 

000062 

000032 

000066 

00006A 

000022 

OOOOAA 

00002A 

000032 

177772 

000030 

000030 

000026 

OOOOOA 

000052 

OOOOAO 

000012 

00001A 

000016 

00010A 

000000 

0000A2 

OOOOAO 

000102 

000032 

00003A 

17777A 

OOOOAO 

000050 

177772 

177776 

000112 

00C113 

000110 

000002 

00003A 

000020 

00C076 
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U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SU8  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

'J.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TSTS. 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

u.uir 

U.U^FL= 

U.JNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

u.unL= 

U.VCB  = 
U.VSER= 
U.2MED= 
U2.AT.= 
U2.CRT= 
U2.DH1= 
U2.DJ1= 
U2.DZ1= 
U2.ESC- 
U2.HFF= 
U2.HLD= 
U2.L0G= 
U2.LWC= 
U2.l3S= 
U2.L8S= 
'J2.NEC  = 
U2.PRV= 
U2.RMT= 
U2.R0A= 
U2.SCS= 
U2.SLV= 
U2.\T5= 
U2.7CH= 


00007A 

U3.0PA= 

000036 

U3.PAR= 

000005 

U3.UPC= 

000007 

UA.CR  = 

000036 

Vi$CTR= 

0000A2 

W.BATT 

0000A3 

W.BFPD 

OOOOAO 

U.BHVR 

000:56 

W.8LGH 

00DC60 

W.BLPD 

000053 

W.8LVR 

0000A7 

W.BNPD 

000100 

W.BOFF 

000026 

W.BPCB 

00005A 

W.8SIZ 

000056 

X$$P2:= 

000050 

ZF.C0U= 

0000A6 

ZF.ODM= 

00002A 

ZF.DIA= 

000107 

ZF.DLC= 

OOOOAA 

ZF.DVP= 

000052 

ZF.INI= 

000006 

ZF.KMX= 

00011A 

ZF.LLC= 

000060 

ZF.LMC= 

000106 

ZF.MAN= 

000036 

ZF.MFL= 

00003A 

ZF.MTM= 

000120 

ZF.MUX= 

000070 

ZF.PSE= 

000020 

ZF.SLI= 

002000 

ZF.TIM= 

100000 

ZF.X3P= 

OAOOOO 

ZS.ASN= 

000100 

ZS.BSY= 

001000 

Z.AVL 

010000 

Z.DAT 

OOOOAO 

Z.DSP 

OOOAOO 

Z.FLG 

000001 

Z.LEN  = 

OOOOOA 

Z.LLN 

010000 

Z.MAP 

OOAOOO 

Z.NAM 

000010 

Z.PCB 

020000 

Z.SCH 

100000 

$hEADR= 

OOOOOA 

$MBLUN= 

000200 

SSAVRG^ 

000002 

$$$SYS= 

010000 

$S$SYX= 

100000 
OAOOOO 
020000 
000100 
001000 
000006 
00001A 
OOOOOA 
000020 
000016 
000002 
000015 
000012 
000000 
000010 
000000 
001000 
000001 
OOAOOO 
000002 
100000 
OAOOOO 
000020 
OOOOOA 
000100 
020000 
000010 
OOOAOO 
OOOOAO 
002000 
010000 
000200 
000000 
100000 
1A0000 
00001 A 
000016 
000000 
0000.0 
000016 
000006 
000020 
OOOOOA 
000012 
000007 

*****!( 
****** 
****** 

00A37A 
000000 


GX 
GX 
GX 


AsseT.bler  statistics 
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252 
255 
254 
255 
256 

.SSTTL 

GETMHC  -  GET  AREA  MIN 

MUM  HOPS  AND  COST 

«»   - 

GETMHC  - 

GET  AREA  MINIMUM  HOPS 

AND  COST 

INPUTS: 

257 

R1  =  NODE-iD  OF  NEXT  NODE  TO  AREA 

258 

R3  =  MESSAGE  BUFFER  POINTER 

259 

R4  =  CONTEXT  AREA  ADDRESS 

260 
261 

OUTPUTS: 

262 

R3  IS  UPDATED 

263 

RO  ;S  CL083EREO. 

26-; 

- 

265 

266  000650 

3ETMH 

:  SAVRG 

Rl 

;  SAVE  REGISTER 

267  000652 

005702 

TST 

R2 

;  IS  THERE  AN  OUTPUT  LINE  ? 

268  00065A 

001475 

BEQ 

40$ 

;  IF  EG,  NO 

269  0006:)6 

SWSTIC$ 

30$ 

;;  ENTER  SYSTEM  STATE 

270  000662 

016402 

000012 

MOV 

A$XPT(R4),R2 

;;  POINT  TO  XPT  PDV 

271  000666 

016202 

000016 

MOV 

Z.DAT(R2),R2 

;;  POINT  TO  PROCESS  DDB 

272  000672 

001432 

BEQ 

10$ 

;;  IN  CASE  SYSTEM  GOING  DOWN 

273 
27A 

IF 

THIS  IS  A 

LEVEL  1  ROUTER,  CHOOSE 

HOPS/COST  TO  NEAREST  LEVEL  2  ROUTER 

275 

276  000674 

032764 

000100  000000 

BIT 

#AF.LV2,A$FLG(R4) 

;;  ARE  WE  A  LEVEL  2  ROUTER? 

277  000702 

001004 

BNE 

5$ 

;;  BR  IF  YES 

278  000704 

062702 

000036 

ADD 

*N$MHC1,R2 

;;  POINT  TO  LEVEL  1  TABLES 

279  000710 

0050Ci 

CLR 

Rl 

;;  CORRESPONDING  ENTRY  TO  LEVEL  2  ROUTER 

280  000712 

281 

282  0007U 

000404 

BR 

7$ 

;;  JOIN  COMMON  CODE 

062702 

000044 

5$: 

ADD 

#N$MHC2,R2 

;;  POINT  TO  3  WORD  DESCRIPTOR 

283  0C0720 

284 

285  000724 

016401 

000004 

MOV 

A$NUM(R4),R1 

;;  PICK  UP  AREA  NUMER 

020122 

7$: 

CMP 

R1,(R2)t 

;;  ANY  INFO  FOR  THIS  AREA  ? 

286  000726 

101014 

BHI 

10$ 

;;  IF  HI,  NO  INFORMATION 

287  000730 

MAP 

(R2)  + 

;;  ELSE  MAP  TO  MHC  VECTOR 

288  000734 

001411 

BEQ 

10$ 

;;  IF  EQ,  NOT  SET  UP 

289  000736 

006301 

ASL 

Rl 

;;  MAKE  AREA  NUMBER  A  WORD  OFFSET 

290  000740 

061201 

ADD 

(R2),R1 

;;  CALCULATE  ADDRESS  OF  ENTRY  FOR  AREA 

291  000742 

BIAS 

Rl 

;;  BIAS  ADDRESS  FOR  APR  6 

292  000752 

011166 

OOOOOOG 

MO^ 

(R1),R$R1(SP) 

;;  PASS  MHC  INFO  BACK  IN  SAVED  Rl 

293  Cn0756 

294 

295  000760 

000405 

BR 

20$ 

;;  SUCCESS  1 

10$: 

RETC 

RO 

;;  NO  INFO  -  SET  USER  STATE  CARRY 

296  000772 

20$: 

RETURN 

;;  BACK  TO  USER  STATE 

297  000774 

298 

299  000776 

IU3425 

30$: 

BCS 

40$ 

;  IF  CS,  NO  INFORMATION 

012700 

000000' 

MOV 

#TEMP,R0 

;  POINT  TO  BUFFER 

300  001002 

010146 

MOV 

R1,-(SP) 

;  PUSH  RETURNED  DATA 

301  001004 

042701 

176000 

BIC 

#*C<1777>,R1 

;  CLEAN  OUT  JUNK  BITS 

302  001 010 

010110 

MOV 

R1,(R0) 

;  LOAD  UP  BUFFER 

303  001C12 

DBLOK$ 

PARAM,MP$0CO,DECUNS,2 

;  STORE  COST  TO  AREA 

304  001022 

012601 

MOV 

(SP)t,R1 

;  PICK  UP  HOPS 

305  001024 

000301 

SWAB 

Rl 

;  SHIFT  INTO  LOW  B'TE 

306  001026 

ASRt 

2,R1 

307  001032 

042701 

177740 

BIC 

#*C<37>,R1 

•  ISOLATE  HOPS 

308  001036 

010110 

MOV 

R1,(R0) 

;  LOAD  UP  BU-FER 

C  7 
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Mint  ^^un 
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ARREO,-^ 

CREATED  BY 

MACRO  ON  29 

-JUN-85   AT 

12:08 

SVMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

2.FLG 

000010 

#5-63 

9-362 

Z.LEN 

=  000016 

#5-63 

Z.LLN 

C00006 

#5-63 

Z.MAP 

000020 

#5-63 

9-3^3 

Z.NAM 

OGOOO-l 

#5-63 

9-365 

Z.PCB 

000012 

#5-63 

Z.SCH 

000007 

#5-63 

SCBTA 

-   ****** 

GX 

9-375 

9-382 

9-391 

$C5TA 

r.  ****** 

GX 

9-367 

SHEAOR 

-  ****** 

GX 

6-K3 

8-295 

SSAVRG 

-  ****** 

GX 

6-92 

SSAVVR 

=    ***!»** 

GX 

9-330 

.MBILD 

-  ****** 

GX 

8-303 

8-309 

10-416 

.MCODE 

-  ****** 

GX 

10-A19 

10-A21 

B     8 
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BLNL3T  - 
SAVROL  - 

189 

190 
191 
192 
193 
19A 
19S 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
21. 
2'? 
"13 


B  9 

BUILD  NODE  LIST  IN  CON  MACRO  V05.03t  Saturday  29-Jun-85  12:08  Page  10 
SAVE  ROL  NODE  ADDRESSES 

.SBTTl   SAVROL  -  SAVE  ROL  NODE  ADDRESSES 

♦»*  -  SAVROL  -  SAVE  ROL  NODE  ADDRESSES 

THIS  ROUTINE  IS  CALLED  AT  SYSTEM  STATE. 

INPUTS: 

R5  =  ADDRESS  OF  STORAGE  fOH  NODE  ADDRESS 

OUTPUTS: 

R5  =  UPDATED 


000250 
00025-; 
000262 
00026A 
000272 
000276 
000300 
C0310 
CC0312 


215  00031A 

216  000316 

217  000322 

218  000326 

219  000330 

220  000332 

221  00033A 

222  000336 

223  0OU3A2 

224  0003^4 

225  000350 

226  00035A 
22/  000356 
228  000362 
229 

230 
231 

232  00036A 

233  000370 

234  000372 

235  000402 

236  000410 

237  000412 

238  000416 
2^9  000422 

240  000424 

241  000450 

242  000434 

243  000436 

244  000442 


032764 
001440 

016202 
00''461 

005722 
005001 


005201 
017746 
062716 
020136 
101044 
005722 
001767 
020164 
101402 
010164 
020164 
101757 

000754 


016202 
001424 

132762 
001414 
016201 
020164 
101402 
010164 
020164 
^01402 


000140  000000 


000026 


SAVROL:  MAPXPT  ; ;  MAP  AND  POINT  TO  XPT  DATABASE 

SIT  #NF.LV1 INF.LV2,N$FLAG(R4)  ; ;  IS  IT  AN  ENDNODE  " 

BEQ  30$  "" 

MAP  N$R0AU2(R2) 

MOV  N$R0A1+4(R2),R2 

BEQ  50$ 

BIAS  R2 

TST  (R2)+ 

CLR  R1 


IF  EQ,  END  NODE 

MAP  TO  R0A1 

POINT  TO  ROL 

IF  EQ,  ? 

FORCE  APR  6  MAPPING 

SKIP  ZERO  OFFSET  ENTRY 

START  WITH  NODE  1 


SCAN  ROL  FOR  REACHABLE  NODES 


OOOOOOG 
000060 


000034 

000034 
000046 


000072 


000010  000002 

000000 
000034 

000034 
000046 


10$: 


20$: 


INC 

MOV 

ADD 

CMP 

BHI 

TST 

BEQ 

CMP 

BLOS 

MOV 

CMP 

BLOS 

CALL 

BR 


R1 

aDECPT,-(SP) 

#D$NN,(SP) 

Rl,a(SP)+ 

50$ 

(R2)  + 

10$ 

R1,N$HR0L(R4) 

20$ 

R1,N$HR0L(R4) 

R1,N$HLCX(R4) 

10$ 

SAVCTX 

10$ 


RJK03 


NEXT  NODE  ADDRESS 

POINT  TO  DEC  HOME  BLOCK 

POINT  TO  NUMBER  OF  NODES 

IS  NODE  ADDRESS  IN  TABLE  ? 

IF  HI,  NO 

IS  THIS  NODE  REACHABLE  ? 

IF  EQ,  NO 

IS  ADDRESS  HIGHER  THAN  ROL  HIGHEST 

IF  LOS,  NO  -  BRANCH 

ELSE  SET  HIGHEST  ROL  TO  CURRENT  ADDRESS 

IS  ADDRESS  HIGHER  THAN  LAST  CONTEXT  HIGHEST 

IF  LOS,  NO  -  GET  NEXT  ADDRESS 

ELSE  SAVE  THE  ADDRESS  IN  CONTEXT  AREA 

LOOK  FOR  MORE 


END  NODE  -  ADJACENT  NODE  INCLUDED  FOR  ACTIVE  NODES 


50$: 


40$: 
50$: 


MOV 

BEQ 

BIAS 

BITB 

BEQ 

MOV 

CMP 

BLOS 

MOV 

CMP 

BLOS 

CALL 

RETURN 


N$ADJ1(R2),R2 

50$ 

R2 

*AT$UP,A$TYP(R2) 

50$ 

A$NID(R2),R1 

R1,N$HR0L(R4) 

40$ 

R1,N$HR0L(R4) 

R1,N$HLCX(R4) 

50$ 

SAVCTX 


PICK  UP  ADDRESS  OF  ADJACENCY 

IF  EQ,  NOTHING  UP 

BIAS  IT  FOR  APR  6 

IS  IT  UP  ? 

IF  EQ,  NOPE 

ELSE  PICK  UP  NODE  ADDRESS 

IS  ADDRESS  HIGHER  THAN  ROL  HIGHEST 

IF  LOS,  NO  -  BRANCH 

ELSE  SET  HIGHEST  ROL  TO  CURRENT  ADDRESS 

IS  ADDRESS  HIGHER  THAN  LAST  CONTEXT  HIGHEST 

IF  LOS,  NO  -  RETURN 

ELSE  SAVE  IT  AND  RETURN 
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ZS.BSV=  lAOOOO 

7.^\ll  OOOOU 

Z.DAT  000016 

Z.DSP  000000 

.  ABS.  000270 
001650 
Errors  detected: 


Z.FLG 
Z.LEN 
Z.LLN 


000010 
000016 
000006 


Z.MAP 
Z.NAM 
Z.PCB 


000020 
OOOOOA 
000012 


Page  16-7 

Z.SCH   000007 
$CEACC=  »•***♦  GX 
$SAVAL=  •♦♦♦**  GX 


$$SHFT=  000004 
$$$SrS=  C04374 
$$$SyX=  000000 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 


•  *»  Assenib''='r  statistics 

Work  file   reads:  287 

Work  file  writes:  203 

Size  of  work  file;  38288  Words 

Size  of  core  pool:  17608  Words 

Operating  system:  RSX-11M/PLUS 

SY:§LNLST!v2;[135?°§4]8LNLST/CR/-SP=SY:[1,1]RSXMCM.SML/lviL,ri30,110]NETLIB/ML,[130,10]RSXMCM/°A:l,[135,10]BLNLST 


(  150  Pages) 
(  67  Pages) 
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000001 
000002 
OOOOOi 
000010 
000020 
OOOOAO 
000100 
000200 
000360 


000001 
000002 
OOOOOA 


000010 
OOuOto 
000040 
040000 
100000 


.SBTTL  BIT  DEFINITIONS 
PARSE  FLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LPSTRB 
LPSMUX 
LPSMPT 
LPSWDV 
LPSWCN 
LPSWUN 
LPSWTR 
LPIULD 


1 

2 

4 

10 

20 

40 

100 

200 


UNIT  NUMBER  FOUND 

TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARV  NUMBER  FOUND 


=  LP$WDVILP$WCNILP$WUNILP$WTR  ;  WILD  CARD  FIELD  MASK 


000001 

BITO  = 

000002 

BITl  = 

000004 

BIT2  = 

000010 

BiT3  = 

000020 

BIT4  = 

000040 

BITS  = 

000100 

BIT6  = 

000200 

BIT7  = 

000400 

BITS  = 

001000 

BIT9  = 

002000 

BITIO 

004000 

BITII 

010000 

BIT12 

020000 

BIT13 

04000C 

BIT14 

100000 

BIT15 

64 

FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA  =  1 

LFSZER  =  2 

LFSSKP  =  4 


LF$VR2  =  10 

LFSEND  =  20 

LFSSIG  =  40 

LFSMLT  =  40000 
LFSSEG  =  100000 

BIT  POSITION  DEFINITIONS 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 
^  2000 
=  4000 
=  10000 
=  20000 
=  40000 
=  100000 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFICANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 
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Page  7 


r  I  nn  1 1  r_  in  codma  t 
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;  OFFSETS  INTO  SCRATCH  BUFFER  (L$SCR)  FOR  DMC  BASE  TABLE  COUNTERS 


00012'. 

000000 
000001 
000002 
000003 
000004 
000005 
000006 

000000 


000000 


.ASECT 

.=0 

B$5: 

.8LK8   1 

B$6: 

.8LKB   1 

B%7: 

.BLK8   1 

B$10: 

.BLK8   1 

B$11: 

.BLK8   1 

B$12.- 

.BLKB   1 

B$7S10: 

.BLKB   1 

.EVEN 

.PSECT 

RASE 

TABLE 

5 

RASE 

TABLE 

6 

RASE 

TABLE 

/ 

R.'SE 

TABLE 

10 

RASE 

TABLE 

11 

BASE 

TABLE 

12 

SUM  OF  BASE  TABLE  7  AND  10 


C  12. 


CHKLIN  -  CHECK  A  LINE-1 
BIT  DEflNlTIONS 
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53 
5i 
55 
56 
57 
58 
59 
60 

61  000000 

62  000000 

63  000000 
M   OOCOOO 

65  000000 

66  000000 

67  000000 

68  000000 


.S8TTL  Mscro  calls  and  local  data 

Macro  library  calls 

MM        ASL$,CICCX$,1MSG$,MAN[)F$,PVCDF$,NTLDF$ 
.MtALL  PDVDF$,RETC,RESRG,SAVRG,SLT[)F$,UCBDF$ 
.MCALL   HDRDF$,NSFDF$ 


HDRDFS 
MANDFS 
NSFDFS 
NTLDFS 
PDVDFS 
PVCDFI 
SLTDF$ 
UCBDFS 


Define  task  header  offsets 
Define  network  management  symbols 
Define  NS :  features  mask 
Define  network  loader  symbols 
Define  PDV  offsets 
Define  PVC  descriptor 
Define  SLT  of  fs"  . 
Define  UC8  offsets 
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CICHIN  -   CIRCUIT   CHANGE 
PARSE    SUB-EXPRESSIONS 

t,lfi  000000 
439  000000 
4A0  000000 

441  000000 

442  000000 
443 
444 
445 
44(S  000000 

447  OOOOCO 

448  000000 

449  000000 

450  000000 
451 
452 
453 

454  000000 

455  000000 

456  000000 

457  000000 
458 
459 
450 

461  000000 

462  000000 

463  000000 

464  000000 
465 
466 
467 

468  000000 

469  000000 

470  000000 

471  000000 

472  000000 
473 
474 
475 

476  000000 

477  000000 

478  000000 

479  000000 
480 
481 
482 

483  000000 

484  000000 
485 

486  000000 

487  000000 
488 
489 
490 

491  OOOOOO 

492  000000 
493 
494 
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FIELDS 

SBYTE  MU$PER,$EXIT,,MU$PER,+L$llIS 

SGVTE  MU$1NC,$EX!T,,MU$1NC,+L$CUS 

SBYTE  MUSOUT,SEXIT,,MU$OUT,+L$CUS 

SNULL  ,,PVAERR 

DTE  subexpression 

FIELDS  SDTE 

SPARAM  MPSDTE,,PAREND,MP$DTE,+LSPAR 
FIELDS 

SIMAGE  MXDTE.SEX'^DTEACT 

SNULL   ,,PVAERR 

Maximum  recalls  subexpression 

FIELDS  SMXR 

SPARAM  MPSMXR , , PAREND ,MP$MXR , +LSPAR 
FIELDS 

SMATCH  1,SEXIT,MXRACT 

Maximum  window  subexpression 

FIELDS  SMXW 

SPARAM  MPSMXW,, PAREND, MPSMXW.+LSPAR 
FIELDS 

SMATCH  1,SEXIT,MXWACT 

Number  subexpression 

FIELDS  SNUM 

SPARAM  MPSNUM,, PAREND, MPSNUM.+LSPAR 
FIELDS 

SIMAGE  MXDTE,SEXIT,NUMACT 

SNULL  ,,PVAERR 


Permanent 

Incoming 

Outgoing 


Recall  timer  suuexpi °ssion 

, PAREND, MPSRET,tLSPAR 


f.elds  sret 
sp;ram  mp'ret, 

FIELDS 
SMATCH  2,SEXIT,RETACT 


CLEAR  ALL  SUB-EXPRESSION 


FIELDS 
SEOM 


CALL 
,CALL1 


FIELDS   CALL1 
SERROR  ME. FUN 

CLEAR  COUNTER  TIMER  SUB-EXPRESSION 

FIELDS  CLCT 
SPARAM  MPSLCT,SEXIT 

Clear  recall  time'-  sub-expression 


C  K 
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B  15 

CICHIN  -   ClRCUll   CHANGE   PARAME T   MACRO  V05.03b  Saturday  29-Jun-85   12:10     Page   19 
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857 
838 
839 
840 
8A1 

843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
(553 
854 
855 

856  000606 

857  000614 

858  000616 

859  000624 

860  000626 

861  000632 

862  000640 

863  000642 

864  000644 

865  000646 
8o6  000650 

867  000654 

868  000656 

869  000660 


.SBTTL      CH<DMP   -   CHECK   FOR   DMP  DEVICE 

y 

CHKDMP  -  CHECK  FOR  DMP  DEVICE 

INPUTS: 

.MSGPT  -  ADDRESS  OF  PORTION  OF  MESSAGE  WHICH  WAS  MATCHED 
.MSGCN  -  NUMBER  OF  BYTES  MATCHED 
R4     -  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

IF  DMP  DEVICE: 

Rl  -  VALUE  OF  PARAMETER 
ELSE: 

PARAMETER  NOT  APPLICABLE  ERROR  MESSAGE  IS  RETURNED 


026427 
001404 
026427 
001316 
016700 
022767 
001002 
111001 
000405 
005001 
156001 
000301 
I-^IOOI 


000000  015436  CHKDMP: 
000000  015430 


OOOOOOG 
000001 


000001 


OOOOOOG 


5$: 


20$: 


CMP 

L$DDM(R4) 

#*RDMV 

WAS  DMV  SPECIFIED? 

BEQ 

5$ 

BR  IF  YES 

CMP 

L$DDM(R4) 

**RDMP 

WAS  DMP  SPECIFIED? 

BNE 

PNAERR 

BR  IF  NO 

MOV 

. MSGPT, RO 

POINT  TO  MESSAGE 

CMP 

*1,.MSGCN 

BYTE  VALUE? 

BNE 

10$ 

BR  IF  NO 

MOVB 

(R0),R1 

SAVE  VALUE 

BR 

20$ 

FINISH  UP 

CLR 

Rl 

STORE  PARAMETER  VALUE  IN  Rl 

BJS8 

1(R0),R1 

STORE  HIGH  BYTE 

SWAB 

Rl 

MOVE  INTO  HIGH  BYTE 

BJS8 

{R0),R1 

STORE  LOW  BYTE 

RETURN 
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CHNAC  -  X.25  PVC  Channel  Number  action  routine 
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r^SAACT  -  ACTIVE  BASE  ACTIOM  ROUTINE 


1128 
1129 
1150 
1151 
1152 
1155 
115A 
1155 
1156 
1157 
1158 
1159 
1140 
1K1 
1U2 
1K5 
1U4 


001246 
001252 
001256 


.SBTTL  8SAACT  -  ACTIVE  BASE  ACTION  ROUTINE 

BSAACT  -  ACTIVE  BASE  ACTION  ROUTINE 
INPUTS: 


.MSGPT 
R4 


POINTER  TO  1  BYTE  ACTIVE  BASE 
POINTER  TO  CONTEXT  AREA 


110164  000122 


OUTPUTS: 

L$BSA(R4)  -  ACTIVE  BASE  VALUE 


BSAACT:  CALL     CHKDMP 

MOVB    R1,L$BSA(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  ACTIVE  BASE  VALUE 
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""■\CT  -  DYING  BASE  ACTION  ROUTINE 


"hop         created  by  macro    on  10-sep-85  at  11:a6 

svmbol  cross  reference 

svmbol    value  references 

tXLlN«   =  ......  GX  7-2^9  9-395 


C  1 

PAGE  2 

CREF   0^.00 


AlCHOP     created  B"  macro  on  10-SEP-85  AT  11. -46 
MACRO  CROSS  REFERENCE 
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PAGE  5 

CREF   04.00 
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MD.PER 

MO. RES 

MD.ROB 

MD.RSH 

MO. SOU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

MD.UNR 

MO.UOB 

MD.VOL 

MESALI 

ME SAL 2 

MESARE 

MESCIR 

MESEXA 

MESEXE 

MESLIN 

MESLOG 

MESMOD 

MESNOD 

MESNON 

MESOBJ 

ME $082 

MESPRO 

MESSYS 

ME.BLO 

ME. CON 

ME.CST 

ME.DIS 

ME. DON 

ME.FCO 

ME.FIO 

ME. FOP 

ME. FOR 

ME. FUN 

ME.GRO 

ME.HAR 

ME.IID 

ME. LCD 

ME.LPR 

ME.MPR 

ME.MVE 

ME. OPE 

ME.PLO 

ME.PMI 

ME.PNA 

ME.PRI 

ME.PTV 

ME.Pi'A 

MC.RES 

ME . ROO 

ME  SI7 

ME. SYS 

ME.UCO 

MFSACT 


000000 

00000^ 

000005 

000015 

000005 

000003 

000000 

000004 

000002 

000003 

000007 

000006 

000010 

000003 

000005 

00OC03 

000000 

0002CO 

000001 

000002 

OOOOOA 

000000 

177777 

000007 

000004 

000005 

000006 

177744 

177753 

177765 

177755 

177600 

177762 

177756 

177763 

177776 

177777 

177745 

177750 

177767 

177766 

177757 

177773 

177771 

177747 

177751 

177743 

177752 

177775 

177? 72 

177760 

177761 

177754 

177774 

'77746 

1^7770 

177776 


rifSADD 

MFSADJ 

MFSALL 

MFSBYE 

MFSCHA 

MFSDUM 

MFSEVT 

MFSFUP 

Mf$<NO 

MFSLOA 

HFSLOO 

MFSREA 

MFSSIG 

MFSSPF 

MFSSYS 

MFSTES 

MFSTRA 

MFSTRI 

MFSZER 

MLSALL 

MLSCLS 

MLSCON 

HLSEXT 

MLSFIL 

MLSFIR 

MLSINT 

MLSKNO 

MLSMON 

MLSSYS 

MLSTOP 

MN$UNL 

MOSACC 

MOSADD 

m$f  A 

MOSAlI 

MOSCHA 

MOSCIR 

MOSCLE 

MOSCOM 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

MOSLIN 

MOSLOG 

MOSMIR 

MOSNAM 

MO$NIC 

MOSNOD 

MOSOFF 

MOION 

MOSOr  r 

MOiPER 

MO$.=RO 


000000 

177774 

177775 

000300 

000023 

000020 

000001 

000264 

Mini 

000017 

177775 

000024 

177773 

000302 

000026 

000022 

000301 

000021 

000025 

100000 

000000 

000001 

000001 

OO00P2 

000000 

000000 

140000 

000003 

000002 

000001 

000377 

000200 

000002 

000004 

000000 

000040 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

000000 

ooouoi 

000200 
000002 


MOSPRS 
MOSREA 
MOSSET 
MOSSTA 
MOSSUM 
MOSTSK 
M03VOL 
MOSZER 
MPSACB 
MPIACC 
MPSACT 
MPSADD 
MPSADJ 
MPSADP 
MPS ADS 
MPSALB 
MPSAMC 
MPSAMU 
MPSAN8 
MPSASB 
MPSASC 
MPSAUS 
MPSBBT 
HPS6DF 
MPSBFQ 
MPSBLK 
MP$8LQ 
MPSBMX 
MPS8NP 
MPS8RT 
MPSBSA 
MPSBSD 
MPSBSI 
MPSBSP 
MPS8UF 
MPSBUP 
MPSBUS 
MPSCAC 
MPSCAS 
MPSCAT 
MPSCCS 
MPSCHN 
MPSCIR 
MPSCLK 
MPSCL^J 
MPSCLT 
MPSCM8 
MPSCMK 
MPSCMX 
MPSCND 
MPSCNU 
MPSCCB 
ilPSrON 
MPJCOS 
MPSCPF 
I1PSCPL 
MPSCPT 


000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

000514 

004526 

000766 

001440 

006325 

004406 

000036 

001640 

001641 

004420 

000024 

004432 

000512 

002165 

002164 

002121 

001616 

001452 

002176 

006330 

001620 

002-,76 

002203 

002200 

006331 

000170 

006324 

001645 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

000557 

002153 

000510 

001755 

000511 

002126 

101604 

0C0230 

000252 

000226 


MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

MPSDAL 

HPSDCO-- 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MPSDH0= 

MPSDIA 

MPSDLB 

MPSDLG 

MPSDLI= 

MPSDLT 

MPSDRC 

MPSDST 

MPSDTE 

MPSDTY= 

MPSDUA 

MPSDUC 

MPSDUM 

MPSDUP 

MPSDVC 

MPSDWE 

MPSELT 

MPSETY 

MPSEVE 

MPSFNC 

MPSGDT 

MPSGNM 

MPSGRO 

MPSGRP 

MPSGTY 

MPSHAD 

MPSHBT 

MPSHDD 

MPSHTM 

MPSHWA 

MPSIAT 

MPSIDE 

MPSIDP 

MPS I HO 

MPSINA 

MPSIND 

MPSINI 

MPSITI 

MPSLAA 

MPSLAN 

MPSLAR 

MPSLAS 

MPSLBS 

MPSLCO 

MP  J.I.  a 

MPSLHL 


000161 
001755 
002127 
000540 
002570 
001464 
002177 
001151 
000156 
002114 
001520 
001465 
000175 
002571 
004521 
001466 
002200 
001441 
000454 
002140 
001452 
000207 
000210 
000202 
002127 
002114 
001521 
000157 
001605 
000511 
001752 
002222 
002225 
002115 
000541 
002224 
00175/ 
002142 
000162 
001612 
002210 
001522 
000144 
006527 
000215 
002177 
002204 
002201 
000776 
000251 
000254 
0002^2 

0000:2 

000205 
000226 
000156 
0C0232 


MPSLLE 
MPSLLO 
MPSLMB 
MPSLMX 
MPSLNA 
MPSLNO 
MPSLOA 
MPSLOG 
MPSLOO 
MPSL1M 
MPSLTY 
MPSLJI 
MPSMAC 
MPSMAD 
MPSMAP 
MPSMAR 
MPSMAV 
MPSMBN 
MPSMBR 
MPSMBU 
MPSMCB 
MPSMCO 
HPSMDE 
MPSMHO 
HPSML8 
MPSMLK 
MPSMLN 
MPSMLP 
MPSMRB 
MPSMRO 
MPSMRP 
HPSMRT 
MPSMRV 
MPSMSB 
MPSMVE 
MPSMVI 
MPSMVR 
MPSMWN 
MPSMXB 
MPSMXC 
MPSMXR 
MPSMXW 
MPSNAA 
MPSNAC 
MPSNAP 
MPSNCT 
MPSNET 
MPSNLI 
MPSNNA 
MPSNOD 
MPSNRA 
MPSNRB 
MPtNSA 
MPSNTI 
MPSNUM 
MPSNVE 
MPSNXN= 


000227 
004452 
002152 
002200 
000144 
000255 
000170 
004514 
000620 
001615 
004555 
000250 
004420 
001630 
006525 
001635 
006521 
001656 
001657 
001642 
000156 
001652 
004421 
001633 
000202 
001306 
001651 
006555 
002171 
001605 
006522 
002155 
006520 
000170 
000145 
001654 
001751 
002154 
002172 
000466 
001630 
002145 
006555 
001130 
006526 
C00240 
002114 
000765 
000764 
000500 
006354 
000214 
001617 
002141 
001642 
001274 
001476 
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Symbol   tible 

MDtnar      t\c\!\f,-K-^  MPfiFB      onoUi  M<;SAI  0      000007  MTSMAX      000057 


M$SCR8=  000124 
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Al 
M/ 


200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 

217  00035A 

218  00035A 

219  000360 

220  00C362 

221  000364 

222  000366 
223 

224 
225 

226  000370 

227  00037A 

228  000400 

229  000402 
230 

231 
232 

233  000404 

234  000410 

235  000414 

236  000420 

237  000424 

238  000426 

239  000430 

240  000434 

241  000436 

242  000440 
243 

2A4  000442 
2i5  000444 


.SBTTL   FMTSCO  -  FORMAT  SCOPE  PARAMETER 

♦»-FMTSCO-FORMAT  SCOPE  PARAMETER 

THIS  ROUTINE  IS  CALLED  TO  ORMAT  THE  SCOPE  PARA.'IETER  FIELD. 

INPUTS ■ 

R1  =  POINTS  TO  SCOPE  (0  =  GLOBAL,  ELSE  UCB  ADDRESS  OF  TERMINAL) 
R3  =  BUFFER  TO  HOLD  FORMATED  FIELD 

OUTPUTS: 

R3  =  NEXT  FREE  BYTE  IN  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 


112723 
105023 
010300 
011103 
001006 


112720 
112720 
105020 
000417 


112720 
112720 
112720 
112720 
105020 
010005 

010003 
160503 
110345 

010003 


000144 


000301 
000201 


000302 
000201 
000001 
000100 


FMTSCO: 


M0V8 

CLRB 

MOV 

MOV 

BNE 


#MP$SC0,(R3)+ 
(R3)  + 
R3,R0 
(R1),R3 
10$ 


FORMAT  GLOBAL  SCOPE 


MOVB 
MOVB 
CLRB 
BR 


*201,(R0)< 
(R0)  + 
20$ 


FORMAT  TERMINAL  SCOPE 


10$: 


20$: 


MOVB 

MOVB 

MOVB 

MOVB 

CLRB 

MOV 

CALL 

MOV 

SUB 

MOVB 

MOV 
RETURN 


#302,(R0)+ 

*201,(R0)t 

«1,(R0)+ 

#100,(R0)+ 

(R0)  + 

R0,R5 

$FMTDV 

R0,R3 

R5,R3 

R3,-(R5) 

R0,R3 


SET  PARAMETER  TYPE  =  SCOPE 

SAVE  POINTER  TO  BUFFER 

GET  SCOPE 

IF  NE,  TERMINAL  SCOPE 


DATA  TYPE  =  CODED,  MULT  FIELD  (1) 
SCOPE  TYPE  DATA  TYPE 
SCOPE  TYPE  =  GLOBAL 
RETURN 


DATA  TYPE  =  CODED,  MULT  FIELD  (2) 

"^COPE  TYPE  DATA  TYPE 

SCOPE  TYPE  =  TERMINAL 

TERMINAL  ID  DATA  TYPE  =  ASCII  IMAGE 

ALLOCATE  IMAGE  FIELD  LENGTH  BYTE 

SAVE  POINTER  TO  START  OF  STRING 

FORMAT  TERMINAL  DEVICE  NAME  STRING 

POINT  TO  END  OF  STRING 

CALC  STRING  LENGTH 

SET  LENGTH  OF  IMAGE  STRING 

POINT  TO  NEXT  FREE  BYTE  IN  BUFFER 
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ALXXIN  -  ALIAS  INITIALIZATION  C 
MACRO  CALLS  AND  LOCAL  DATA 

53 

5A 
55 
56 
57 
58 
59 

60  000000 

61  000300 

62  000000 

63  000000 
6A 
65  000000 


000020 


JOOOOO 
000002 

ooooo'; 

000006 
OOOO'O 
000011 
000012 
000020 


000022 

000030 
000103 


000020 
000010 
000020 

000000 


vuwuv 

000001 

000002 

66 

67 

68 

69 

70 

71 

7? 

73 

7i.   000000 

006 

:'5  000001 

CO 

76 

7/  000010 

005 

78  000011 

04^ 

040 
110 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 

MACRO  LIBRARY  CALLS 

.HCALL  AN8DF$,MANDF$,ALUN$S,SWSTK$,RETC,SAVMAP,RESMAP,MAP 
.MCALL  HDRDF$,UCBOF$,ALCCX$,SAVRG,RESRG 

ANBDFS  ;  DEFINE  ALIAS  NAMF  BLOCK  OFFSETS 

MANDFS  ;  DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

UCBDFS  ;  DEFINE  UCB  OFFSETS 

HDRDFS  ;  DEFINE  TASK  HEADER  OFFSETS 

ALCCXS  LIST  ;  DEFINE  CONTEXT  AREA 

CONTEXT  AREA  OFFSET  DEFINITIONS 

MAX1D=16. 

MAXPAS=8. 

MAXACC=16. 

.ASECT 

.=0 

OFFSETS  IN  COMMON  WITH  READ  INFORMATION  MODULES 


MAXIMUM  LENGTH  OF  USER  ID 
MAXIMUM  LENGTH  OF  PASSWORD 
MAXIMUM  LENGTH  OF  ACCOUNT 


A$FLG 
A$OPT 
ASPAR 
ASBlIF 
A$NUM 
A$TYP 
ASALI 
A$SCO 


.8LKW 
.BLKW 
.BLKW 
.8LKW 
.BLKB 
.BLKB 
.BLKW 
.BLKW 


1 


FLAG  WORD 

SAVED  OPTIONS  WORD 

CURRENT  PARAMETER  TYPE 

SAVED  POINTER  TO  BUFFER 

NUMBER  OF  BYTES  IN  ANB  (FOR  SET) 

ALIAS  FORMAT  TYPE 

ALIAS  NAME,  SPACE  FILLED 

SCOPE  OF  ALIAS 


OFFSETS  UNIQUE  TO  CHANGE  PARAMETERS  MODULES 
A$DE 


ASLEN: 


.BLKW 
.BLKB 


•PSECT 

FLAGS  WORD  BIT  DEFINITIONS 

AF.JNI=1 
AF.0VR=2 

LOCAL  DATA 

Table  of  Aliases 

.MiST  BEX 


3  ;  DESTINATION  NAME,  SPACE  FILLED 

<1+MAXID>+<1+MAXPAS>+<1+MAXACC>  ;  ACCESS  CONTRCl  STORAGE 
;  LENGTH  OF  CONTEXT  AREA 


SUCCESSFUL  INITIALI7ATI0N  COMPLETED 
CONTEXT  AREA  OVERFLOWED 


040 


ALIT1:       .BYTE  6 

.ASCII  / 
.EVEN 

ALIT2:   .BYTE  5 

117         .ASCII  /SHOST/ 
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ALXXIN     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:07     PAGE  2 

SYMBOL  CROSS  REFERENCE  CREF   OA.OO 

SYMBOL  VALUE  REFERENCES 

u.Cwl  000010        7-3U 

U.RED  000002        7-305     7-307 

SrOTB  =  •■.♦•♦«  GX     7-278 

$HEAD'<  =    •*■  ■•♦  GX            7-316 

STMLUN  =   *■      •'  GX            7-285             7-301 


0  5 
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MACRO  CROSS  REFERENCE  CREF   04.00 
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ARREIN  -  AREA  READ  INFORMATION  MACRO  V05.O3b  Saturday  29-Jun-85  12:07  Page  6-7 
S>mbol  table 

Work  tile  reads:  2^2 

Work   f i ' e  writes:  160 

Size  of  work  file:  32H9  Words   (  126  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-1 IM/PLUS 

SY:ARREIn'v2!c?3^?°34]ARREIN/CR/-S3-jY:[1  J]RSXMCM.SML/MLJ130J10]NETLIB/ML,C130JO]RSXMCM/PA:1,[1^ 


0  6 

ARREIN     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:07     PAGE  1 

SYMBOL  CROSS  REFERENCE  CREF   O't.OO 
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ARREOP  -  AREA  READ  INFORMATIOM  MACRO  V05.03b  Saturday  29-Jun-85  12:07  Page  8-1 
GETMHC  -  GET  AREA  MINIMU"^  HOPS  AND  COST 

309  OCOAO  DBLOKS  PARAM,MP$DH0,DECUNS,1    ;  STORE  HOPS  TO  NODE 

]r    001050                     ^0$:  PESRG   R1                  ;  RESTORE  REGISTER 

3'' 2  001052  RETURN 

?:3 
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FMTCIR  -  FORMAT  CIRCUIT  IL 


cmri  rMTTTD     _     CflDMAT     riDnilT      'fl 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

ADJDF$ 

#5-56 

5-59 

ARRCX$ 

#5-56 

5-67 

ASR$ 

#5-57 

8-306 

BIAS 

#5-57 

6-129 

6-136 

7-216 

7-231 

7-234 

8-291 

CALL 

6-109 
10-420 

6-118 
11-A55 

6-171 

6-172 

6-173 

8-269 

9-367 

CNTR$$ 

#5-62 

OATA$$ 

#5-62 

8-303 

8-309 

10-416 

10-419 

10-421 

rBLOKS 

#5-62 

8-303 

8-309 

10-416 

10-419 

10-421 

|iHBDF$ 

#5-56 

5-60 

KANDFS 

#5-56 

5-61 

#5-62 

5-62 

MAP 

#5-57 

6-126 

6-135 

7-212 

7-228 

7-235 

8-287 

MBILDS 

#5-56 

5-62 

PDVDFS 

#5-56 

5-63 

RESMAP 

#5-57 

7-249 

RESRG 

#5-57 

7-248 

8-311 

11-464 

RETC 

#5-57 

6-143 

8-295 

RETURN 

6-1A4 

6-186 

7-250 

8-296 

8-312 

9-396 

10-42 

SAVMAP 

#5-57 

7-201 

SAVRG 

#5-57 

7-202 

8-266 

11-440 

SITDFS 

#5-56 

5-64 

SWSTK$ 

6-109 

8-269 

XPDDBS 

#5-56 

5-65 

9-375     9-382     9-391 


11-465 
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Page  11 


2'-.6 

2A7 

2A8 

2A9 

250 

251 

252 

253 

25A 

255 

256 

257 

258 

259 

260  00OA44 

261  OOO^AA 

017702 

OOOOOOG 

262  000-150 

062702 

000002 

253 

264 

265 

266  0CO45A 

011246 

267  000A56 

268  OO0A62 

012602 

269  000464 

001425 

270 

271  000466 

016201 

000010 

272  000472 

032762 

100000  000012 

273  000500 

001365 

274  000502 

020164 

000032 

275  000506 

101402 

276  000510 

010164 

000032 

277  000514 

020164 

000046 

278  000520 

101755 

2^9  0O0522 

280  U00526 

103352 

281  000530 

032764 

040000  000000 

282  000536 

001346 

283 

234  000540 

.SBTTL   SAVREM  -  SAVE  REMOTE  NODE  ADDRESSES 

***  -  SAVREM  -  SAVE  REMOTE  NODE  ADDRESSES 

THIS  ROUTINE  IS  CALLED  AT  SYSTEM  STATE  AND  MUST  HAVE  PREVIOUSLV  SAVED  KISAR6. 

INPUTS: 

R5  =  ADDRESS  OF  STORAGE  FOR  NODE  ADDRESS 

OUTPUTS: 

R5  =  UPDATED 


SAVREM: 


MOV 
ADD 


aDECPT,R2 
#D$RNN,R2 


SCAN  REMOTE  TABLES 


10$: 


15$: 


20$: 


30$: 


MOV 
CALL 
MOV 
BEQ 

MOV 

BIT 

BNE 

CMP 

BIOS 

MOV 

CMP 

BLOS 

CALL 

BCC 

BIT 

BNE 

RETURN 


'R2),-(SP) 
aCEACC 
(SP)+,R2 
30$ 

R.ADD(R2),R1 

#RF.L00,R.FLAG(R2) 

10$ 

R1,N$HREM(R4) 

20$ 

R1,N$HREM(R4) 

R1,N$HLCX(R4) 

10$ 

SAVCTX 

10$ 

*NF.FTT,N$FLAG(R4) 

10$ 


RJK03 


RJK03 


POINT  TO  START  OF  REMOTE  LIST 


SET  UP  TO  MAP  TO  RNB 
MAP  TO  RNB 
GET  MAPPED  ADDRESS 
IF  EQ,  NONE 


GET  NODE  ADDRESS 

LOOP  NODE  ? 
F  NE,  YES  -  DON'T  SAVE  IT 
S  ADDRESS  HIGHER  THAN  REM  HIGHEST 
F  LOS,  NO  -  BRANCH 

LSE  SET  HIGHEST  REM  TO  CURRENT  ADDRESS 
S  ADDRESS  HIGHER  THAN  LAST  CONTEXT  HIGHEST 
F  LOS,  NO  -  GET  NEXT  ADDRESS 

SAVE  THE  NODE  ADDRESS 
F  CC,  MORE  ROOM 

S  THIS  FIRST  TIME  THROUGH  LIST 
F  NE,  YES  -  SEARCH  WHOLE  LIST  TO 
GET  HIGHEST  REMOTE  NODE  ADDRESS 
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Page  12 


cAi/c  cri 
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SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF   0^.00 


SYMBOL  VALUE 


REFERENCES 


ATSUP 

=  000010 

10-235 

ASLEN 

OOOOOA 

■4-409 

A$NID 

000000 

10-237 

ASTYP 

000002 

10-235 

3IT0 

=  000001 

#6-87 

B1T1 

=  000002 

#6-87 

31T10 

=  002000 

#6-87 

31T11 

=  OOAOOO 

#6-87 

31T12 

=  010000 

#6-87 

BITIX 

=  020000 

#6-87 

3!TU 

=  OAOOOO 

#6-87 

BIT15 

=  100000 

#6-87 

3IT2 

=  OOOOOA 

#6-87 

BIT3 

=  000010 

#6-87 

BITA 

=  000020 

#6-87 

3IT5 

=  OOOOAO 

#6-87 

BIT6 

=  C00100 

#6-87 

BIT7 

=  000200 

#6-87 

BITS 

=  OOOAOO 

#6-87 

BIT9 

=  001000 

#6-87 

BLNLST 

000054  RG 

8-132 

B$10 

000003 

#5-87 

B$11 

OOOOOA 

#5-87 

B$12 

000005 

#5-87 

B$5 

000000 

#5-87 

B$6 

000001 

#5-87 

B$7 

000002 

#5-87 

B$7S10 

000006 

#5-87 

CEACC 

=  *».»..  GX 

11-267 

DECPT 

=  »««»*♦   GX 

10-216 

DISTBL 

000000  R 

#7-104 

DSNBEA 

000056 

14-395 

DSNBRA 

00005A 

14-394 

D$NLN 

000030 

14-393 

DSNN 

000060 

10-217 

DSRNN 

000002 

n-262 

CiSSER 

000032 

1 5-443 

E$NBR 

OOOOU 

#5-68 

ESNBS 

000020 

#5-68 

ESNCri 

000034 

#5-68 

ESNCS 

000036 

#5-68 

ESNIC 

000044 

#5-68 

ESNLEN 

000050 

#5-68 

ESNLlA 

000012 

#5-68 

ESNLNK 

000000 

#5-68 

E$NML 

000040 

#5-68 

E$NMR 

000024 

#5-68 

EfMMS 

000030 

#5-68 

F$NN0D 

000002 

#5-68 

ESNRT 

000042 

#5-68 

ESNRiP 

000005 

#5-68 

ESNSEG 

OOOOIO 

#5-68 

14-400 

14-402 
14-400 


14-417 

14-419 
14-417 


#9-153 


13-340 
11-261 
9-156 


13-335 


13-334 


14-392 


15-441 


12-305 


12-307 


BLNLST     CREATED  BY  MACRO  ON  29-j:,N-85  AT  12:09 
SYMBOL  CROSS  REFERENCE 
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PAGE  2 

CREF   04.00 


CHKCIR  - 
CHKCIR  - 

66 
67 
68 
69 
70 
71 
72 
73 
71, 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8^ 
85 
86 
87 
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Page  7 


000000 


89 

90 

91  000000 

121127 

177773 

92  000004 

001403 

93  000006 

121127 

177776 

94  000012 

002414 

95  OOOOU 

152764 

000363 

96 

97 

98  000022 

111164 

000063 

99  000026 

002404 

100  000030 

001405 

101 

102 

103 

104  000032 

105  000036 

000405 

106  000040 

000241 

107  000042 

eoC403 

108  000044 

012700 

177767 

109  000050 

000261 

110  000052 

111 

M2 

000001 

.SBTTL   CHKCIR  -  CHECK  CiRCUIT-ID  FORMAT 

»*-CHKCIR-CHEC<  CIRCUIT-ID  FORMAT 

THIS  ROUTINE  CHECKS  THE  PASSED  CIRCUIT-ID  FORMAT  FOR  VALIDITy, 
AND  IF  VALID,  SAVES  THE  CIRCUIT-ID  CONTEXT. 

INPUTS: 

R1  =  CIRCUIT-ID  ADDRESS 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS. 

C-BIT  ERROR  INDICATOR 

IF  CLEAR,  L$TYP(R4)  =  SAVED  CIRCUIT-ID  TYPE  AND: 

IF  TYPE  >0  ,  CIRCUIT-ID  PARSED 
IF  SET,  ERROR  RO  CONTAINS  ERROR  CODE 

ALl'rEGJSTERS  ARE  PRESERVED  UNLESS  THERE  IS  AN  ERROR  (SEE  ABOVE) 


CHKCIR:: 

CHECK  CIRCUIT  FORMAT  TYPE 


000041   5$: 


CMPB 

BEQ 

CMPB 

BLT 

BISB 


M0V8 

BLT 

BEQ 


SIGNIFICANT  CIRCUITS  ? 
IF  EQ,  YES 

IS  IT  UITHIN  VALID  RANGE  ? 
,  IF  LT,  NO  -  ERROR 
#LP$UDV1LP$WCNILP$WUNILP$WTRILP$UNT!LP$TRB,L$PFG(R4) 

ASSUME  ACT  OR  KNOWN  CIRCUITS 
;(WILD  EVERYTHING) 
SAVE  CIRCUH  FORMAT  TYPE 
IF  LT,  NO  CIHCUIT  NAME  -  RETURN 
IF  EQ,  INVALID  ID  -  ERROR 


(R1),*MF$SIG 
5$ 

(R1),*MF$ACT 
20$ 


(R1),L$TYP(R4) 

10$ 

20$ 


PARSE  THE  CIRCUIT-ID  STRING 


10$ 
20$ 
30$ 


CALL 

BR 

CLC 

BR 

MOV 

SEC 

RETURN 

.END 


PRSCIR 
30$ 

30$ 
#ME.1ID,R0 


PARSE  THE  CIRCUIT-ID 
AND  RETURN 
SET  SUCCESS 
AND  RETURN 
INVALID  CIRCUIT-ID 
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CHKCIR  -  CHECK 
SymbOi  table 


A  ClRCUIT-lD  FOR  MACRO  V05.03b  Saturday  29-Jun-85  17:41  Page  7-1 


r\r\{\[^{^r\ 


Mntnpu      (\rir\CiLL 


BIT  DEFINITIONS 


64 


000001 
000002 
OOOOOA 
000010 
000020 
OOOOAO 
000100 
000200 
000360 


00000 1 
000002 
OOOOC 


000010 
000020 
OOOOAO 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
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29-Jun-85  17:42  Page  6 

5.03b 

Saturday 

.SBTTL 

BIT  DEFINITIONS 

■  PARSE  FLAG  PP 

FINITIONS  (L$PFG) 

LPIUNT 

=  1 

LPSTRB 

=  2 

LPSMUX 

=  4 

LPSMPT 

=  10 

LPS'.JDV 

=  20 

LPSUCN 

=  40 

LPSWUN 

=  100 

LPSWTR 

=  200               ; 

LPSWLD 

=  LP$WDV!LP$WCNI LPSWUN ILPI 

;  FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA 

=  1 

LFSZER 

=  2 

LFSSKP 

=  4 

LFSVR^ 

=  10                      ; 

LFSEND 

=  20 

LFISIG 

=  40 

LFSMLT 

=  40000 

LFSSEG 

=  100000 

;  BIT 

POSITION 
BITO  = 

DEFINITIONS 
1 

BIT1  = 

2 

BIT2  = 

4 

BIT3  = 

10 

BIT4  = 

20 

BITS  = 

40 

BIT6  = 

100 

BIT7  = 

200 

BITS  ^ 

400 

BIT9  - 

1000 

BITIO 

=  2000 

BIT11 

=  4000 

BIT12 

=  10000 

BIT13 

=  20000 

BITU 

=  40000 

BIT15 

=  100000 

UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUND 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
WILD  CARD  DEVICE  NAME  FOUND 
WILD  CARD  CONTROLLER  NUMBER  FOUND 
WILD  CARD  UNIT  NUMBER  FOUND 
WILD  CARD  TRIBUTARY  NUMBER  FOUND 
JTR  ;  WILD  CARD  FIELD  MASK 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFICANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  .N  PROGRESS 
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12:1 


0  Page  6 


70 
71 
72  000000 


000004 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 

000040 

000041 

000042 

000044 

000046 

000050 

000052 

000053 

000054 

000055 

000056 

000060 

000062 

000063 

000064 

000066 

000070 

000072 

000074 

000075 

000075 

000076 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000110 

000112 

000114 

000116 

000120 

000122 

000123 

000124 


000020 


.SBTTL  Context  area 

CICCXS  LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 

.ASECT 

.  =  0 

LSNLEN  =  16. 


MAXIMUM  NAME  LENG1H 


;  The  offsets  L$NAM  to  L$PDV  inclusi'we  must  appear  in  the  same  order 
;  as  in  the  CIRCXS  and  LOCCX$  macros. 


L$NAM 
LSDDM 
LSCTL 
L$UNT 
L$PVC 

L$SCN 

L$TRB 

L$PFG 

LSSLT 

LSNXT 

LSSNM 

LSTPT 

L$TNM 

LSCTB 

L$CHN 

L$PDV 

LSMSG 

L$BUF 

L$OPT 

LSTYP 

L$FL6 

L$FL1 

L$FL2 

LSPAR 

LSSLEN 

L$PRO: 

LSMTVP 

L$FLX 

L$STA 

LSCOS 

LSOWN 

L$TAD 

LSACT 

L$DEA 

L$DDT 

L$DLT 

L$PLT 

L$BBT 

L$NMT 

L$XMT 

LSBSA 

L$BSD 

L$BSI 


.BLKW 

.BLKB 

.BLJ-.B 

.BLKU 

.  =  0+L 

.BLKB 

.BLKB 

.BLKB 

.BLKW 

.8LKW 

.BLKW 

.8LKW 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 


$NL 


EN 
SNLEN 


DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 
3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

CURRENT  NAME  IN  WILDCARD  SCAN 

TRIBUTARY  NUMBER 

PARSE  FLAGS 

Current  SLT/PVC  address 

Pointer  to  next  SLT/PVC  address 

REMAINING  NUMBER  OF  SYSTEM  LINES 

Current  tributary  pointer  (-1  for  PSD 

REMAINING  NUMBER  OF  TRIBUTARIES 

CURRENT  TRIBUTARY  NUMBER 

Channel  number  /  X.25  port  number  and 

. . .  PDV  assigned 

ERROR  MESSAGE  STRING  POINTER 

SAVED  BUFFER  POINTER 

SAVED  OPTIONS  BYTE 

CIRCUIT-ID  FORMAT  TYPE 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  CURRENT  CIRCUIT) 

CURRENT  PARAMETER  TYPE 

Significant  Length  of  circuit  name 

Line  protocol 

Network  management  circuit  type 

Flags  word  for  X.25  circuit  commands 

CIRCUIT  STATE 

CIRCUIT  COST 

CIRCUIT  OWNER  (PDV  INDEX) 

TRIBUTARY  ADDRESS 

MULTIPOINT  ACTIVE  RATIO 

MULTIPOINT  DEAD  RATIO 

DMP  DEAD  TIMER 

DMP  DELAY  TIMER 

DMP  PO'L  TIMER 

DMP  BABBLE  TIMER 

DMP  NORMAL  TIMER 

DMP  TRANSMIT  TIMER 

DMP  ACTIVE  BASE 

DMP  DYING  BASE 

DMP  INACTIVE  BASE 
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r  hirDCMChiT 


^-:'' 
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PARSE  SUB-EXPRESSIONS 


«5 

A96  000000 

A97  000000 

A98 

A99 

500 

501  000000 


FIELDS  CRET 
IPARAM  MP$RET,$EXIT 

.EN[)C  ;  .IF  NDF  R$$11S 

FIELDS 
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CICHIN  -  CIRCUIT  CHANGE  PARAMETERS  INITIALIZE 
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rr     n  An  AMtr  TCDc      tkiti/i 


CKHIN  - 
CHNAC  - 

871 
872 
873 
87A 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
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C  15 

12:1C 


.SBTTL  CHNACT  -  X.25  PVC  Channel  Number  action  routine 

■♦•  CHNACT  -  X.25  PVC  Channel  Number  action  routine 

INPUTS 

.MSGPT  -  Pointer  to  channel  number 
RA      -  Pointer  to  context  area 

OUTPUTS 

L$XCH(RA)  Contains  channel  number 

Error  taken  if  channel  not  in  range  0-A095 


000662 
000662 
000666 
000672 
000676 
00070A 
000706 


016701 
11216A 

rn6A 

026A27 
101271 


OOOOOOG 
000252 
000233 
000232 


CHNACT: 


00^777 


MOV 
MOVB 

Move 

CMP 
BHI 
RETURN 


. MSGPT, R1 

(R1)*,L$XCH(R4) 

(R1),L$XCHt1(R4) 

L$XCH(PA),*MAXCHN 

PVAERR 


Get  pointer  to  channel  number 
Get  channel  number 

Check  if  channel  number  in  range 
Take  error  exit  if  out  of  range 
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CICHIN  - 
~--\CT  - 

'■.6 
m7 
1U8 
1U9 
1150 
1151 
115? 
115'. 
115^ 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 


CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85 
DYING  BASE  ACTION  ROUTINE 


12;10  Pa 


ge  33 


.S8TTL  BSDACT  -  OVING  BASE  ACTION  ROUTINE 

+ 

BSDACT  -  DYING  BASE  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POINTER  TO  1  BYTE  DYING  BASH 
M  -   POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

LSBSD'RA)  -  DYING  BASE  VALUE 


001260 

00126^  11016A  000123 

001270 


&SDACT:  CALL    CHKDMP 

Move    R1,L$8SD(RA) 
RETURN 


;  CHECK  FOR  BMP 

;  SAVE  DYING  BASE  VALUE 
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AlCHOP  created  by     macro     on  lO-SEP-85  Al   11:^6 

MACRO  CROSS    REFERENCE 


D     1 

PAGE   3 

CREF       04.00 


MACRO  NAME 

REFERENCES 

ALCCXS 

#5-58 

5-70 

ANBDft 

#5-57 

5-60 

CALL 

6-105 

6-107 

7-158 

7-166 

7-170 

7-195 

8-322 

8-331 

8-338 

9-396 

9-399 

10-433 

CALL). 

#5-58 

7-2A9 

9-395 

DHBDfS 

#5-58 

5-63 

HDRDFS 

tl:l^ 

5-62 

MANDFS 

5-61 

MAP 

#5-57 

RESMAP 

#5-57 

7-256 

8-341 

RESRG 

#5-57 

9-401 

RETURN 

6-117 

7-265 

8-350 

9-402 

10-449 

SAVMAP 

#5-57 

7-159 

8-304 

SAVRG 

#5-57 

9-373 

SWSTKS 

#5-57 

7-158 

8-303 

7-214 


7-238 


8-303 


8-313 


♦♦FILE«*1D*«ALRE!N 


E     1 


ALPEiN  -  Alia 

Symbol  tible 


MPSOAt 

MPBOAN 

MPtOCO 

MPSOHO 

MPtONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

MPSOVE 

HPSOWN 

MPSPAR 

MPSPAS 

MPtPCH 

MPSPCO 

MPSPCT 

HPSPDT 

MPSPHA 

MPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

MPSPMC 

«P$PNT 

HPSPRI 

MPSPRO 

HPSPSS 

!1P$PST 

MPSRET 

MPSRfA 

MPSRMX 

MPSRPA 

HPSRPR 

MPSRRT 

MPSRST 

MPSRSV 

MPSRSZ 

HPSRTI 

MPSRTM 

MPSRVE 

MPSRVT 

MPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MPSSDV 

MPSSEH 


000632 
000620 
000776 
0002U 
00076A 
0021U 
00U53 
000777 
001022 
000777 
001010 
004374 
000036 
000513 
002152 
00002A 
OOOKA 
C021U 
000170 
000012 
000025 
002U0 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 


MPSSER 
MPtSEI 
MPSSGZ 
MPSSID 
MPSSIN 
HPSSLI 
MPSSLO 
MPSSMX 
MPSSND 
HPSSNP 
MPSSNU 
MPJSOB 
MPISPA 
MPtSPR 
MPSSPS 
MPSSTA 
MPSSTI 
HPSSTT 
HPSSTY 
MPSSUB 
MPSSUR 
MPSSUS 
MPSSVR 
HPSSWI 
MPSSYP 
MPSTFL 
MPSTHI 
MP$TH2 
MP$TH3 
MPSTLN 
MPSTLO 
HPSTPA 
MPSTRI 
riPSTST 
HPSTYP 
MPSUCS 
MPSUSR 
MPSVEC 
MPSVER 
MPSWDF 
MPSUMX 
MPSXMT 
MPJXPF 
HPSXPL 
MPSXPT 
MP$XXX 
MP$5ST 
MSSACT 
MSSADU 


000144 

000000 

001644 

000176 

000310 

000156 

000171 

002202 

00050U 

006332 

000542 

000524 

000157 

000536 

C00513 

000000 

002140 

002201 

000175 

00000 1 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004375 

002164 

000144 

002130 

004407 

001750 

004410 

004406 

002165 

002177 

002166 

000242 

000244 

000240 

177777 

004406 

000001 

000010 


.  ABS.  000104    000 
000550   001 
Errors  detected:  0 

•»♦  Assembler  statistics 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


3b  Saturday 

29-Jun-85  12:05 

Page  9- 

■7 

MSSALO 

000007 

MTSMAX 

000037 

M$$CRB= 

000124 

MSSASE 

000006 

MTSMUL 

000100 

M$$CRX= 

000000 

MSSATR 

000011 

MT'..NLE 

000017 

M$$FCS= 

898SS9 

MSSAUT 

000000 

MTSNON 

000001 

M$$MGE= 

000000 

MSSCLE 

00C003 

MT$NR4 

000005 

M$$NET= 

000000 

NSSDED 

000004 

MT$NTY 

000060 

M$$OVR= 

000000 

MSSDIE 

000003 

HT$JCT 

000060 

NM.CLN 

003400 

MSSDUM 

000004 

MTSPHA 

000002 

NM.INI 

002400 

HStFAI 

000013 

MTSPOI 

000000 

NM.OPR 

003000 

MSSGLO 

000000 

MT$QP2 

000010 

NM.VR2 

002401 

HSSHOL 

000002 

MTSROU 

000000 

NM.VR3 

59^^9? 

MSSINA 

000002 

MT$R04 

000004 

N$$ACC= 

000001 

MSSLOA 

000003 

HT$SEC 

000000 

N$$BUF= 

000001 

MSSLOO 

000002 

MTJSGD 

000020 

N$$LDV= 

000001 

HSSOFF 

000001 

MTSSYS 

000002 

N$$MCP= 

99999] 

MSSON 

000000 

MISTER 

000001 

N$$MLL= 

000001 

MSSPRO 

000006 

MTSTRI 

000002 

N$$MOV= 

000010 

MSSREA 

000004 

MTSTYP 

007777 

N$$NCT= 

000001 

MSSREF 

000001 

HTSIISD 

000000 

N$$PEM= 

000001 

HSSRES 

000003 

MT$X25 

000003 

P$$P45= 

000000 

MSSRST 

000001 

MU$INC 

000001 

P$$URD= 

000000 

MSSRSX 

000002 

MU$OUT 

000002 

Q$$OPT= 

000010 

MSSRT 

000005 

MUSPER 

000000 

R$$DER= 

000000 

MStSER 

000002 

MVSIII 

000000 

R$$K11= 

000001 

HSSSHU 

000002 

MVSIV 

000001 

R$$SND= 

000000 

MSSSRV 

000007 

HX$ACT 

000020 

R$$11H= 

000000 

MSSSTA 

000000 

MXSCIR 

000020 

S AVAL I 

000256R 

HS$SYN 

000012 

MXSCLN 

000020 

SAVCTX 

000406R 

MSSTER 

000001 

MXJCNH 

000006 

SFSANM 

000001 

MSSTOP 

000003 

HXSCON 

000006 

SFSDNM 

000002 

MSSTRJ 

000005 

MXSDAC 

000020 

S$SURG= 

000000 

nSSUNR 

000005 

MXSDTE 

000020 

S$$YSZ= 

007600 

MSSVHS 

OOOU04 

MXSFIL 

000034 

T$$KHG= 

000000 

MS. DON 

177600 

MXtLGC 

000777 

T$$HIN= 

000000 

HS.MOR 

000002 

MXSLIN 

000020 

V$$CTR= 

001000 

MS. PAR 

000003 

MXSLON 

000006 

U.BATT 

000006 

MS. sue 

000001 

MXSNMS 

000454 

W.BFPD 

000014 

MT$AR4 

000003 

MXSNOD 

000006 

U.BHVR 

000004 

HTSASC 

000100 

N  ;$OBJ 

000006 

U.BLGH 

000020 

MTSBIL 

000001 

MXSOWN 

000040 

W.BLPD 

000016 

MTSBYS 

000011 

MXSPAR 

000036 

U.BLVR 

000002 

HT$C] 

000007 

MXSPAS 

000010 

U.BNPD 

000015 

MTSCLE 

000077 

MXSRAC 

000047 

W.BOFF 

000012 

MTSCOD 

000200 

MXSRID 

000047 

W.BPCB 

000000 

MTJCON 

000001 

HXSRPS 

000047 

W.BSIZ 

000010 

MT$D«C 

000004 

MXSSID 

000040 

X$$DBT= 

000000 

HTSETH 

000006 

MXSSNK 

000377 

$SAVRG= 

******  GX 

MTSHEX 

000040 

MXSTYP 

000077 

$$$SYS= 

004374 

MTSLPB 

000005 

MXSUID 

000020 

$$$SYX= 

000000 

E  2 
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Al 


2^7 
2A8 
2A9 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 

269  000446 

270  000446 

271  000452 

272  000454 

273  000460 
274 

275 
276 

277  00046^ 

278  000^70 

279  000^.74 

280  000500 

281  000504 

282  000510 

283  000512 

284  000524 
285 

286 
287 

288  000526 

289  000532 

290  000536 

291  000542 

292  0005^6 

293  000550 

294  000552 

295  000554 

296  000562 

297  000566 

298  000572 

299  000576 
3C0  000600 

301  000604 

302  000610 

303  000614 


.SBTTL  FMTDES  -  FORMAT  DESTINATION  PARAMETER 
**-FMTDES-FORMAT  DESTINATION  PARAMETER 

THIS  ROUTINE  IS  CALLED  TO  FORMAT  THE  ALIAS  DESTINATION  PARAMETER 

INPUTS: 

R3  =  BUFFER  ADDRESS  FOR  PARAMETER 
R4  =  ADDRESS  OF  CONTEXT  AREA  UITH; 

A$ALI  =  6  CHARACTER  ALIAS  NAME  (SPACE  FILLED) 

ASSCO  =  SCOPE  OF  ALIAS 

OUTPUTS: 

C-CLEAR,  SUCCESS 

R3  =  NEXT  FREE  BYTE  IN  BUFFER 
C-SET,  NO  MATCHING  ALIAS  FOUND 

REGISTERS: 

R4  IS  PRESERVED 


112723 
105023 
112723 
112723 


017700 
062700 

103006 

000431 

062701 


112723 
112105 
110523 
001412 
112763 
112723 
112723 
112723 
060501 


010366  000012 


000156 

000304 
000100 


OOOOOOG 
000000 


000012 
000100 


000003  177,77 
000056 
000056 
000056 


FMTDES: 


M0V8 
CLRB 
MOVB 
MOVB 


*MP$DES,(R3)i 
(R3)  + 

#304,(R3)+ 
#100,(R3)+ 


SET  PARAMETER  TYPE  =  DESTINATION 

DATA  TYPE  =  CODED  MULT  FIELDS  (4) 
DES  NAME  =  IMAGE  FIELD 


MAP  TO  SINGLE  WORD  POOL,  ^'ND  TRY  TO  FIND  ALIAS  BLOCK 


SWSTK$ 

SAVMAP 

MOV 

ADD 

CALL 

BCC 

RETC 

BR 


30$ 

SDECPT.RO 

#D$ANN,R0 

FINDA 

10$ 

RO 

20$ 


ENTER  SYSTEM  STATE 
SAVE  CURRENT  MAPPING 
POINT  TO  OECNET  HOME  BLOCK 
POINT  TO  ALIAS  NAME  LISTHEAD 
FIND  THE  ALIAS  BLOCK 
IF  CC,  FOUND  IT 
RETURN  CARRY  TO  USER  STATE 
AND  RETURN 


10$: 


15$: 

20$: 
30$: 


ADD 

CALL 

CALL 

MOVB 

MOVB 

MOVB 

BEQ 

MOVB 

MOVB 

MOVB 

MOVB 

ADD 

CALL 

MOV 

RESMAP 

RETURN 


#A.REM,R1 

FMTNAM 

40$ 

#100,(R3)+ 

(R1)+,R5 

R5,(R3)+ 

15i 

#3,-1{R3) 

#'.,  :R3)t 

#'.,(R3)+ 

#'.,(R3)+ 

R5,R1 

40i 

R3,10.(SP) 


RJK02 


SAVE  DESTINATION  NAME  AND  ACCESS  CONTROL 


POINT  TO  THE  DESTINATION  NAME 

FORMAT  THE  NAME  FIELD 

MOVE  THE  USER  ID  STRING 

SET  THE  PASSWORD  DATA  TYPE 

GET  THE  PASSWORD  LE.oTH 

SET  LENGTH  IN  BUFFER 

IF  EQ,  THERE  WAS  NONE  -  FINISHED 

ELSE,  SET  LENGTH  OF  INDICATOR  AS  3 

SET  PASSWORD  INDICATIOR 


SKIP  OVER  REMAINDER  OF  PASSWORD  FIELD 

MOVE  THE  ACCOUNT  STRING 

RETURN  R3  INTO  SAVED  R3 

RESTORE  MAPPING 

BACK  TO  USER  STATE  AND  RETURN 


E  3 
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79 

80  000016 

81  000017 
82 

M   000026 

85  000030 

86  00003? 

87  000034 
88 

89 

006 
044 

114 

ALIT3: 

117 

.EVEN 
.BYTE 
.ASCII 
.EVEN 

6 
/SLOCAL/ 

000000' 
000010' 
000016' 
000000 

ALIIDX: 

.WORD 
.WORD 
.WORD 
.WORD 

ALIT1 
ALIT2 
ALIT3 
0 

.LIST 

BEX 

ALXXIN 
CHKALI 


ALIAS    INITIALIZATION 
CHECK  ALIAS   FORMAT 
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ALXXIN     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:07     PAGE  I 

MACRO  CROSS  REFERENCE  CREF   04.00 


7-217     7-278     7-283     7-288 

7-285     7-285 

6-183 

7-318     7-323     8-362 

6-172 


MACRO  NAME 

REFERENCES 

ALCCXt 

#5-58 

5-65 

ALUNSS 

#5-57 

7-285 

ANBDFS 

#5-57 

5-60 

CALL 

6-127 

6-K1 

DIRS 

#7-285 

7-285 

HORDFS 

#5-58 

5-63 

MANDFS 

#5-57 

5-61 

MAP 

#5-57 

MOV$ 

#7-285 

7-285 

RE  SWAP 

#5-57 

RESRG 

#5-58 

0-158 

RETC 

#5-57 

7-316 

RETURN 

6-159 

6-184 

SAVMAP 

#5-57 

SAVRG 

#5-58 

6-116 

SOB 

6-U5 

6-1^9 

SWSTKS 

#5-57 

7-288 

UCBDFS 

#5-58 

5-62 

»*F1LE*»1D*»ARREIN 
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PAGE   1 

CREF       O-f-OO 


SYMBOL     VALUE 


AF.END 

AF.INI 

AF.<NO 

AF.LV2 

AF.MUX 

ARRFIN 

ASBUF 

ASEXA 

ASFLG 

ASLENX 

ASMAX 

ASNAM 

ASNUM 

ASOPT 

ASPAR 

ASXPT 

DECPT 

DSLNUM 

HEADR 

H.LUN 

I$$AS 

MESARE 

MESNOD 

ME.CST 

ME. FUN 

ME.  I  ID 

ME.MPR 

ME. OPE 

MFSACT 

MFSKNO 

MFSSIG 

MO$COU 

MS.MOR 

MXAREA 

NF.END 

NF.LV2 

N$R0A2 

NItVCT 

PDVID 

PDVTA 

R$RO 

R$$MPL 

R$$110 

R$$nM 

Ri$ns 

U.CW3 

x$$Mce 

ZF.COU 
ZF.DDM 
ZF.DIA 
ZF.DLC 
ZF. DVP 


000040 

000001 

000002 

000100 

000020 

000000  RG 

000002 

OOOOU 

000000 

000027 

000006 

000020 

OOOOOA 

000010 

000016 

000012 

****** 

OOOOU 


GX 


=  ******  GX 

000076 

=  ****** 

000005 
000000 
177765 
M7J77 

177773 

■[7171,7 

177776 

}77777 

177773 

000060 

000002 
=  000077 
=  000200 
=  000100 

000030 

=   ****** 

r  ******       GX 

=  ******  GX 
=    ******     GX 

~    ****** 

r  #■*♦*** 

=  000000 

-  ****** 

OOOOU 

r  ****** 

=  001000 

=  000001 

^  004000 

^-  00C002 

=  100000 


REFERENCES 

#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#6-88 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 

6-133 

6-134 

6-163 

6-164 

5-61 

6-125 

6-144 

6-U3 

6-99 

6-124 

6-94 

6-191 

6-120 

6-118 

6-122 

6-100 

6-205 
#5-65 

6-168 

6-172 

6-187 

6-193 

6-142 

6-U6 
•6-143 

6-153 

5-61 

5-61 

5-61 

6-168 

5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 


6-170 
6-203 
6-117 
6-171 


♦6-139 

♦6-117 

6-95 

♦6-92 

♦6-108 
♦6-91 
♦6-125 
♦6-150 


6-102 
6-92 


♦6-191 


6-172 
5-61 


6-178 
6-174 


6-180 
♦6-170 

♦6-187 

♦6-110 

6-100 

♦6-144 


6-181 


6-198 


♦6-171 

♦6-174 

6-178 

♦6-188 

6-200 

♦6-116 

6-102 

♦6-190 

♦6-180 
6-213 

6-200 
6-214 

6-193 


♦6-203 


ARREIN     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:07 
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E  6 

PAGE  2 

CREF   04.00 


ARREOP 

FMTCIR 


AREA  READ  INFORMATION 
FORMAT  CIRCUIT  lu 


315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 

329  001054 

330  001054 

331  001060 

332  001062 

333  001064 

334  001070 

335  001072 

336  001 07o 

337  001100 

338  001104 

339  001106 

340  001110 

341  001114 

342  001116 

343  001120 

344  001124 

345  001126 

346  001130 

347  001134 
348 

356 

357  001136 

358  001140 

359  001144 

360  001150 

361  001152 

362  001160 

363  001166 

364  001170 

365  001176 

366  001202 

367  001204 

368  001210 

369  001214 

370  001216 

371  001220 

372  001224 

373  001226 

374  001232 

375  001236 

376  001242 

377  001250 

378  001252 
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.SBTTL  FMTCIR  -  FORMAT  CIRCUIT  ID 

***  -  FMTCIR  -  FORMAT  CIRCUIT  ID 

INPUTS: 

R2  =  CHANNEL  NUMBER 

R3  =  OUTPUT  SUFFER  ADDRESS 

R4  =  POINTER  TO  CONTEXT  BLOCK 

OUTPUTS: 

R3  UPDATED 


004267  OOOOOOG 

010201 

003531 

012746  001466 

111623 

116623     000001 

005726 

112723  000100 

006301 

105023 

016402  000012 

001514 

060201 

016146  000020 

111601 

006301 

067701  OOOOOOG 

011101 


FMTCIR: 


01O146 
116101 
067701 
011101 
042764 
032761 
001403 
052^64 
016101 
010300 

124027 
001775 
005200 
112720 
011601 
116101 
012702 

032764 
001411 
112720 


000002 
OOOOOOG 

000020  000000 
000040  000010 

000020  000000 
000004 


000040 

000055 

000012 
014012 

000020  000000 

000055 


JSR  R2,$SAVVR 

MOV  R2,R1 

BLE  50$ 

MOV  *HP$DLI,-(SP) 

M0V8  (SP),(R3)+ 

MOVB  1{SP),(R3)+ 

TST  (SP)+ 

Move  #MT$ASC,(R3)+ 

ASL  R1 

CLRB  (R3)+ 

MOV  A$XPT(R4),R2 

BEQ  50$ 

ADD  R2,R1 

MOV  Z.MAP(ftl),-(SP) 

MOVB  (SP),R1 

ASL  R1 

ADD  aSLTMA.Rl 

MOV  (R1),R1 


MOV  R1,-(SP) 

MOVB  L.DDM(R1),R1 

ADD  SPDVTA.RI 

MOV  (R1),R1 

BIC  #AF.MUX,A$FLG(R4) 

BIT  #ZF.MUX,Z.FLG(R1) 

BEQ  10$ 

BIS  #AF.MUX,A$FLG(R4) 

10$:    MOV  Z.NAM(R1),R1 

MOV  R3,R0 

CALL  $C5TA 

20$:    CMP8  -(RO),*' 

BEQ  20$ 

INC  RO 

MOVB  #'-,(RO)t 

MOV  (SP),R1 

MOVB  L.CTL(R1),R1 

MOV  #«3*4000>!10.>,R2 

CALL  $CBTA 

BIT  #AF.MUX,A$FLG(R4) 

BEQ  30$ 

MOVB  #'-,(R0)+ 


SAVE  VOLATILE  REGISTERS 
GET  CHANNEL  NUMBER 
IF  LE,  NO  CHANNEL 
PARAMETER  TYPE 
STORE  PARAMETER  TYPE 

CLEAN  UP  STACK 

FIELD  IS  ASCII  IMAGE 

CONVERT  CHANNEL  TO  WORD  INDEX 

ASSUME  NO  XPT 

GET  XPT'S  PDV  ADDRESS 

IF  EQ,  NO  XPT 

POINT  AT  CHANNEL  IN  PDV 

GET  SLN  i   TRIBUTARY 

GET  SLN 

CONVERT  TO  WORD  INDEX 

POINT  AT  SLT  ADDRESS 

POINT  AT  SLT 


SAVE  SLT  ADDRESS 

GET  DDM  PDV  INDEX 

POINT  AT  PDV  ADDRESS 

POINT  AT  DDM  PDV 

CLEAR  MUX  BIT  IN  CONTEXT  AREA 

IS  THIS  A  MUX  DEVICE  ? 

IF  EQ,  NO 

ELSE,  REMEMBER  IT 

GET  DDM  PROCESS  NAME 

COPY  BUFFER  ADDRESS 

CONVERT  TO  ASCII 

DELETE  TRAILING  SPACES 

WENT  TOO  FAR 

INSERT  DELIMETER 

GET  SLT  ADDRESS 

GET  CONTROLLER  NUMBER 

USE  BASE  10.  FIELD  WIDTH  =  3 

CONVERT  TO  ASCII 

IS  THIS  A  MUX  DEVICE  ? 

IF  EQ,  NO 

ELSE,  INSERT  DELIMETER 


RJK03 


RJK03 


E     7 


ARREOP  -  AREA  READ   INFORMATION     MACRO  V05.03b  Saturday  29-Jun-85   12:07     Page  9-1 
FMTCIR   -  FORMAT   CIRCUIT    ID 


m  1  ir\i 


f;FT  <;i  T  AnnRF*;!; 


D  8 
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BBBBBBB6 

NN 

NN 

SSSSSSSS 

TTTTT 

TTTTT 

BBBBBBBB 

NN 

NN 

SSSSSSSS 

TTTTT 

mil 

BB      BB 

NN 

NN 

SS 

BB      BB 

NN 

NN 

SS 

BB      BB 

NNNN 

NN 

SS 

BB     BB 

NNN^ 

NN 

SS 

BBBBBBBB 

NN 

NN  NN 

SSSSSS 

BBBBBBBB 

NN 

m     NN 

SSSSSS 

BB      BB 

NN 

NNNN 

SS 

BB      BB 

NN 

NNNN 

SS 

BB      BB 

NN 

NN 

SS 

BB      BB 

NN 

NN 

SS 

BBBBBBBB 

LLLLLLLLLL 

NN 

NN 

LLLLLLL 

-LL 

SSSSSSSS 

BBBBBBBB 

LLLLLLLLLL 

NN 

NN 

LLLLLLLLLL 

SSSSSSSS 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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286 
287 
288 
28" 
290 
291 
292 
293 
294 
295 
296 
297 

298  0005A2 

299  000546 

300  000552 
301 

302  00056C 

303  000562 
304 

305  000564 

306  000570 

307  000572 

308  000576 

309  000602 

310  000604 

311  000610 

312  000614 

313  000616 

314  000622 
315 

316  000624 


.SBTTL  SAVECL  -  SAVE  ECL  NODES 

**♦  -  SAVECL  -  SAVE  ECL  NODES 

INPUTS; 

R5  =  ADDRESS  OF  STORAGE  FOR  NODE  ADDRESS 

OUTPUTS: 

R5  =  UPDATED 


062702  000042 


011202 
001420 

005762  000002 

001773 

016201  000002 

020164  000036 

101402 

010164  000036 

020164  000046 

101761 

000756 


SAVECL:  MAPECL 
ADD 
MAP 


10$: 


20$: 


30$: 


MOV 
BEQ 

TST 

BEQ 

MOV 

CMP 

BLOS 

MOV 

CMP 

BLOS 

CALL 

BR 

RETURN 


#N$i:NC,R2 
4(R2) 

(R2),R2 
30$ 

E$NN0D(R2) 

10$ 

E$NN0D(R2),R1 

R1,N$HECL(R4) 

20i 

R1,N$HECL(R4) 

R1,N$HLCX(R4) 

loi 

SAVCTX 
10$ 


MAP/POINT  TO  ECL  DATABASE 

GET  POINTER  TO  ECL  NODE  DATA  BASE 

GET  APR  BIAS  TO  MAP  TO 

GET  NEXT  ENTRY 

IF  EQ,  END  OF  LIST 

WAS  THIS  COUNTER  TABLE  USED  ? 

IF  EQ,  NO  ..  KEEP  LOOKING 

GET  NODE  ADDRESS 

IS  ADDRESS  HIGHER  THAN  ECL  HIGHEST 

IF  LOS,  NO  -  BRANCH 

ELSE  SET  HIGHEST  ECL  TO  CURRENT  ADDRESS 

IS  ADDRESS  HIGHER  THAN  LAST  CONTEXT  HIGHEST 

IF  LOS,  NO  -  RETURN 

SAVE  THIS  NODE  ADDRESS 

KEEP  LOOKING 
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CREF   04.00 


SYMBOL   VALUE 


REFERENCES 


*8-133 


00-206 


•12-300 


*U-388 


5-87 
6-87 

6-87 
6-87 


LSNLEN 

=  000020 

#5-87 

5-87 

5-87 

L$NOD 

000112 

#5-87 

LSNXT 

000044 

#5-87 

L$OPT 

000062 

#5-87 

LSPAR 

000120 

#5-87 

LSPDV 

000055 

#5-87 

L$PFG 

000041 

#5-87 

L$PLB 

000116 

#5-87 

LSPRO 

000067 

#5-87 

L$PVC 

000004 

#5-87 

LSSCN 

00002f 

#5-87 

LSSCR 

00007; 

#5-87 

i$SLEN 

00006C 

#5-87 

LSSLT 

00004; 

#5-87 

LSSNM 

00004' 

#5-87 

L$SYL 

00012 

#5-87 

BLNLST     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:09 
SYMBOL  CROSS  REFERENCE 


E  10 

PAGE  3 

CREF   04.00 


D  11 

CHUCIR  -  CHECK  A  ClRCUlT-ID  FOR  MACRO  V05.03b  Saturday  29-,Jun-85  17;A1 
Symbc   table 


Page  7-1 


A$$Chi<;= 
A$$CPS= 
A$$PR1= 
A$$TRP= 
BITO  = 
Bin  = 
BIT10  = 
BITIl  = 
BIT12  = 
BIT13  = 
BITH  = 
B1T15  = 
BIT2  = 
BIT3  = 
■31 TA  = 
BIT5  = 
?IT6  = 
BIT7  = 
BITS  = 
BIT9  = 
BtIO 

B$n 

BS12 

B$5 

B$6 

B$7 

B$7S10 

CHKCIR 

C$$CKP= 

C$$ORE= 

C$$RSH= 

D$$BUG= 

0$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTI<;= 

G$$WRD= 

I$$RAR= 

I$«RDN-- 

K$$CNT^ 

K$$CSR= 

<$$I.DC  = 

<$$TPS= 

LCSEXT 

LCSINT 

LDSLF  = 

LF$END= 

LF$MLT= 

LF$REA= 

LF$SEG= 

LF$SIG= 

LF$SKP= 


000000 

000000 

000000 

000000 

000001 

000002 

002000 

OOAOOO 

010000 

020000 

OAOOOO 

100000 

00000^ 

000010 

000020 

00004 G 

0001 oc 

000200 

000400 

001000 

000003 

OOOOOA 

000005 

000000 

000001 

000002 

000006 

OOOOOORG 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

'77546 

000000 

000074 

000000 

000001 

000000 

000020 

040000 

000001 

100000 

000040 

000004 


LF$WR2= 

LF$ZER= 

LP$MPT= 

LP$MUX= 

LP$TRB= 

LP$UNT= 

LP$WCN= 

LP$WDV= 

I.P$ULD= 

LP$UTR= 

LP$UUN= 

LSADJ 

L$BUF 

L$CHN 

LSCOU 

L$CTa 

L$CTL 

L$DDM 

LSFLG 

L$FLX 

LSLEN 

L$LTM 

L$MSG 

LSMTYP 

LSNAM 

L$NLEN= 

L$NOD 

L$NXT 

LSOPT 

LSPAR 

ISPDV 

LSPFG 

L$PLB 

■  $PR0 

L$PVC 

L$SCN 

LSSCR 

LSSLEN 

L$SLT 

LSSNM 

LSSYL 

LSTNM 

LSTPT 

L$TRB 

L$TSZ 

L$TY? 

LSUNT 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MBSDIS 

MBSENA 

MBSFUL 

MBSMIX 

MBSONE 

MBSRXu 


000010 

000002 

000010 

000004 

000002 

000001 

000040 

000020 

000360 

000200 

000100 

000110 

000060 

000054 

000114 

000053 

000002 

000000 

000064 

000070 

000124 

000070 

000056 

000067 

000000 

000020 

000112 

000044 

000062 

000120 

000055 

000041 

000116 

000067 

000004 

000020 

000072 

000066 

000042 

000046 

000122 

000052 

000050 

000040 

000070 

000063 

000003 

000000 

OOOuOO 

000001 

000000 

000001 

000000 

000002 

000002 

000001 

00000" 


MB$TXO 
HB$ZER 
MC$8A8 
MCSBID 
MCSBMC 
NCSBSC 
MCSCAC 
MCSCAP 
MCSCCL 
MCtCDC 
MCSCDP 
MCSCIF 
MCSCLD 
MCSCOU 
MCSCTL 
HCICTR 
«C$CTS 
MCJDOV 
MCSLBR 
HCSLBS 
MCSLDI 
HCSLDO 
MCSLDR 
MCSLDS 
MCSLLB 
MCSLLP 
MCSLI.R 
MCJLUO 
MCSlRB 
MCSLRP 
MCILRR 
MCJLSI 
HCSLST 
MCSLUP 
MCSMAP 
MCSMBL 
MC$M8X 
MCSMBY 
MCSMPX 
MCSNAP 
HCSNBR 
MCSNPS 
MC$r:>  ? 
MC$'>ICS 
MCSNIL 
MCSNMR 
MCf.vlMS 
MCiNNO 
MCSNNU 
MCSNOP 
MCSNOR 
MCSNPF 
MCSNPR 
MCSNRE 
MCSNRT 
MCSNVR 
MC$P08 


000000 
000000 
006073 
001765 
001767 
001766 
001442 
001440 
001445 
002045 
001441 
001465 
001464 
100000 
001454 
001452 
001453 
002050 
001750 
001751 
001774 
001775 
001762 
001763 
002021 
002115 
002007 
000001 
002020 
002114 
002006 
002032 
002033 
006072 
010000 
001764 
004420 
001752 
004406 
001604 

001  ro 
oo;iii 

001154 
0CM55 
001274 
001142 
001143 
001606 
001605 
001607 
000000 
001616 
001630 
001200 
0C1166 
001642 
OOOOOO 


MC$P11 
MCSRFL 
MCSSBU 
MC$SFL 
MCSSYC 
HCtSYL 
HC$SYR 
MCSSYS 
MCSSYZ 
MC$TBR 
HCSTBS 
MCSTDR 
MC$TIM 
MCSTYP 

Mcsueu 

MCSUFD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSUID 

MCSUIH 

MCSUIL 

MCIW08 

MC$U16 

MC$W32 

MCSXBR 

MC$X8S 

MCSXCJ 

MCSXCR 

MCSXCS 

MCSXDR 

MC$XDS 

MC$XFR 

MCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXHC 

HCSXMS 

MCSXNR 

HCSXRC 

MCSXRR 

MC$XRS 

MC$020 

MD$CI 

MDSCNA 

MDSCOU 

MD$DA 

MDSDL 

MDSDLV 

MDSDMC 

HDSDHF 

HDSDMP 

MDSDMR 

MDSDMV 

MD$DN 

MD$DP 


000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 


MDSDPV 

MDSDQ 

MD$DTE 

HD$DU 

HDSDUP 

MD$DV 

MD$DZ 

MDSFUL 

HD$HAL 

MDSHEL 

MDSKCP 

MDSKDP 

MD$<DZ 

HD$KL 

MDSKHX 

MDJKMY 

MDSLEN 

MD$PCL 

MDSONA 

MDSUNA 

MDSUIT 

MD.ABO 

MD.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

MD.FAI 

HD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.N08 

MD.NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSH 


HD. 
MD. 
HD. 


SDU 
SLO 
SNA 


MD.TLO 
HO. UNA 
HD.UNR 
HD.UOB 
HD.VOL 
HESALI 
HE$AL2 
HESARE 
HESCIR 
HEJEXA 
HESEXE 
HESLIN 
HESLOG 
HESHOD 
HESNOD 


000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 
000036 
000040 
000054 
000052 
000050 
000011 
000005 
000001 
000002 
000017 
000010 
000016 
000011 
000007 
000015 

oooon? 

OCOOIA 
000001 
000006 
000001 
000020 
000012 
177777 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
000000 
000200 
000001 
000002 
000004 
000000 
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CHKLIN  -  CHECK  LINE  ID  fORMAT 


66 

67 

68 

69 

70 

71 

72 

7i 

7A 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87  000000 

88 

89 

90 

91  000000 

92  000004 

93  000006 

94  000012 

95  OOOOU 
96 

97  000022 

98  000026 

99  000030 
100 

101 
102 

103  000032 

104  000036 

105  000040 

106  000042 

107  000044 

108  000050 

109  000052 
110 

111 


000001 
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.S8TTL  CHKLIN  -  CHECK  LINE  ID  FORMAT 

••-CHKLIN-CHECK  LINE  ID  FORMAT 

THIS  ROUTINE  CHECKS  THE  PASSED  LINE  ID  FORMAT  FOR  VALIDITY, 
AND  IF  VALID,  SAVES  THE  LINE  ID  CONTEXT. 

INPUTS: 

R1  =  LINE  ID  ADDRESS 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

C-BIT  ERROR  INDICATOR 

IF  CLEAR,  L$TYP(R4)  =  SAVED  LINE  ID  TYPE  AND: 

IF  TYPE  >0  ,  LINE  ID  PARSED 
IF  SE1,  ERROR  RO  CONTAINS  ERROR  CODE 

RFfi I STFRS ' 

ALL'rEGISTERS  are  preserved  UNLESS  THERE  IS  AN  ERROR  (SEE  ABOVE) 


CHKLIN:: 

CHECK  LINE  FORMAT  TYPE 


121127 
001403 
121127 
002414 
152764 


111164  000063 

002404 

001405 


000405 
000241 
000403 
012700 
000261 


177767 


177773 
177776 
000161  000041  5$: 


CMPB 

BEO 

CMPB 

BLT 

BISB 

Move 

BLT 
BEQ 


SHOW  SIGNIFICANT  LINES  ? 
BR  IF  YES 

IS  IT  WITHIN  VALID  RANGE  ? 
,  IF  LT,  NO  -  ERROR 
#LP$WDV1LP$WCN!LP$WUNILP$UNT,L$PFG(R4) 

ASSUME  ACT  OR  KNOWN  LINES  (WILD  EVERYTHING) 

SAVE  LINE  FORMAT  TYPE 

IF  LT,  NO  LINE  NAME  -  RETURN 

IF  E(3,  INVALID  ID  -  ERROR 


(R1),#MF$SIG 
5$ 

(R1),#MF$ACT 
20$ 


(R1),L$TYP(R4) 

10$ 

20$ 


PARSE  THE  LINE-ID  STRING 


10$ 
20$ 
30$ 


CALL 

BR 

CLC 

BR 

MOV 

SEC 

RETURN 

.END 


PRSLIN 
30$ 

30$ 
#ME.I1D,R0 


PARSE  THE  LINE-ID 
AND  RETURN 
SET  SUCCESS 
AND  RETURN 
INVALID  LINE-ID 
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MDSnpv  nnno44 
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Context  area 


000125 
000126 
000127 
000130 
000131 
000132 
000133 
00013'. 
000166 
000224 
000226 
000230 
000230 
000232 
00023A 
00023A 
000236 
000236 
000240 
000240 
000250 
000252 
000252 
000253 
000253 
000254 
000256 
000256 
000260 
000262 


000264 
000000 


000001 
000002 
000004 


000010 
040000 
100000 


000001 
000002 
000004 
000010 


L$INA 

L$IND 

LSINl 

L$TH1 

L$TH2 

L$TH3 

L$MXB 

L$NTL 

LSSCR 

L$LCT 

L$HTH 

L$SER 

LSLTM 

L$XCH 

LSLMB 

L$CMB 

LSNUML 

LSDTEL 

L$NUM 

L$DTE 

LSDTEP 

L$MWN 

LSMXW 

L$MRT 

LJMXR 

L$HBT 

LSNTI 

L$RET 

L$CUS 

LSBLK 

L$LTY 
LSMDT 


L$LEN: 


.BLK8 
.BLK8 
.BLKB 
.BLK8 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKU 

.BLKW 

.BLKW 

.BLKB 
.BLKW 

.BLKB 

.BLKB 
.BLKW 

.BLKW 

.BLKW 

.BLKW 

.IF  DF 

.BLKW 

.BLKW 

.ENDC 

.EVEN 

.PSECT 


R$$PR0  ; PRO/DEC 


DF  R$$PR0 
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DMP  ACTIVE  INCREMENT 
DMP  DVING  INCREMENT 
DMP  INACTIVE  INCREMENT 
DMP  DEAD  THRESHOLD 
DMP  DYING  THRESHOLD 
DMP  INACTIVE  THRESHOLD 
DMP  MAXIMUM  BLOCKS 
NTL  MESSAGE  BUFFER 
SCRATCH  BUFFER 
COUNTER  TIMER 
HELLO  TIMER 
SERVICE 
LISTEN  TIMER 

X25  Logical  Channel  Number  (LCN) 
X25  Max  Block  (Line) 
X25  Max  Data  (Circuit) 
DLM  Number  length 
X25  DTE  length  (Circuit) 
DLM  Number 
X25  DTE  (Circuit) 

X25  Pointer  to  DTP  descriptor  (Circuit) 
X25  Max  Window  (Line) 
X25  Max  Window  (Circuit) 
X25  Max  Retransmits  (Line) 
DLM  Max  Recalls  (Circuit) 
X25  Holdback  Timer  (Line) 
X25  Retransmit  Timer  (Line) 
DLM  Recall  Timer  (Circuit) 
DLM  Usage 

DLM  blocking  state 
net 
Loopback  Type 
Modem  Test 


LENGTH  OF  CONTEXT  AREA 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LFSREA  =  1 
LFSZER  =  2 
LFSSKP  =  4 


LF$VR2  =  10 
LFSMLT  =  40000 
LFSSEG  =  100000 

PARSE  FLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LPSTRB 
LPSMUX 
LPSMPT 


1 
2 
4 
10 


READ  COUNTERS  OPERATION 
ZERO  COUNTERS  OPERATION 
SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSION  2.0  NCP 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  PROGRESS 


UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUND 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
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505 
50^ 
505 
506 
507 
508 
509 
510 
511 
512 
513 
51A 
515 
516 
517 
518 
519 
520 
521 
522 
523 
52A 
525 
526 
527 

528  000000 

529  000000 
530 

531 

532 

533  OOOOOA 

53^  000010 

535 

536 

537 

538  OOOOU 

539  000020 

540  000026 
5A1 

512 
543 
544 

545  000032 

546  000040 

547  000044 

548  000046 

549  000052 

550  000060 
551 

552 
553 

554  000062 

555  000066 

556  000072 

557  000076 

558  000102 
559 
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••-CICHIN-CIRCUIT  CHANGE  PARAMETERS  INITIALIZE  ROUTINE 

THIS  ROUTINE  IS  CA;  LED  TO  INITIALIZE  FOR  THE  CIRCUIT  CHANGE  PARAMETER 
OPERATION. 

INPUTS: 

RO  =  OPTION  (SET/CLEAR) 

R1  =  ID  ADDRESS  (LINE  FORMAT) 

R2  =  LENGTH  OF  DATA  IN  INPUT  BUFFER 

R3  =  ADDRESS  OF  INPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

RO  =  RETURN  CODE 

R2  =   LENGTH  OF  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDESS  Of  OUTPUT  BUFFER 

DATA  SAVED  IN  CONTEXT  AREA 

C-8IT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 

REGISTERS: 

R3,   R4,   R5  ARE   PRESERVED 


004567     OOOOOOG 


110064     000062 
010364     000060 


CICHIN:: 

JSR     R5,$SAVRG 

INITIALIZE  CONTEXT  AREA 


MOVB 
MOV 


R0,L$OPT(R4) 
Rj,L$BUF(R4) 


012700     U7777 

^Z27b'<     ]77b77     000062 

105764     000062 


012764     000003     000072 

103426 

012700     177767 

126427     000063     177776 

001420 


005064  000072 

012700  177776 

012705  000000' 

105764  000062 
001402 


CHECK  OPTIONS  FLAGS 

MOV  #ME.fUN,RO 

BITB  #»C<M0$CLE>,L$0PT(R4) 

TST8  L$0PT(R4) 

BNE  30$ 

CHECK  AND  SAVE  LINE  FORMAT 

MOV  #ME$CIR,L$PARCR4) 

CALL  CHKCIR 

BCS  30$ 

MOV  *ME.IID,RO 

CMPB  L$TVP(R4),#MF$ACT 

BEQ  30$ 

PARSE  MESSAGE  AND  SAVE  PARAMETERS 


10$: 


CLR 

MOV 

MOV 

TST8 

BEQ 


.IF  NDF  R$$11S 


L$PAR(R4) 

#ME.FOR,R0 

#SETCIR,R5 

L$0PT(R4) 

20$ 


SAVE  R3-R5 


SAVE  OPTION  BYTE 
SAVE  BUFFER  POINTER 


ASSUME  ILLEGAL  OPTION 
CHECK  FOR  ILLEGAL  OPTIONS 
CHECK  FOR  ILLEGAL  OPTIONS 
IF  NE,  ERROR 


SET  ERROR  DETAIL 

CHECK  CIRCUIT  FORMAT 

Brunch  if  invalid  circuit 

ASSUME  INVALID  LINE-ID 

ELSE,  WAS  IT  ACTIVE  ? 

IF  EQ,  YES  -  DOESN'T  APPLY  HERE 


INITIALIZE  ERROR  DETAIL 

ASSUME  MESSAGE  FORMAT  ERROR 

POINT  TO  CIRCUIT  MESSAGE  STATE  TABLE 

WAS  OPTION  A  SET  ? 

IF  EQ,  YES  -  PROPER  TABLE 
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CICHIN  - 
CMBACT  - 

892 
893 
89^ 
895 
896 
897 
898 
899 
900 
901 
902 
90? 
90A 
905 
906 
907 
908 
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.S8TTL  CMBACT  -  X.25  Circuit  maximum  data  action  routine 

»*♦  CMBACT  -  X.25  Circuit  maximum  data  action  routine 

INPUTS  .  .    ^ 

.MSGPT  -  Pointer  to  maximum  data  parameter  value 

RA  -  Pointer  to  context  area 

OUTPUTS 

L$CMB(R4)   Contains  maximum  data  parameter 


000710 

C00710  016701  OOOOQOG 

0007U  112164  00025A 

000720  111164  000235 

000724 


CMBACT: 


MOV  . MSGPT, R1 

Move  (R1)+,L$CMB(R4) 

M0V8  (R1),L$CMBt1(R4) 
RETURN 


Get  pointer  to  data 
Get  low  byte  of  data 
Get  high  byte  of  data 
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CICHIN  - 
BSIACI  - 

116^ 
1165 
1 1 66 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
117A 
1175 
1176 
1177 
1178 
1179 
1180 
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.S8TTL  BSIACT 


INACTIVE  BASE  ACTION  ROUTINE 


001272 

001276     11016A     000124 

001302 


BSIACT  -  INACTIVE  BASE  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POINTER  TO  1  BrTE  INACTIVE  BASE 
R4     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

LSBSHRO  -  INACTIVE  BASE  VALUE 


BSIACT:  CALL    CHKDMP 

MOVB    R1,L$BSI(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  INACTIVE  BASE  VALUE 
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30A 
305 
306 
307 
308 
30^ 
310 
311 
312 
313 
31A 
315 


LOCAL  SU8H0UTINE  FOR  FORMATTING  ACCESS  CONTROL  STRINGS 


000616  112723  000100 

000622  112105 

000624  110523 

000626  005305 

000630  002402 

000632  112123 

000634  000774 
000636 


1,0%: 


50$: 


60S: 


MOVB 

MOVB 

M0V8 

DEC 

BLT 

MCVB 

BR 

RETURN 


#100,(R3)+ 

(R1)+,R5 

R5,(R3)+ 

R5 

60$ 

(R1)*,(R3)t 

50$ 


DATA  TYPE  =  IMAGE  FIELD 
GET  STRING  LENGTH 
SET  STRING  LENGTH  IN  BUFFER 
LOOP  FOR  STRING  LENGTH 

HOVE  STRING  INTO  BUFFER 
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91 

92 

93 

9^ 

95 

96 

97 

98 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 

V2  000036 
113 
IK 
115 

116  000036 

117  0C0040 

118  000044 

119  000046 

120  000052 
121 

122 
123 

124  000054 

125  000056 

126  000062 

127  000064 

128  000070 

129  000072 
130 

131 
132 

133  000074 

134  000076 

135  000100 

136  000104 

137  000106 

138  000110 

139  000114 

140  000116 

141  000120 

142  000124 

143  000126 

144  000130 

145  000132 

146  000136 

147  00014C 
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**-CHKALI-CHECK  ALIAS  FORMAT 

THIS  ROUTINE  CHECKS  THE  PASSED  ALIAS  FORMAT  FOR  VALIDITY, 
AND  IF  VALID,  SAVES  THE  ALIAS  IN  THE  CONTEXT  AREA. 

INPUTS: 

Rl  =  ID  ADDRESS  'ALIAS  FORMAT) 
R4  =  ADDRESS  OF  CONTEXT  AREA 


OUTPUTS: 

C-BIT  ERROR  INDICATOR 

IF  CLEAR,  A$TYP(R4)  =  SAVED  ALIAS  TYPE, 

SPACE  FILLED,  IF  TYPE  >  0 
IF  SET,  ERROR  RETURN  IN  RO 

REGISTERS: 

R2,  R3,  R4  ARE  PRESERVED 


CHKALI:: 

CHECK  ALIAS  FORMAT  TYPE 


AND  A$ALI(R4)  =  ALIAS  NAME 


121127  177775 

002436 

111164  000011 

002453 


010400 

062700  000012 

010146 


SAVRG 

CMPB 

BLT 

MOVB 

BLT 


R2 

(R1),#NF$ALL 

20$ 

(R1),A$TYP(R4) 

30$ 


MAKE  WORKSPACE 

IS  IT  WITHIN  VALID  RANGE  ? 

IF  LT,  NO  -  ERROR 

ELSE,  SAVE  ALIAS  FORMAT  TYPE 

IF  LT,  NO  ALIAS  NAME  -  RETURN 


IF  FORMAT  >  0  ,  SAVE  ALIAS  NAME  AND  CHECK  FOR  SYNTAX 


0'2601 
103043 


112105 

001421 

120527  000006 

003016 

010046 

012702  000026' 

012200 

001410 

103773 
012600 
112120 

000421 
005726 


MOV 

ADD 

MOV 

CALL 

MOV 

BCC 


R4,R0 

#A$ALI,RO 

R1,-(SP) 

SAVNAM 

(SP)+,R1 

30$ 


COPY  CONTEXT  AREA  POINTER 
POINT  TO  ALIAS  NAME  BUFFER 
SAVE  POINTER  TO  ALIAS  DESCRIPTOR 
CHECK  THE  NODE  NAME  AND  SAVE  IT 
RESTORE  ALIAS  DESCRIPTOR  POINTER 
IF  CC,  GOOD  NAME  -  RETURN 


SPECIAL  CASE  CHECKS  OF  ALIAS  NAMES  ,  ALL  BLANKS,  $HOST  AND  $LOCAL 


10$: 

15$: 
17$: 


M0V8 

BEQ 

CMPB 

BGT 

MOV 

MOV 

MOV 

BEQ 

CALL 

BCS 

MOV 

MOVB 

SOB 

BR 

TST 


(Rl)t,R5 

20$ 

R5,*6 

20§ 

R0,-(SP) 

#ALJIDX.R2 

(R2)+,R0 

17$ 

CMPCST 

10$ 

(SP)+,R0 

(R1)+,(R0)+ 

R5,15i 

30§ 

(SP)  + 


GET  LENGTH  OF  NAME 

NULL  STRING,  KICK  IT  OUT 

WAS  THE  NAME  TOO  LONG  ? 

IF  GT,  YES  -  ERROR 

SAVE  POINTER  TO  ALIAS  NAME  BUFFER 

POINT  TO  NAME  TABLE  INDEX 

POINT  TO  A  NAME 

IF  EQ,  DONE  AND  NO  HATCH 

COMPARE  INPUT  NAME  TO  TABLE 

NO  MATCH,  TRY  AGAIN 

MATCH,  RESTORE  PTR  TO  BUFFER 

AND  COPY  THE  NAME  ... 

INTO  THE  ALIAS  NAME  BUFFER 

CLEAN  UP  AND  CONTINUE 

CLEAN  STACK 
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ARREIN 

CREATED 

BY 

MACRO     ON  29-JUN-85   AT   12:07 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ZF.INI 

=  0^0000 

#5-61 

ZF.KMX 

=  000020 

#5-61 

ZF.LLC 

=  000004 

#5-61 

ZF.LMC 

=  000100 

#5-61 

ZF.MAN 

=  020000 

#5-61 

ZF.MFL 

=  000010 

#5-61 

ZF.MTM 

r:  000400 

#5-61 

ZF.MUX 

=  000040 

#5-61 

ZF.PSE 

=  002000 

#5-61 

ZF.SLI 

=  010000 

#5-61 

ZF.TIM 

=  000200 

#5-61 

ZF.X3P 

=  000000 

#5-61 

ZS.ASN 

=  100000 

#5-61 

ZS.BSY 

=  uoooo 

#5-61 

Z.AVL 

oooou 

#5-61 

Z.DAT 

000016 

#5-61               6-151 

Z.DSP 

000000 

#5-61               5-61 

6-148 

Z.FLG 

000010 

#5-61 

Z.LEN 

=  000016 

#5-61 

Z.LLN 

000006 

#5-61 

Z.MAP 

000020 

#5-61 

Z.NAM 

OOOOOA 

#5-61 

Z.PCB 

000012 

#5-61 

Z.SCH 

000007 

#5-61 

SHEADR 

-  ****** 

GX 

6-193 

tMBLUN 

=  ****** 

fix 

6-164 

SSAVRG 

=  ****** 

GX 

6-89 
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379  001256 

380  001260 

381  001264 

382  001270 

383  001 27A 

384  001276 

385  001304 

386  001306 

387  001312 

388  001 314 

389  001320 

390  001324 

391  001330 

392  001334 

393  001336 

394  001340 

395  001344 

396  001346 
397 

398 


011601 
116101 
012702 

012601 
032761 
001413 
105761 
001410 
112720 
116601 
012702 

005726 
160300 
110063 
060003 


000013 
014012 


000020 

000014 

000056 
000001 
014012 

177777 


000000 


30$: 


40$: 


50$: 


MOV 

(SP),R1 

MOVB 

L.UNT(R1),R1 

MOV 

#«3*4000>!10.>,R 

CALL 

$CBTA 

MOV 

(SP)+,R1 

BIT 

#LF.MTP,L.FLG(R1) 

BEQ 

40$ 

TSTB 

L.NSTA(RI) 

BEQ 

40$ 

MOVB 

#'.,(RO)t 

MOVB 

1(SP),R1 

MOV 

*«3*4000>!10.>,F 

CALL 

$C8TA 

TST 

(SP)  + 

SUB 

R3,R0 

MOVB 

R0,-1(R3) 

ADD 

R0,R3 

RETURN 

GET  SLT  ADDRESS 

GET  UNIT  NUMBER 

USE  BASE  10.  FIELD  WIDTH  =  3 

CONVERT  TO  ASCII 

GET  SLT  ADDRESS 

IS  THIS  LINE  MULTI-POINT  ? 

IF  EQ,  NO 

MULTIPOINT  SLAVE? 

BR  IF  YES 

ELSE,  INSERT  DELIMETER 

GET  TRIBUTARY  ADDRESS 

USE  BASE  10.  FIELD  WIDTH  =  3 

CONVERT  TO  ASCII 

CLEAN  UP  STACK 

CALCULATE  STRING  LENGTH 

SET  LENGTH  OF  IMAGE  FIELD 

POINT  PAST  STRING 
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14-  370  SAVAOJ  -  SAVE  ADJACENT  NODE  ADDRESSES 
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318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332  000626 

333 

33A  000626 

335  000632 

336 

337 

338 

339  000636 

3^0  000640 

3A1  0006AA 

342  000646 

343 

344  000650 

345  000654 

346  000662 

347  000664 

348  000670 

349  000672 

350  000676 

351  000704 

352  000706 

353  000714 

354  000716 

355  000720 

356  000724 

357  000726 

358  000732 

359  000734 

360  000740 

361  000744 

362  000746 

363  000750 

364  000754 

365  000756 

366  000760 
367 

368  00076C 


.S8TTL  SAVLOO  -  SAVE  LOOP  NODE  ADDRESSES 
*•♦  -  SAVLOO  -  SAVE  LOOP  NODE  ADDRESSES 

THIS  ROUTINE  IS  CALLED  AT  SYSTEM  STATE  AND  MUST  HAVE  PREVIOUSLY  SAVED  KISAR6. 
INPUTS: 


R5 

OUTPUTS: 
R5 


ADDRESS  OF  STORAGE  FOR  NODE  ADDRESS 
UPDATED 


SAVLOO: 


017702  OOOOOOG 
062702  000002 


011246 

012602 
001447 

016201 
032762 
001765 
020164 
101402 
010164 
032764 
001405 
032764 
001424 
000747 
020164 
101744 
020164 
101402 
010164 
052701 
010125 
010446 
066416 
020526 
103727 
052764 


MOV 
ADD 


aDECPT,R2 
#D$RNN,R2 


SCAN  REMOTE  TABLES  FOR  LOOP  NODES 


10$: 


000010 
100000 

000044 

000044 
000002 

040000 


000054 

000052 

000052 
100000 

177776 

000002 


000012 

000000  15$: 
000000 

20$: 
25$: 


000000 


40$: 


MOV  (R2),-(SP) 

CALL  aCEACC 

MOV  (SP)+,R2 

BEQ  40$ 

MOV  R.ADD(R2),R1 

BIT  #RF.L00,R.FLAG(R2) 

BEQ  10$ 

CMP  R1,N$HL00(R4) 

BLOS  15$ 

MOV  R1,N$HL00(R4) 

BIT  #NF.0VR,N$FLAG(R4) 

BEO  20$ 

BIT  *NF.FTT,N$FLAG(R4) 

BEO  40$ 

BR  10$ 

CMP  R1,N$LL00(R4) 

BLOS  10$ 

CMP  R1.N$CL00(R4) 

BLOS  25$ 

MOV  R1,N$CL00(R4) 

BIS  #100000, R1 

MOV  R1,(R5)t 

MOV  R4,-{SP) 

ADD  -2(fi4),(SP) 

CMP  R5,(SP)+ 

BLO  10$ 

BIS  #NF.0VR,N$FLAG(R4) 

RETURN 


POINT  TO  DECNET  HOME  BLOCK   ; 
POINT  TO  START  OF  REMOTE  LIST 


RJK03 


SET  UP  UNMAPPED  PTR  FOR  MAPPING  TO  RNB 
MAP  TO  RNB  ;  RJK03 

GET  MAPPED  ADDRESS 
IF  EQ,  NONE 

GET  NODE  ADDRESS 

LOOP  NODE  ? 

IF  EQ,  NOT  A  LOOP  NODE 

IS  ADDRESS  HIGHER  THAN  LOOP  HIGHEST 

IF  LOS,  NO  -  WAS  IN  LIST  BEFORE  SO  SKIP 

ELSE,  SET  LOOP  HIGHEST 

PREVIOUS  OVERFLOW  ? 

IF  EQ,  NO  -  ADD  LOOP  NODE 

ELSE,  IS  THIS  THE  FIRST  TIME  THROUGH? 

IF  EQ,  NO  -  GET  OUT 

ELSE,  GET  HIGHEST  LOOP  NODE  ADDRESS 

IS  ADDRESS  HIGHER  THAN  LAST  LOOP  HIGHEST 

IF  LOS,  NO  -  DON'T  PUT  IN  LIST 

IS  ADDRESS  HIGHER  THAN  CURRENT  LOOP  HIGHEST 

IF  LOS,  NO  -  JUST  PUT  IN  LIST 

ELSE,  SET  CURRENT  LOOP  HIGHEST 

MAKE  IT  A  LOOP  NODE  INTERNALLY 

SAVE  IT 

COPY  CONTEXT  AREA  POINTER 

POINT  PAST  END  OF  CONTEXT  AREA 

IS  THERE  ENOUGH  ROOM  ? 

IF  LO,  YES  ..  SAVE  IT 

ELSE,  INDICATE  OVERFLOW 
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SYMBOL 

VALUE 

REFERENCES 

L$TNM 

000052 

"l-^l 

LSTPT 

000050 

#5-87 

L$TRB 

OOOOAO 

#5-87 

L$TSZ 

000070 

#5-87 

L$TYP 

000063 

#5-87 

LSUNT 

000003 

#5-87 

MAPECL 

=  *♦*«»♦  Gx 

12-298 

MAPXPT 

=  »*»♦*»  GX 

10-203 

14-385 

MAXLEN 

=  000006 

#5-78 

M$$MGE 

=  000000 

10-209 

10-234 

14-391 

14-416 

NF.ARE 

=  000200 

#5-85 

NF.EPM 

=  002000 

#5-85 

NF.EXN 

=  020000 

#5-85 

NF.FTT 

=  OAOOOO 

#5-85 

11-281 

13-352 

NF.INI 

=  000001 

#5-85 

NF.LPB 

=  000004 

#5-85 

6-92 

NF.LV1 

=  000040 

#5-85 

10-204 

14-386 

NF.LV2 

=  000100 

#5-85 

10-204 

14-386 

NF.LXX 

=  004000 

#5-85 

NF.MUX 

=  000010 

#5-85 

NF.OVR 

=  000002 

#5-85 

9-153 

13-350 

13-366 

16-495 

16-551 

NF.PA2 

=  010000 

#5-85 

NF.REA 

=  000020 

#5-85 

NF.VR2 

=  000400 

#5-85 

NF.VR3 

=  001000 

#5-85 

NF.WLD 

=  000004 

#6-92 

16-483 

NL.ADJ 

=  000010 

#5-85 

7-108 

9-170 

NL.ECL 

=  000004 

#5-85 

7-107 

9-173 

NL.LOO 

=  000040 

#5-85 

7-110 

9-185 

NL.REM 

=  000001 

#5-85 

7-105 

9-182 

NL.ROL 

=  000002 

#5-85 

7-106 

9-176 

NL.SfR 

=  000020 

#5-85 

7-109 

9-179 

N$ADD 

000004 

#5-85 

16-487 

NSADJI 

000072 

10-232 

14-388 

14-415 

NSALN 

=  000002 

#5-85 

NSAMP 

000066 

#5-85 

5-85 

NSAMX 

000056 

#5-85 

N$BFL 

000060 

#5-85 

♦9-166 

NSBUF 

000056 

#5-85 

5-85 

N$CAR 

000062 

#5-85 

N$CHN 

000014 

#5-85 

NSCLOO 

000052 

#5-85 

9-155 

9-183 

13-357 

♦13-359 

N$CNO 

000064 

#5-85 

NSECL 

000010 

#5-85 

NSENC 

000042 

12-299 

NSFLAG 

000000 

#5-85 

♦9-153 

10-204 

11-281 

13-350 

13-352 

♦16-495 

♦16-551 

16-558 

16-573 

16-587 

NSHADJ 

000040 

#5-85 

9-168 

14-403 

♦14-405 

14-420 

♦14-422 

NSHCCX 

000050 

#5-85 

9-154 

9-167 

♦16-584 

♦16-585 

♦16-586 

NSHECL 

000036 

#5-85 

9-171 

12-308 

♦12-310 

NSHLCX 

000046 

#5-85 

♦9-154 

10-225 

10-241 

11-277 

12-311 

NSHLOO 

000044 

#5-85 

9-183 

13-347 

♦13-349 

16-558 


16-573    16-587 


♦13-366 


14-406 


14-386    16-483 


14-423    15-452 
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ME$NON 

ME SOB J 

MES0B5 

MEtPRO 

MESSYS 

ME.BLO 

ME. CON 

ME.CST 

ME.DIS 

ME. DON 

ME.FCO 

ME.FIO 

ME. FOP 

ME. FOR 

MP. FUN 

ME.GRO 

ME.HAR 

ME.IID 

ME.LCO 

ME.LPR 

ME.HPR 

ME.MVE 

ME. OPE 

ME.PLO 

ME.PMI 

ME.PNA 

ME.PRI 

ME.PTY 

ME.PVA 

ME. RES 

ME.ROO 

ME.SIZ 

ME. SYS 

ME.UCO 

MFSACT 

MFSADD 

MFSADJ 

HFSALL 

MFSBYE 

MFSCHA 

MFSOUH 

MFSEVT 

MFSFUP 

MFSKNO 

MFSLOA 

MFSLOO 

MFSREA 

MFSSIG 

MFSSPF 

MFSSYS 

MFSTES 

MFSTRA 

MFSTRI 

MFSZER 

MLSALL 

MLSCLS 

ML  SCON 


177777 

000007 

OOOOOA 

000005 

000006 

1777A4 

177753 

177765 

177755 

177600 

177762 

177756 

177763 

177776 

177777 

177745 

177750 

177767 

177766 

177757 

177773 

177771 

1777A7 

177751 

177743 

177752 

177775 

177772 

177760 

177761 

177754 

177774 

177746 

177770 

177776 

000000 

177774 

177775 

000300 

000023 

000020 

000001 

000264 

177777 

000017 

177775 

000024 

177773 

000302 

000026 

000022 

000301 

000021 

000025 

100000 

000000 

000001 


MLSEXT 

MLSFIL 

MLSFIR 

MLSINT 

MLSKNO 

MLSNON 

MLSSYS 

MLSTOP 

MNSUNL 

MOSACC 

MOSADD 

MOSALA 

MOSALI 

MOSCHA 

MOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOtINF 

MOSINS 

MOSLIN 

MOSLOG 

MOSMIR 

MOSNAH 

MOSNIC 

MOSNOD 

MOSOFF 

MOSON 

MOSOPT 

MOSPER 

MOSPRO 

MOSPRS 

MOSREA 

MOSSET 

MOSSTA 

MOSSU'I 

MOSTSK 

MOSVOL 

MOSZER 

MPSACB 

MPSACC 

MPSACT 

MPSADD 

MPSADJ 

MPSADP 

MPSADS 

MPIALB 

MPSAMC 

HPSANH 

HPSANB 

MPSASB 

MPSASC 

MPSAUS 


000001 

000002 

000000 

000000 

140000 

000003 

000002 

000001 

000377 

000200 

000002 

000004 

000000 

000040 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

000000 

000001 

000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

000514 

004526 

000766 

001440 

006325 

004406 

000036 

001640 

001641 

004420 

000024 

004432 

000512 


MPSBBT 

MPSBDF 

MPSBFQ 

MPSBLK 

MPSBLO 

MP$8MX 

MPSSNP 

MPSBRT 

HPSBSA 

MPSBSD 

MPSBSI 

MPSBSP 

MP$8UF 

MPSBUP 

MPSBUS 

MPSCAC 

MPSCAS 

MPSCAT 

HPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

HPSCLN 

MPSCLT 

MPS CMS 

MPICMK 

MPSCMX 

MPSCND 

MPSCNU 

MPSCOB 

HPSCON 

MPSCOS 

MPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

HPSCVA 

MPSDAL 

MP$DCO= 

HPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DHO= 

MPSDIA 

MPSDL8 

MPSDLG 

MPSDLI= 

MPSDLT 

MPSDRO 

MPSDST 

MPSDTE 

MPSDTY= 

MPSDUA 


002165 

002164 

002121 

001616 

001452 

002176 

006330 

001620 

002176 

002203 

002200 

006331 

000170 

006324 

001643 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

000537 

002153 

000310 

001753 

000311 

002126 

001604 

000230 

000232 

000226 

000161 

001755 

002127 

000540 

002570 

001464 

002177 

001131 

000156 

002114 

001320 

001465 

000173 

002571 

004521 

001466 

002200 

001441 

000454 

002140 

001452 

000207 


MPSDUC 
MPSDUM 
MPSDUP 
MPSDVC 
MPSDWE 
MPSELT 
MPSETY 
MPSEVE 
HPSFNC 
MPSGDT 
MPSGNM 
HPSGRO 
MPSGRP 
MPSGTY 
MPSHAD 
MPSHBT 
MPSHDD 
HPSHTM 
MPSHWA 
HPSIAT 
MPSIDE 
MPSIDP 
MPSIHO 
MPSINA 
HPSIND 
MPSINI 
MPSITJ 
MPSLAA 
MPSLAN 
MPSLAR 
MPSLAS 
MPSLBS 
MPSLCO 
MPSLCT 
MPSLHL 
MPSLLE 
MPSLLO 
MPSLMB 
MPSLMX 
MPSLNA 
MPSLNO 
MPSLOA 
MPSLOG 
MPSLOO 
MPSLTM 
MPSLTY 
MPSLWI 
MPSMAC 
MPSMAD 
MPSMAP 
MPSHAR 
HPSHAV 
MPSMBN 
MPSMBR 
MPSMBU 
MPSMCB 
MPSMCO 


000210 

000202 

002127 

002114 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 

001757 

002142 

000162 

001612 

002210 

001322 

000144 

006327 

000215 

002177 

002204 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 

000156 

000232 

000227 

004432 

002152 

002200 

000144 

000233 

000170 

004514 

000620 

001613 

004533 

000230 

004420 

001630 

006323 

001635 

006321 

001636 

001637 

001642 

000156 

0016i2 


n-i'")i 

004421 

MrSHHn 

001633 

MPSMLb 

000202 

MPJM'  K 

001306 
001631 

MPJMLN 

MPSMLP 

006333 

MPSMRB 

002171 

MPSHRO 

001605 

MPSMRP 

006322 

MPSMRT 

002153 

MPSMRV 

006320 

MPSMSB 

000170 

HPSMVE 

000145 

MPSMVl 

001634 

HPSMVR 

001751 

HPSMWN 

002154 

MPSMXB 

002172 

MPSMXC 

000466 

HPSMXR 

001630 

MPSMXU 

002143 

MPJNAA 

006335 

HPSNAC 

001130 

HPSNAP 

006326 

MPSNCT 

000240 

MPSNET 

002114 

HPSNLI 

000765 

MPSNNA 

000764 

MPSNOD 

000500 

MPSNRA 

006334 

MPSNRB 

000214 

HPSNSA 

001617 

HPSNTI 

002141 

MPSNUM 

001642 

MPSNVE 

001274 

HP$NXN= 

001476 

HPSOAC 

000632 

MPSOAN 

000620 

MPSOCO 

000776 

MPSOHO 

000214 

MPSONA 

000764 

HPSONR 

002114 

MPSOQL 

001453 

MPSOTI 

000777 

HPSOTY 

001022 

MPSOUS 

000777 

MPSOVE 

001010 

MPSOUN 

004374 

HPSPAR 

000036 

HPSPAS 

000513 

MPSPCH 

002152 

MPSPCO 

000024 

HPSPCT 

000144 

MPSPDT 

002114 

MPSPHA 

000170 

MPSPHY 

000012 

MPSPLI 

000025 

MPSPLN 

002140 
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A$$CHK.= 

000000 

A$$CPS= 

000000 

A$$PRI= 

000000 

A$$TRP= 

000000 

3IT0  = 

000001 

3IT1   = 

000002 

3IT10  = 

002000 

BITll  = 

OOAOOO 

BIT12  = 

010000 

aiT13  = 

020000 

BIT1A  = 

OAOOOO 

BIT15  = 

100000 

BIT2  = 

000004 

B  T3  = 

000010 

B  T4  = 

000020 

BITS  = 

OOOOAO 

BIT6  = 

000100 

BIT7  = 

000200 

BIT8  = 

000400 

BIT9  = 

001000 

B$10 

000003 

B$11 

OOOOOA 

B$12 

000005 

BS5 

000000 

B$6 

000001 

B$? 

000002 

B$7S10 

000006 

CHKLIN 

OOOOOORG 

C$$CKP= 

000000 

C$$ORE= 

000400 

C$$RSH= 

177564 

D$$BLIG= 

177514 

D$$ISK= 

000000 

D$$L11= 

000001 

D$$yNC= 

000000 

D$$YNM= 

000000 

E$$XPR= 

000000 

F$$LVL= 

000001 

G$$TPP= 

000000 

G$$TSS= 

000000 

G$$TTK= 

000000 

G$$WRD= 

000000 

I$$RAR= 

000000 

I$$RDN= 

000000 

K$$CNT= 

177546 

K$$CSR= 

177546 

K$$LDC= 

000000 

K$$TPS= 

000074 

LCSEXT 

000000 

LCSINT 

000001 

LD$lP  = 

000000 

LF$£ND= 

000020 

LF$Mi  T  = 

040000 

LF$REA= 

000001 

LF$SEG= 

100000 

LF$SIG= 

000040 

LF$SKP= 

000004 

LF$VR2= 

LF$ZER= 

LP$MPT= 

LP$MUX= 

LP$TRB= 

LPtUNT= 

LP$WCN= 

LP$WDV= 

LP$WLD= 

LP$WTR= 

LP$WUN= 

LSADJ 

L$BUF 

L$CHN 

L$C0U 

LSCTB 

L$CTL 

LSDDM 

LSFLG 

L$FLX 

LSLEN 

L$LTH 

L$MSG 

LSMTYP 

LSNAM 

L$NLEN= 

LSNOD 

L$NXT 

LSOPT 

L$PAR 

L$PDV 

L$PFG 

L$PL8 

LSPRO 

LSPVC 

L$SCN 

L$SCR 

LSSLEN 

LSSLT 

L$SNM 

L$SYL 

L$TNM 

L$TPT 

L$TRB 

LSTSZ 

L$TYP 

L$UNT 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$nR= 

H8$[/:S 

MBSENA 

MBSFUL 

MBSMIX 

MBSONE 

MBSRXO 


000010 

000002 

000010 

000004 

000002 

000001 

000040 

000020 

000360 

000200 

000100 

000110 

000060 

000054 

000114 

000053 

000002 

000000 

000064 

000070 

000124 

000070 

000056 

000067 

000000 

000020 

000112 

000044 

000062 

000120 

000055 

000041 

000116 

000067 

000004 

000020 

000072 

000066 

000042 

000046 

000122 

000052 

000050 

000040 

000070 

000063 

000003 

000000 

000000 

000001 

000000 

000001 

000000 

000002 

000002 

000001 

000001 


MBSTXO 

000000 

MC$P11 

000001 

MDSDPV 

2828^^ 

MBSZER 

000000 

MCSRFL 

002046 

MD$DQ 

000006 

MC$BAB 

006073 

MCSSBU 

002051 

MD$DTE 

000024 

MCSBID 

001765 
001767 

MCSSa 

002044 

MDSDU 

8922?? 

MCSBMC 

MCSSYC 

000012 

MDSDUP 

000012 

MCSBSC 

001766 

MCSSYL 

000036 

MD$DV 

000026 

NCSCAC 

001442 

MCSSYR 

000050 

MD$DZ 

000030 

MCSCAP 

001440 

Messrs 

000024 

MD$FUL 

000000 

MCSCCL 

001445 

MCSSYZ 

000000 

MDSHAL 

228881 

MCSCDC 

002045 

HCSTBR 

001140 

MDSHEL 

000002 

HCSCDP 

001441 

MCSIBS 

001141 

MDIKCP 

000013 

MCSCIF 

001465 

MCSTDR 

002053 

HDSKDP 

000034 

MC$CLD 

001464 

MCSTIM 

000000 

MDSKDZ 

2222?^ 

MC$COU 

100000 

MC$TYP 

007777 

MDSKL 

000040 

MC$CTL 

001454 

MCSUBU 

002052 

MDSKHX 

000054 

MCSCTR 

001452 

HCSUFD 

002047 

MDSKMY 

2228^? 

MCSCTS 

001453 

MCSUMR 

001132 

MDSLEN 

000050 

MCSDOV 

002050 

MCSUMS 

001133 

MD$PCL 

000011 

MCSLBR 

001750 

MC$VAX 

000003 

HDSQNA 

000005 

MCSLBS 

00U51 

MCSWID 

060000 

MDSUNA 

000001 

MCSLDI 

0017^4 

MCSWIH 

040000 

MDtWIT 

000002 

MCSLDO 

001775 

ncswiL 

020000 

MD.ABO 

000017 

MCSLDR 

001762 

HC$W08 

020000 

MD.ACC 

000010 

MCSLDS 

001763 

MC$U16 

040000 

MD.AOB 

000016 

MCSLLB 

002021 

MC$W32 

060000 

HD.BOB 

000011 

MCSLLP 

002115 

HCSXBR 

001750 

MD.DIA 

000007 

MCSLLR 

002007 

MCSXBS 

001751 

MD.DOB 

000015 

MCSLOO 

000001 

MCSXCJ 

000322 

MD.DUH 

000002 

MC$LR8 

002020 

MCSXCR 

002260 

MD.FAI 

000014 

MCSLRP 

002114 

MCSXCS 

002261 

MD.FNA 

000001 

MCSLRR 

002006 

MCSXDR 

001762 

MD.FOB 

000006 

MCJLSl 

002032 

MCIXDS 

001763 

MD.LOA 

000001 

MCSLST 

002033 

MCSXFR 

002272 

MD.LSH 

000020 

HCSLUP 

006072 

MC$XFS 

002273 

MD.NOB 

000012 

MCSMAP 

010000 

HCSXLJ 

000323 

MD.NON 

177777 

MCtMBL 

001 7o4 

MCSXLR 

002330 

MD.PER 

828889 

MCSMBX 

004420 

MCSXMA 

000310 

MD.RES 

000004 

MCSMBY 

001752 

MCSXMC 

002305 

HD.ROB 

000005 

HCSMPX 

004406 

MCSXMS 

002304 

HD.RSH 

28881^ 

MCSNAP 

001604 

MCSXNR 

002332 

MD.SDU 

000005 

nCSNBR 

001130 

MCSXRC 

002316 

MD.SLO 

000003 

MCSNBS 

001131 

MCSXRR 

002331 

MD.SNA 

22222° 

MCSNCR 

001154 

MCSXRS 

002342 

MD.TLO 

000004 

MCSNCS 

001155 

MC$020 

000002 

HD.UNA 

000002 

MCSNML 

001274 

HDSCI 

000007 

HD.UNR 

02222? 

MCSNMR 

001142 

MDSCNA 

000003 

MD.UOB 

000007 

MCSNMS 

001143 

MDSCOU 

000001 

MD.VOL 

000006 

MCSNNO 

001606 

MDSDA 

000010 

ME SAL  I 

088819 

MCSNNU 

001605 

HDSDL 

000004 

MESAL2 

000003 

MCSNOP 

001607 

MDSDLV 

000020 

MESARE 

000005 

HCSNOR 

000000 

MDSDMC 

000014 

MESCIR 

000003 

MCSNPF 

001616 

MDSDMF 

000046 

MESEXA 

000000 

MCSNPR 

001630 

MDSDMP 

000022 

MESEXE 

000200 

MCSNRE 

001200 

MDSDMR 

000050 

MESLIN 

000001 

MCSNRT 

001166 

MDSDMV 

000042 

MESLOG 

C00002 

MCSNVR 

001642 

MDSDM 

000016 

MESMOD 

000004 

MC$P08 

000000 

MDSDP 

000000 

MESNOD 

000000 
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000020 
OOOO'iO 
000100 
000200 
000360 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
1 00000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
010000 
020000 
040000 
100000 


LPSWDV 
LP$WCN 
LP$WUN 
LPSWTR 
LPSULD 


20 
40 
100 
200 


WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


=  LP$WOV!LP$WCNlLf'$WUNILP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LSSNTL: 
LSSSTA^ 
LS$COS^ 
LSSOWN^ 
LSSTAD^ 
LSSACT 
LSSDEA 
LCSNTL 
LCSOUN: 
LS$DDT 
LSSDLT 
LSSPLT 
LSSBBT 
LS$NMT 
LSSXMT 
LS$SER 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 
=20000 

40000 
=100000 


NTL   SET   FUNCTION 

SET  STATE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SfT  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLE] 


FLAGS  WORD  BIT  DEFINITIONS  (L$FL1) 


LS$BSA= 
LS$8SD= 
LS$BSI= 
LS$INA= 
LS$1ND= 
LS$IN1= 
LS$TH1= 
LS$TH2= 
LS$TH3= 
LSSMXB: 
LS$HTM= 
LS$HDT= 
LS$LOO= 
LSSNOR^ 
.IF  DF 


1 
2 
4 

10 
20 
40 
100 
200 
400 
1000 
10000 
20000 
40000 
100000 
R$$PRC 


PRO/DECNET 


SET  ACTIVE  BASE 
SET  DYING  BASE 
SET  INACTIVE  BASE 
SET  ACTIVE  INCREMENT 
SET  DYING  INCREMENT 
SET  INACTIVE  INCREMENT 
SET  DEAD  THRESHOLD 
SET  DYING  THRESHOLD 
SET  INACTIVE  THRESHOLD 
SET  MAXIMUM  BLOCKS 
SET  HELLO  TIMER 
SET  MODEM  TEST 
SET  CONTROLLER  LOOPBACK 
SET  CONTROLLER  NORMAL 


LOOPBACK  TYPE  WORD  BIT  DEFINITIONS  (L$LTY) 


LSSINT 
LSSEXT 


INTERNAL  LOOPBACK 
EXTERNAL  LOOPBACK 


MODEM  TEST  TYPE  WORD  BIT  DEFINITIONS  (LSMDT) 


LSSLCL  =  0 
LSSREM  =  1 
LSSOFF  =  2 
.ENDC   ;  DF  R$$PRO 


LOCAL  MODEM  TEST 
REMOTE  MODEM  TEST 
SHUT  OFF  MODEM  TESTS 


Flags  word  bit  definitions  for  X.25  circuits  and  tines  (LSFLX) 
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12:1 


0  Page  10-1 


560  0001 0'!. 

561 

562 

56? 

56^. 

565  000110 

566  000114 

567  000116 
568 

569 
570 

571  000122 

572  000126 

573  000130 
57A  000132 

575  000136 

576  0O0U2 

577  OOOUA 

578  000U6 

579  000150 

580  000152 

581  000156 

582  000160 

583  000162 

584  000164 

585  000166 
586 


012705     000422' 


103402 

012700     000002 


016402  000060 
110022 
100010 

005064     000064 
016405     000072 
001403 
110522 
000305 
110522 

016403  000060 
160302 
105713 
100001 
000261 


MOV  #CLECIR,R5 

•Iff 

MOV  *ME.FUN,RO 

BR  30$ 
.ENDC 

20$:    CALL  .NPARS 

BCS  30$ 

MOV  #MS.M0R,R0 


ELSE,  GET  CLEAR  CIRCUIT  STATE  TABLE 

UNRECOGMIZED  FUNCTION  OR  OPTION 
RETURN  ERROR 

PARSE  THE  MESSAGE 

IF  CS,  ERROR 

ELSE,  SET  SUCCESSFUL  RETURN 


USE  THE  STATUS  IN  RO  TO  BUILD  THE  RETURN  MESSAGE  AND  C-BIT  RETURN 


^0$: 


40$: 


50$: 


MOV 

Move 

BPL 
CLR 
MOV 
BEQ 

Move 

SWAB 

Mova 

MOV 

SUB 

TST8 

BPL 

SEC 

RETURN 


R2 


R5 


L$8UF(R4) 

R0.(R2)* 

40i 

L$FLG(R4) 

L$PAR(R4) 

40$ 

R5,(R2)+ 

R5 

R5,-.,2)t 

L$BUF{R4),R3 

R3,R2 

50$ 


RESTORE  THE  BUFFER  ADDRESS 

SET  THE  RETURN  CODE 

IF  PL,  SUCCESS 

ELSE,  UNSUCCESSFUL  INIT 

SET  THE  PARAMETER  TYPE  IN  ERROR 

IF  EQ,  THERE  WAS  NONE 

SET  PARAMETER  LOW  BYTE 

SET  UP  HIGH  BYTE 

SET  PARAMETER  HIGH  BYTE 

RESTORE  BUFFER  POINTER 

CALC  MESSAGE  LENGTH 

SUCCESS  ? 

IF  PL,  YES 

ELSE,  NO  -  SET  ERROR  RETURN 
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Page  11 


CICHIN  - 

CIRCU 

DTEAC  - 

X.25  ( 

910 

911 

912 

913 

9U 

915 

916 

917 

918 

919 

920 

921 

922 

923 

92^ 

000726 

925 

000726 

926 

000732 

927 

C00736 

928 

000740 

929 

0007A4 

930 

000746 

931 

000752 

932 

000756 

933 

000762 

93/. 

000764 

935 

000772 

5  15 
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25  Circuit  DTE  action  routine 


.SBTTL  DTEACT  -  X.25  Circuit  DTE  action  routine 

I- 

*•«  DTEACT  -  X.25  Circuit  DTE  action  routine 
INPUTS 


.MSGPT 
R4 


Pointer  to  DTE  address 
Address  of  context  area 


OUTPUTS 

Transition  rejected  if  inualid  DTE  address 

L$DTE(RO  -  DTE  address  in  BCD 

L$DTEL(R4)  -  Number  of  digits  in  DTE  address 


DTEACT: 


016701 
112102 
010264 
010405 
062705 
012700 

103003 
062766 


OOOOOOG 

000236 

000240 
000010 


000002  OOOOOOG 


10$: 


CALL 
MOV 

Move 

MOV 
MOV 
ADD 

MOV 

CALL 
BCC 
ADD 
RETURN 


SSAVAL 

. MSGPT, R1 

(R1)+,R2 

R2,L$DTEL(R4) 

R4,R5 

#L$DTE,R5 

*<MXDTEt1>/2,R0 

PCKBCD 

10$ 

*2,R$PC(SP) 


Save  alL  registers 

Point  to  DTE  address 

Get  number  of  digits  in  address 

Save  length  of  DTE  address 

Point  to  context  area 

Point  to  work  area  to  get  BCD  address 

Get  number  of  bytes  required 

Store  DTE  address  in  BCD  format 

BR  if  valid  address 

...  else  reject  the  transition 
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W^, 


1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
119A 
1195 
1196 
1197 
1198 


001 30A 

001310     110164     000125 

0015U 


.S8TTL   INAACT  -  ACTIVE  INCREMENT  ACTION  ROUTINE 

INAACT  -  ACTIVE  INCREMENT  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POINTER  TO  1  BYTE  ACTIVE  INCREMENT 
M  -   POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

L$INA(R4)  -  ACTIVE  INCREMENT  VALUE 


INAACT:  CALL    CHKDMP 

Move    R1,L$INA(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  ACTIVE  INCREMENT  VALUE 


CICHIN 
INDACT 


CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29- 
DYING  INCREMENT  ACTION  ROUTINE 
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Table  of  contents 

MACRO  CALLS  AND  LOCAL  DATA 

ALREIN  -  ALIAS  READ  INFORMATION  INITIALIZE 

SAVALI  -  SAVE  ALIAS  CONTEXT 

SAVCTX  -  SAVE  AN  ALIAS  CONTEXT 

FINDA  -  FIND  A  MATCHING  ALIAS  BLOCK 


s- 

S7 

ft- 

n 

!- 

1/0 

R- 

^16 

9- 

280 
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ALREIN  -  ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  ,2:05  Page  4 
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ALREIN     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:05 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


AF.INI 

AF.OVR 

ALREIN 

A$ALI 

ASBUF 

ASFLG 

ASLEN 

AINEX 

ASNUM 

A$OPT 

ASPAR 

ASSAV 

ASSCO 

ASTYP 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

CEACC 

CF$VR2 

CHKALI 

CHKSCO 

CURCTX 

CSFLAG 

DECPT 

PSANN 

FINDA 

KISAR6 

MAXACC 

MAX  ID 

MAXPAS 

ME  SAL  I 

ME$AL2 

ME. DON 

ME. FOR 

ME. FUN 

ME.MPR 

ME.UCO 

MFSALL 

MOSCHA 

MS.MOR 

N$$VCT 

SAVALI 

SAVCTX 

SSAVRG 


000001 

000002 

000000  RG 

000012 

000006 

000000 

000024 

000022 

000010 

000002 

OOOOOA 

000024 

000020 

000011 

000020 

000000 

000002 

000010 

000012 

000010 


=  ****** 

r  ****** 
r  ****  »  <t 

=  ******* 
=  ****** 
=  *****^t 
=  ****** 

000000 
000466 

=  ****** 

=  000020 
=  000020 
=  000010 
000010 
000003 
177600 
177776 
17^777 
177773 
177770 
177775 
000040 
000002 

-  ♦*♦*♦* 

000256 
000406 

-  ****** 


GX 
oX 
GX 
GX 
GX 
GX 
GX 


GX 


R 
R 
GX 


REFERENCES 

#5-69 
#5-69 
#6-97 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 

7-222 

6-146 

6-118 

6-125 

6-145 

6-146 

7-206 

7-207 

7-213 

7-205 
#5-69 
#5-69 
#5-69 

6-144 

6-148 

6-152 

6-130 

6-110 

6-104 

6-149 

6-123 

6-111 

6-140 

7-205 

6-136 

7-215 

6-98 


6-159 
8-268 

9-308 
♦6-100 
*6-159 

6-105 
*7-202 

6-142 
*6-99 
*6-144 

7-201 
*6-141 

6-123 


8-271 


7-227 
9-304 


#9-302 
*7-233 


7-2c5 


7-233 

#7-198 

7-230 


9-310 

6-158 

♦6-162 


♦7-199 

6-111 

♦6-148 

7-227 
6-150 


8-272 


8-274 
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9-312 
♦8-268 


♦8-275 

6-113 

♦6-153 

9-314 
7-208 


8-273 
9-314 


6-163 
7-225 
9-308 


9-310 


9-312 


#8-262 
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317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
33A 
335 
336 
337 
338 

339  0C0640 

340  000642 

341  000644 

342  000650 

343  000652 

344  000654 

345  000656 

346  000664 

347  000666 

348  000674 

349  000676 

350  000704 

351  000706 

352  000714 
353 

354  000716 

355  000720 
356 

357 


010001 
011146 

000261 
012601 
001421 
026461 
001366 
026461 
001362 
026461 
001356 
026461 
001352 

000241 


000001 


.SBTTL  FINDA  -  FIND  A  MATCHING  ALIAS  BLOCK 

♦•-FINDA-FIND  A  MATCHING  ALIAS  BLOCK 

THIS  ROUTINE  FINDS  A  BLOCK  WITH  A  MATCHING  ALIAS  NAME  AND  SCOPE. 

INPUTS: 

RO  =  LISTHEAD  ADDRESS 

R4  =  POINTER  TO  CONTEXT  AREA  WITH: 

ASALI  =  6  CHAR  ALIAS  NAME 

A$SCO  =  SCOPE  OF  ALIAS 

OUTPUTS: 

IF  CC: 

R1  =  MAPPED  ADDRESS  OF  BLOCK 
IF  CS: 

NO  MATCH  IN  LIST 


REGISTERS: 

R2,  R3, 


FINDA: 
10$: 


000012  000002 

000014  000004 

000016  00P006 

000020  000010 


40$: 


MOV 

MOV 

CALL 

SEC 

MOV 

BEQ 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CLC 
RETURN 

.END 


R4,  R5  ARE  PRESERVED 


RO.RI 

(R1),- 

aCEACC 

(SP)  + 

40$ 

A$ALI( 

10$ 

A$ALI+ 

10$ 

A$ALI+ 

10$ 

A$SCO( 

10$ 


(SP) 

R1 

R4),A.NAM(R1) 

2(R4),A.NAM+2(R1) 

4(R4),A.NAM+4(R1) 

R4),A.UCB(R1) 


R1  IS  OUTPUT  REGISTER  -  SO  COPY 

MOVE  UNMAPPED  ADDR  OF  NEXT  BLK  TO  STK 

MAP  TO  THE  BLOCK  ;  RJK02 

ASSUME  FAILURE 

RECOVER  MAPPED  VIRTUAL  ADDRESS 

IF  EQ,  THERE  IS  NONE  CNO  MATCH) 

DOES  THIS  NAME  MATCH  ? 

IF  NE,  NO 


DOES  THE  SCOPE  MATCH 
IF  NOT  EO,  NO  MATCH 


FOUND  IT 
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AP  iwi=  nnnnm        n%m        000060        K$$CNT=  177546        MC$MBY  001752 


MC$XMC  002305 
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H8 

H9  0OOU2 

150  000150 

151  0001 5A 

152  000162 

153  000164 
15A  000172 

155  000176 

156  000200 

157  000202 

158  000204 

159  000206 
160 

161 
162 
163 
164 
165 
166 
167 
168 
169 
170 

171  000210 

172  000210 

173  0002U 

174  000216 

175  000220 

176  000224 

177  000226 

178  000230 

179  000232 

180  000236 

181  000240 

182  000242 

183  000244 

184  000250 
185 


012764 
016700 
032760 
001403 
012764 
012700 
000261 
000401 
000241 


000010  000004  20$: 

OOOOOOG 

OOOOOOG  OOOOOOG 

000003  000004 
177770         25S: 


30$: 
35$: 


MOV 

MOV 

BIT 

BEQ 

10V 

(10V 

SEC 

BR 

CLC 

RESRG 

RETURN 


#ME$ALI,A$PAR(R4) 

CURCTX.RO 

#CF$VR2,C$FLAG(R0) 

25$ 

#ME$AL2,A$PAR(R4) 

#ME.UCO,R0 

35$ 

R2 


SET  ERROR  DETAIL-ASSUME  NOT  V2.0  NCP 

GET  ADDRESS  OF  CONTEXT  AREA 

CONNECTED  TO  V2.0  NCP? 

BR  IF  NO 

ELSE  SET  V2.0  ENTITY  ID 

ELSE,  BAD  ALIAS  NAME 


BE  SURE  CARRY  IS  CLEAR 
f-ESTORE  SAVED  REGISTER 


CMPCST  —  compare  counted  strings 

input:  Rl  input  string 

R5  length  of  input  string 

RO  po^'nts  to  comparsion  string,  which  is  in 

a  byte  table  of  the  form  :  length,  string 


output:  Car-Y  clear, 
Rl,  R5  saved 


match 


Carry  set,  no  match 


CMPCST: 


122005 
001403 
121127 
001006 
122120 
001004 

000241 
000401 
000261 


000040 


SAVRG 

<R1,'i5> 

CMPB 

tRO) :,R5 

BEQ 

10$ 

CMPB 

(R1),#' 

BNE 

20$ 

10$: 

CMPB 

(R1)+,(R0) 

BNE 

20$ 

SOB 

R5,10$ 

CLC 

BR 

25$ 

20$: 

SEC 

25$: 

RESRG 

<R5,R1> 

RETURN 


compare  lengths  first — must  be  equal 

if  ne,  no  match,  but  check  for  <6  blanks 

If  the  first  char  isn't  blank 

kick  it  out 

Now  look  at  characters 

if  ne,  no  match 

and  compare  next  character 

Match,  so  ensure  clear  carry 

And  skip  to  return 

Set  "no  match"  indicator 

restore  input  string  description 

and  get  back 
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MACRO  NAME 

REFERENCES 

ARRCXS 

#5-54 

5-65 

CALL 

6-131 

6-142 

DHBDFS 

#5-55 

5-57 

HDRDFS 

#5-55 

5-58 

MANDFS 

#5-5A 

5-59 

NSFDFS 

#5-55 

5-60 

PnVDFS 

#5-5A 

5-61 

RE  SNAP 

#5-55 

RETC 

#5-54 

6-193 

RETURN 

6-195 

6-217 

SAVMAP 

#5-55 

SWSTKS 

6-131 

UCBDFS 

#5-54 

5-62 

XPDDBS 

#5-54 

5-63 

**F!LE"ID»«ARREOP 
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ARREOP  -  AREA  READ  INFORMATION 
NXTNOD  -  STORE  THE  NEXT  NODE 


^00 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414  001350 

005701 

415  001352 

001417 

416  001354 

417  001364 

012700  000000' 

418  001370 

010110 

419  001372 

420  001400 

421  001404 

422  001412 

000241 

423  001414 
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.SBTTL  NXTNOD  -  STORE  THE  NEXT  NODE 

•*•  -  NXTNOD  -  STORE  THE  NEXT  NODE 

INPUTS: 

R1  =  NODE  ADDRESS 

R3  =  OUTPUT  BUFFER  ADDRESS 

R4  =  POINTER  TO  CONTEXT  BLOCK 

OUTPUTS: 

R0-R2  =  DESTROYED 

R3  =  NEW  BUFFER  ADDRESS 


NXTNOD: 


10$: 


TST 

R1 

FOUND  ONE  ? 

BEQ 

10S 

NO  INFORMATION 

DBLOKS 

PARAM.MPSNXN 

C0DMUL,2 

STORE  NEXT  NODE  ADDRESS  AND  NAME 

MOV 

#TEMP,RO 

POINT  TO  BUFFER 

MOV 

R1,(R0) 

COPY  NEXT  NODE  ADDRESS 

DBLOKS 

,,DECUNS,2 

PUT  NEXT  NODE  ADDRESS  IN  MESSAGE 

CALL 

NODNAM 

SEARCH  FOR  NODE  NAME 

DBLOKS 

,,ASCIMG,6 

STORE  NODE  NAME 

CLC 

RETURN 

ARREOP  -  AREA  READ  INFORMATION 
NXTNOD  -  STORE  THE  NEXT  NODE 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 
:2 

13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
3C 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 


.TITLE  BLNLST  -  BUILD  NODE  LIST  IN  CONTEXT  AREA 

.IDENT  /V05.00/ 

.ENABL  LC 

.NLIST  CND 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  BUILD  NODE  LIST 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  13-FEB-84 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


6.  8. 
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370 
371 
372 
373 
37A 
375 
376 
377 
378 
379 
380 
381 
382 
383 

384  000770 

385  000770 

386  000774 

387  001002 

388  001004 

389  001012 

390  001014 

391  001016 

392  001026 

393  001032 

394  001036 

395  001042 

396  001046 
397 

398 
399 

400  001050 

401  001056 

402  001060 

403  001064 

404  001070 

405  001072 

406  001076 

407  001102 

408  001104 

409  001110 

410  001114 

411  001120 
412 

413 
414 

415  001122 

416  001126 

417  001136 

418  001144 

419  001146 

420  001152 

421  001156 

422  001160 

423  001164 

424  001170 

425  001172 

426  001176 


.SBTTL  SAVADJ  -  SAVE  ADJACENT  NODE  ADDRESSES 

***  -  SAVADJ  -  SAVE  ADJACENT  NODE  ADDRESSES 

THIS  ROUTINE  IS  CALLED  AT  SYSTEM  STATE. 

INPUTS: 

R5  =  ADDRESS  OF  STORAGE  FOR  NODE  ADDRESS 

OUTPUTS: 

R5  =  UPDATED 


032764 
001447 

001442 
005002 

017700 
016046 
066016 
066016 
012600 


132762 
001414 
016201 
020164 
101402 
010164 
020164 
101402 


000140  000000 


OOOOOOG 
000030 
000054 
000056 


SAVADJ: 

MAPXPT  ; 

BIT  #NF.LV1!NF.LV2,N$FLAG(R4) 

8EQ  30$ 

MAP  N$ADJ1(R2) 

BEQ  20$ 

CLR  R2 

BIAS  R2 

MOV  aDECPT,RO 

MOV  D$NLN(RO),-(SP) 

ADD  D$NeRA(RO),(SP) 

ADD  D$NBEA(RO),(SP) 

MOV  (SP)+,RO 

SCAN  THE  ADJACENCY  TABLE 


000010  000002  l0$: 

000000 
000040 


000040 
000046 


062702  000004 


016202  000072 

000010  000002 


12$: 


15$: 
20$: 


8JTB 

BEQ 

MOV 

CMP 

BLOS 

MOV 

CMP 

BLOS 

CALL 

ADD 

SOB 

RETURN 


ENDNODE 


132762 
001414 
016201 
020164 
101402 
010164 
020164 
101402 


000000 
000040 

000040 
000046 


^0$: 


35$: 


40$: 


MOV 

BIAS 

BITB 

BEQ 

MOV 

CMP 

BLOS 

MOV 

CMP 

BLOS 

CALL 

RETURN 


#AT$UP,A$TYP(R2) 

15$ 

A$NID(R2),R1 

R1,N$HADJ(R4) 

12i 

R1,N$HADJ(R4) 

R1,N$HLCX(R4) 

15i 

SAVCTX 

#A$LEN,R2 

R0,10$ 


N$ADJ1(R2),R2 

R2 

#AT$UP,A$TYP(R2) 

40$ 

A$N1D(R2),R1 

R1,N$HADJ(R4) 

35i 

R1,N$HADJ(R4) 

R1,N$HLCX(R4) 

40§ 

SAVCTX 


MAP  AND  POINT  TO  XPT  DATABASE 
:;  ARE  WE  AN  ENDNODE  ? 
IF  EO,  YES 

GET  APR  BIAS  FOR  ADJACENCY  DATA  BASE 
IF  EQ,  NOT  PRESENT 
POINT  TO  START  OF  ADJACENCIES 
THRU  APR  6 

POINT  TO  HOME  BLOCK         ;  RJK03 
GET  NUMBER  OF  LINES 
ADD  ROUTER  ADJACENCIES 
ADD  ENDNODE  ADJACENCIES 


IS  THIS  ADJACENCY  UP  ? 

IF  EQ,  NO  -  SKIP  IT 

GET  NODE  ADDRESS 

IS  ADDRESS  HIGHER  THAN  ADJACENCY  HIGHEST 

IF  LOS,  NO  -  BRANCH 

ELSE  SET  HIGHEST  ADJACENCY  TO  CURRENT  ADDRESS 

IS  ADDRESS  HIGHER  THAN  LAST  CONTEXT  HIGHEST 

IF  LOS,  NO  -  RETURN 

SAVE  THE  CONTEXT 

GO  TO  NEXT  NODE  ENTRY 

IF  ANOTHER  NODE  GET  ADDRESS 


POINT  TO  ADJACENCY 

USE  APR  6 

IS  IT  UP  ? 

IF  EQ,  NO 

ELSE  GET  NODE  ADDRESS 

IS  ADDRESS  HIGHER  THAN  ADJACENCY  HIGHEST 

IF  LOS,  NO  -  BRANCH 

ELSE  SET  HIGHEST  ADJACENCY  TO  CURRENT  ADDRESS 

IS  ADDRESS  HIGHER  THAN  LAST  CONTEXT  HIGHEST 

IF  LOS,  NO  -  RETURN 

AND  SAVE  IT 
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SYMBOL  VALUE 


NSHREM 

NtHROL 

NSHSER 

N$LEN 

NSLFLG 

NSLLOO 

NSLOG 

N$NAM 

NSNEX 

NSNLEN 

NSNLN 

N$NMP 

NSNMX 

N$NSP 

N$OPT 

N$PLU 

N$QCH 

NSRGAl 

N$SAV 

NSUCB 

NSXPT 

N$$VCT 

OFFSET 

RBNLST 

RF.LOO 

;i$R5 

RSSIID 

R$$11M 

R$$11S 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

SAVADJ 

SAVCTX 

SAVECL 

SAVLOO 

SAVREM 

SAVROL 

SAVSER 

SF.CIR 

SF.DEV 

SF.DIA 

SF.DPA 

SF.DPC 

SF.DUM 

SF.HAD 

SF.HST 

SF.LOA 

SF.PH3 

SF.PSS 


000032 
00003^ 
OO00A2 
000270 
000030 
00005^ 
000270 
000020 
000062 
000017 
=  000200 
000070 
000060 
000026 
000002 
000015 
000016 
000022 
00006A 
000006 
000012 

=  000002 

000032  RG 
=  100000 
=  «♦*»♦*  Gx 
=   ***«♦♦ 
=  000000 

=   *  *  *  v  *  * 

000010 
000012 
000014 
000000 
00^002 
000770  R 
001262  R 
000542  R 
000626  R 
000444  R 
000250  R 
001200  R 

=  000010 

=  000020 

=  004000 

=  000100 

=  000200 

=  010000 

=  000004 

=  000002 

=  002000 

=  020000 

=  000040 


REFERENCES 

#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
V5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 

10-206 
#5-85 
#5-85 
#5-85 

8-131 
#5-80 
#8-130 
#5-67 
♦16-550 

5-69 

5-69 

5-69 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 

7-108 

10-227 

7-107 

7-no 

7-105 

7-106 

7-109 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 


9-180 
9-174 
9-177 

9-159 
*9-155 


5-85 
16-499 


10-207 
16-505 


8-133 


11-272 
•16-561 

10-209 

11-271 
11-272 


#14-384 
1C-243 
#12-298 
#13-332 
#11-260 
#10-203 
#15-440 


11-274 
10-222 
15-449 

*9-170 
13-355 


16-502 


10-201^ 


13-345 
♦16-577 

10-234 

13-344 
13-345 


11-279 


♦11-276 
♦10-224 
♦15-451 

♦9-173 


10-238 


♦9-176 


♦10-240 


♦9-179 


♦9-182 


♦9-185 


12-300 


16-579 
14-391 


12-313 


14-388 


14-416 


U-408 


15-447 


14-'.25 


15-454 


#16-481 
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MPSPLO 
MPSPMC 
MPtPNT 
HP$fRI 
MPtPRO 
MPSPSS 
MPSPST 
MPSRET 
HPShFA 
MPSRMX 
MPSRPA 
MPtRPR 
MPIRRT 
MPSRST 
MPSRSV 
MPSRSZ 
MPSRTI 
MPSRTM 
HPSRVE 
MPSRVT 
MPSSAC 
MPSSAD 
MPSSCA 
i«IP$SCO 
MPSSCT 
MPSSDU 
MPSSDV 
MPSSEH 
MPSSER 
MPSSET 
MPSSGZ 
MPSSID 
MPSSIN 
MPSSLI 
HPSSLO 
MPSSMX 
MPSSUD 
MPSSNP 
MP$S;JU 

Mpssoe 

MPSSPA 
MPSSPR 
MPSSPS 


000012 

00A374 

002126 

OOAAll 

002130 

001763 

001762 

001631 

001323 

002201 

004 37A 

001606 

002213 

002212 

00175'!, 

001756 

001616 

001611 

001604 

000156 

0005U 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

001644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 


.  ABS.  000124 
000054 
Errors  detected: 


000 
001 
0 


MPtSTA 

MPSSII 

MPSSTT 

MPSSTY 

MP$SUB 

MPSSUR 

MPSSUS 

MPSSVR 

MPJSWI 

MPJSYP 

MPSTFL 

MP$TH1 

HP$TH2 

MP$TH3 

MPSTLN 

MPSTLO 

MPSTPA 

MPSTRI 

MPSTST 

MPSTYP 

MPSUCS 

MPSUSR 

MPSVEC 

MPSVER 

MPtWDF 

HPSWMX 

MP$XM7 

MPSXPF 

MPSXPL 

MPSXPT 

MPSXXX 

MP$5ST 

HSSACT 

MSSADU 

HSSALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 


000000 
002140 
002201 
000175 
000001 
000156 
000512 
000163 
002260 
002424 
000156 
002206 
002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
■[77777 

000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 


(RW.I.GBL.ABS.OVR) 
(RW,I,LCL,REL,CON) 


♦**  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


201 

135 

27060  Words 

17608  Words 

RSX-IIM/PLUS 


(  106  Pages) 
(  67  Pages) 


MSSGLO 

MSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MS$0FF 

MS$0N 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

MSSRSX 

MSIRT 

MSISER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MS$TER 

MSSTOP 

HSSTRJ 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MTSBIL 

MTSBYS 

MTSCl 

MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

MTSETH 

MTSHEX 

MTSLPB 

MTSMAX 

MTSMUL 


000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
000001 
000004 
000006 
000040 
000005 
000037 
000100 


MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

MTSPHA 

MTSPOI 

MT$QP2 

MTSROU 

MT$R04 

MTSSEC 

MISSGD 

MTSSYS 

MTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

MT$X25 

MUSING 

MUSOUT 

MUSPER 

MV$ni 

MVSIV 

MXSACT 

MXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

MXSDTE 

MXSFIL 

MXSLGC 

MXSLIN 

MXSLON 

MXSNMS 

MXSNOD 

MXSOBJ 

MXSOUN 

MXSPAR 

MXSPAS 

MXSRAC 

MXSRID 


000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
000040 
000036 
000010 
000047 
000047 


MX$RPS 

MXSSID 

MXSSNK 

HXtTYP 

MXSUID 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

H$$OVR= 

NM.CLN 

NM.INI 

NM.OPR 

NM.VR2 

NM.VR3 

N$$ACC= 

N$$BUF= 

NS$LD\/= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEH= 

PRSCIR= 

P$$P45= 

P$$URD= 

Q$$OPT=: 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANM 

SFSDNM 

S$$URG= 

S$$YSZ= 

T$$KMG= 

T$$HIN= 

w$$CTR= 

X$$DBT= 

$$$SYS= 

$$$SYX= 


000047 

000040 

000377 

000077 

000020 

000124 

000000 

COOOOO 

000000 

000000 

000000 

003400 

002400 

003000 

002401 

002402 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

«**♦««  GX 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000001 

000002 

000000 

007600 

000000 

000000 

001000 

000000 

004374 

000000 


Elapsed  time:  00:00:23.05 
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MESNON 

MESOBJ 

ME  SOB  2 

MESPRO 

MESSYS 

ME.BLO 

ME. CON 

ME.CST 

ME.DIS 

ME. DON 

ME.FCO 

ME.FIO 

ME. FOP 

ME. FOR 

ME. FUN 

ME.GRO 

ME.HAR 

ME.IID 

ME.LCO 

ME.LPR 

ME.MPR 

ME.MVE 

ME. OPE 

ME.PLO 

ME.PMI 

ME.PNA 

ME.PRI 

ME.PTY 

ME.PVA 

ME. RES 

ME . ROO 

ME.SIZ 

ME. SYS 

ME.UCO 

MFSACT 

MFSADD 

HFSADJ 

MFIALL 

MFSBYE 

HF$C"A 

MFSDUM 

MFSEVT 

MFSFUP 

MFSK.'JC 

MFSLOA 

MFSLOO 

MFSREA 

MFSSIG 

MFSSPF 

mf$sy: 

MFSTES 
MFSTRA 
MFSTRI 
MFSZER 
MLSALL 
MLSCLS 
ML  SCON 
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■\imi 

MLSEXT 

000001 

000007 

MLtFIL 

000002 

OOOOOA 

HLSFIR 

000000 

000005 

MLSINT 

000000 

000006 

MLtKNO 

uoooo 

1777AA 

ML$MON 

000003 

177753 

MLSSYS 

000002 

177765 

HLSTOP 

000001 

177755 

MNSUNL 

000377 

177600 

MOSACC 

000200 

177762 

MOSADD 

000002 

177756 

MOSALA 

000004 

177763 

MOSALI 

000000 

177776 

HOSCHA 

000040 

Mini 

MOSCIR 

000003 

1777A5 

MOSCLE 

000100 

177750 

MOSCOU 

000060 

177767 

MOSDAC 

000000 

177766 

MOSDEF 

000000 

177757 

MOSDPR 

000000 

177773 

MOSENT 

000017 

177771 

MOSEVE 

000100 

Mlli^l 

MOSINF 

000160 

•77751 

HOSINS 

000002 

• 777A3 

MOSLIN 

000001 

177752 

MOSLOG 

000001 

Mni'i 

MOSMIR 

000031 

177772 

MOSNAM 

000001 

177760 

MOSNIC 

000023 

177761 

MOSNOD 

000000 

17775A 

MOSOFF 

000001 

177774 

MOSON 

000000 

177746 

MOSOPT 

000001 

177770 

MOSPER 

000200 

177776 

MOSPRO 

000002 

000000 

MOSPRS 

000001 

\^^7T^ 

MOSREA 

000200 

177775 

MOSSET 

000000 

0U0300 

MOSSTA 

000020 

000023 

MOSSUM 

000000 

000020 

MOSTSK 

000000 

000001 

HOSVOL 

000000 

00026A 

MOSZER 

000000 

UlllJ 

MPSACB 

000012 

000017 

MPSACC 

000514 

177775 

MPSACT 

004526 

000024 

MPSADD 

000766 

177773 

MPSADJ 

001440 

000302 

MPSADP 

006325 

000026 

MPSADS 

004406 

000022 

MPSALB 

000036 

000301 

MPSAMC 

001640 

000021 

MPSANH 

001641 

000025 

MPSANB 

004420 

100000 

MPSASB 

000024 

000000 

MPSASC 

004432 

000001 

MPSAUS 

000512 

MPSBBT 

002165 

MPSDUC 

000210 

MPSMDE 

004421 

MPSBDF 

002164 

MPSDUM 

000202 
002127 

MP$MHO 

001633 

MPSBFQ 

002121 

MP$DUP 

HPSMLB 

000202 

MPSBLK 

88]t^^ 

MPSDVC 

002114 
001321 

MPJMLK 

001 306 

MPSBLO 

MPSDWE 

MPSHLN 

MPSBMX 

002176 

MPSELT 

000157 

HPSMLP 

11^)1} 

MP$BNP 

006330 

MPSETY 

001605 

HP$MRB 

002171 

MPSBRT 

001620 

MPSEVE 

MPSMRO 

001605 

MPSBSA 

002176 

MP$FNC 

001752 

MPSHRP 

006322 

MPSBSD 

002203 

MPSGDT 

002222 

MP$MRT 

WAll 

MPSBSI 

002200 

MPSGNM 

002223 

MPSMRV 

006320 

HPSBSP 

006331 

MPSGRO 

002115 

MPSMSB 

000170 

MPSBUF 

000170 

MPSGRP 

000541 

MP$HVE 

000145 

MPSBUP 

006324 

MPSGTY 

002224 

MP$MVI 

001634 

MPSBUS 

001643 

HPSHAD 

001757 

MPSMVR 

001751 

MPSCAC 

001750 

MP$HBT 

002142 

MPSMWN 

002154 

MPSCAS 

001762 

MPSHDD 

000162 

MPSMXB 

002172 

MPSCAT 

002210 

MPSHTH 

001612 

MPSMXC 

000466 

MPSCCS 

004406 

MPSHWA 

002210 

MPSMXR 

001630 

MP$CHN 

002141 

MPSIAT 

001322 

HPSHXW 

9921^? 

MPSCIR 

000144 

MPSIDE 

000144 

HPSNAA 

006335 

MPSCLK 

002131 

MPSIDP 

006327 

MPSNAC 

001130 

MPSCLN 

002126 

MPSJHO 

000215 

MPSNAP 

006326 

MP$CLT 

002211 

MPSINA 

002177 

MP$NCT 

000240 

MPSCMB 

002142 

MPIIND 

002204 

MPSNET 

002114 

HPSCMK 

000537 

MPSINJ 

002201 

MPSNLI 

000765 

HPSCMX 

002153 

MPSITJ 

000776 

MPSNNA 

000764 

MPSCND 

000310 

MPSLAA 

000231 

MPSNOD 

000500 

MPSCNU 

001753 

HPSLAN 

000234 

HPSNRA 

006334 

MPSCOB 

000311 

MPSLAR 

000202 

MPSNRB 

000214 

MPSCON 

002126 

MPSLAS 

000012 

HPSNSA 

001617 

MPSCOS 

001604 

MPJLBS 

000203 

MPSNTI 

002141 

MPSCPF 

000230 

MPSLCO 

000226 

MPSNUM 

001642 

MPSCPL 

000232 

MPSLCT 

000156 

MPSNVE 

001274 

MPSCPT 

000226 

MPSLHL 

000232 

MP$NXN= 

001476 

MPSCPU 

000161 

MPSLLE 

000227 

MPSOAC 

000632 

HPSCSZ 

001755 

HPSLLO 

004432 

MP$r;.N 

000620 

MPSCUS 

002127 

MPSLMB 

002152 

HP$C  0 

000776 

MPSCVA 

000540 

HPSLMX 

002200 

MPSOi  0 

000214 

HPSDAL 

002570 

MPSLNA 

000144 

MPSOl  ^ 

000764 

HP$DC0= 

001464 

MPSLNO 

000233 

MPSON ) 

002114 

MP$DDT 

002177 

MPSLOA 

000170 

MPSOQl 

001453 

MPSDEL 

001131 

MPSLOG 

004514 

MPSOTI 

000777 

MPSDES 

000156 

MPSLOO 

000620 

HPSOTY 

001022 

MPSDEV 

002114 

HPSLTM 

001613 

MPSOUS 

000777 

MPSDFA 

001320 

MPSLTY 

004533 

MPSOVE 

991§10 

HP$DH0= 

001465 

MPSLWI 

000230 

MPSOUN 

004374 

MPSDIA 

000173 

HPSMAC 

004420 

MPSPAR 

000036 

MPSDLB 

002571 

MPSMAD 

001630 

MPSPAS 

000513 

MPSDLG 

004521 

MPSMAP 

006323 

MPSPCH 

002152 

MP$DLI= 

001466 

MPSMAR 

001635 

MPSPCO 

000024 

HPSDLT 

002200 

MPSMAV 

006321 

MPSPCT 

000144 

HPSDRO 

001441 

MPSMBN 

001636 

HPSPDT 

002114 

HPSDST 

000454 

MPSMBR 

001637 

MPSPHA 

000170 

MPSDTE 

002140 

MPSMBU 

001642 

MPSPHY 

000012 

MP$DTy= 

001452 

MPSMCB 

000156 

MPSPLl 

000025 

HPSDUA 

000207 

MPSMCO 

001632 

MPSPLN 

002140 
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F  13 

CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  6-3 
Context  area 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
001000 
100000 

000400 
000002 
000020 
000040 
000200 
010000 


020000 

020053 
000362 
001004 


Circuits; 

LSSCHN 

= 

1 

;  Set  PVC  chai.iel 

LSSCMB 

= 

2 

;  Set  maximum  data 

LSSCUS 

= 

4 

;  Set  circuit  usage 

LSSDTE 

= 

10 

;  Set  DTE  . 

LSIMXR 

r 

20 

;  Set  maximum  recalls 

LSSMXU 

= 

40 

;  Set  maximum  window 

LSSNUM 

= 

100 

;  Set  DLM  number 

LSSRET 

z 

1^88 

;  Set  recall  timer 

LSSBLK 

= 

;  Set  blocking       ^  . 

LPSNXC 

= 

100000 

;  Circuit  is  a  new  X.25  circuit 

Lines; 

LSSHBT 

= 

400 

;  Set  holdback  timer 

LSSLMB 

= 

LSSCMB 

;  Set  max  block 

LSSMRT 

r 

LSSMXR 

;  Set  max  retransmits 

LSSMWN 

= 

LSSMXW 

;  Set  max  window 

LSSNTI 

=: 

LSSRET 

;  Set  retransmit  timer 

LSSPRO 

= 

10000 

;  Set  line  protocol 

Common: 

LSSLCT 

= 

20000 

;  Set  counter  timer 

Groupings; 

LSSPVC 

- 

lsschn: 

LSSCMB 

LSSDTEILSSMXWILSSLCT 

LSSSVC 

r 

LSSCMB. 

LSSMXR 

LSSMXWILSSNUMILSSRET 

LSSDLM 

= 

LSSSLn;. 

LSSCUS 
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CICHIN  - 
CICHIN  - 

588 
589 
590 
591 
592 
593 
59A 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
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.IF  NDf  R$$11S 

.S8TTL  COSACT  -  LINE  COST  ACTION  ROUTINE 

•*-COSACT-LINE  COST  ACTION  ROUTINE 

THIS  ROUTINE  CHECKS  THAT  THE  LINE  COST  SPECIFIED  IS  WITHIN  RANGE, 
AND  SAVES  IT  IN  THE  CONTEXT  AREA. 


INPUTS: 


.MSGNM 
R1 


=  LINE  COST 

=  POINTER  TO  CONTEXT  AREA 


000170 

000170  116701  OOOOOOG 

00017A  003535 

000176  020127  000031 

000202  003132 

000204  110164  000101 

000210  000552 


OUTPUTS: 

IF  COST  IS  <=  25. 

L$C0S(R4)  =  SAVED  COST 
ELSE,  THE  PARSE  IS  TERMINATED 


COSACT: 


Move 

. MSGNM, R1 

BLE 

PVAERR 

CMP 

R1,#25. 

BGT 

PVAERR 

Move 

R1,L$C0S(R4) 

BR 

PAREND 

GET  COST 

IF  LE,  PARAMETER  VALUE  ERROR 

IS  IT  LEGAL  ? 

IF  GT,  NO  -  VALUE  ERROR 

ELSE,  SAVE  COST 

END  OF  PARAMETER  PARSE 


CICHIN 
LCTAC^ 


CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85 
COUNTER  TIMER  ACTION  ROUTINE 


G  U 

12:1 


0  Page  12 


rnilMTCD     TIMED     ArTTOM     DnilTTUh 
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n? 

938 
939 
940 
941 
942 
943 
944 
945 
94b 
947 
948 
949 

950  000774 

951  000774 

952  001000 

953  001004 

954  001006 

955  001012 

956  001014 

957  001020 

958  001024 

959  001030 

960  001032 

961  001040 


.S8TTL  NUMACT  -  X.25  Circuit  DLM  number  action  routine 

••»  NUMACT  -  X.25  Circuit  DLM  number  action  routine 

INPUTS 

.MSGPT  -  Pointer  to  number 

R4     -  Address  of  context  area 

OUIPUTS 

L$NUM(R4)  -  number  in  BCD 

L$NUML(R4)  -  Number  of  digits  in  DTE  address 


NUMACT: 


016701 
112102 
010264 
010405 
062705 
012700 

103003 
062766 


OOOOOOG 

000236 

000240 
000010 


000002  OOOOOOG 


10$: 


CALL 
MOV 

Move 

MOV 

MOV 

ADD 

MOV 

CALL 

BCC 

ADD 

RETURN 


SSAVAL 

. MSGPT, R1 

(R1)t,R2 

R2,L$NUML(R4) 

R4,R5 

#L$NUM,R5 

*<MXDTEi-1>/2,R0 

PCK8CD 

10$ 

#2,R$PC(SP) 


Save  all  registers 

Point  to  number 

Get  number  of  digits  in  address 

Store  number  of  digits  in  number 

Point  to  context  area 

Point  to  number  in  context  area 

Get  number  of  bytes  required 

Store  DTE  address  in  BCD  format 

BR  if  valid  address 

...  else  reject  the  transition 
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MXRACT  -  X.25  Circuit  maximum  recalls  action  routine 


T  C   /-,•.,- 


nf  t-  1  nr\ 


CICHIN  - 
INDAC  - 

1200 
1201 
1202 
1205 
120A 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
12U 
1215 
1216 
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DYING  INCREMENT  ACTION  ROUTINE 

.S8TTL   INDACT  -  DYING  INCREMENT  ACTION  ROUTINE 


INDACT  -  DYING  INCREMENT  ACTION  ROUTINE 

INPUTS; 

.MSGPT  -  POINTER  TO  1  BYTE  DYING  INCREMENT 
R«     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

L$IND(RA)  -  DYING  INCREMENT  VALUE 


001316 

00-322     110164     000126 

0ri!326 


JNDACT:  CALL    CHKDMP 

M0V8    R1,L$IND(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  DYING  INCREMENT  VALUE 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 

54 

55 


.TITLE 
.IDENT 


ALREIN  -  ALIAS  READ  INFORMATION  INITIALIZE 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 

ONLY   IN  ACCORDANCE  WITH  THE   TERMS  OF   3'JCH  LICENSE  AND  WITH  THE 

INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS  SO'^iJARE  OR 

COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 

OTHER  PERSON.   NO  TITLE  TO  AND  OWNERSHIP  OF   THE 

TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


ANY  OTHER 
AiJE  AVAILABLE  TO  ANY 
SOFTWARE   IS  HEREBY 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


OF   ITS 


MODULE  DESCRIPTION: 
NETWORK  MANAGEMENT 


ALIAS  READ  INFORMATION  INITIALIZE  ROUTINE 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Pliis  V3.0 
DECnet-Micro/RSX  VI. 0 


4.03 


17-0CT-84  RJK 

Change  Symbols  for  Vectoring  Comm  Exec 


H  1 

ALREIN  -  ALIAS  READ  INFORMATION  MACRO  V05..03b  Saturday  29-Jun-85  12:05  Page  5 
MACRO  CALLS  AND  LOCAL  DATA 
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ALREIN     CREATED  BV  MACRO  ON  29-JUN-85  AT  12:05 
MACRO  CROSS  REFERENCE 


G  2 

PAGE  2 

CREF   0^.00 


MACRO  NAME 

REFERENCES 

ALRCXS 

#5-62 

5-69 

ANBDFi 

#5-61 

5-64 

CALL 

6-118 

6-125 

DHBDFS 

#5-62 

5-67 

HDRDFS 

#5-62 

5-66 

lANDFS 

#5-61 

5-65 

»1AP 

#5-61 

RESMAP 

#5-61 

7-23", 

RETURN 

6-168 

7-23^ 

SAVMAP 

#5-61 

7-205 

SWSTKS 

#5-61 

7-204 

6-136 


8-277 


7-204 


9-318 


7-213 


7-215 


7-222 


7-230 


9-304 


•♦FILE«*ID**ALRE0P 


H  2 


G  3 

ALREOP  -  ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  12:06 
Symbol  table 


Page  10-1 


AF.INI= 

000001 

D$NN 

000060 

K$$CNT= 

177546 

MCSMBY 

001752 

HCSXMC 

002305 

AF .OVR= 

000002 

DSOUTT 

000043 

K$$CSR= 

177546 

MCSMPX 

004406 

MCSXHS 

002304 

AL  "FOP 

000060RG 

OSRETF 

000050 

K$$LDC= 

000000 

MCSNAP 

001604 

MCSXNR 

002332 

A"   I 

000012 

D$RNN 

000002 

K$$TPS= 

000074 

MCSNBR 

99111? 

HCSXRC 

002316 

AtbJf 

000006 

DSRTMR 

000076 

LCSEXT 

000000 

MCSNBS 

001131 

MCSXRR 

002331 

A$FLG 

V  V  \^  W  W  ^h/ 

000000 

DSSEG 

000036 

LC$I^IT 

000001 

MCINCR 

001154 

MCSXRS 

99^^^^ 

ASLEN 

000024 

DSSER 

000032 

LDSLP  = 

000000 

MCSNCS 

001155 

MC$020 

000002 

ASNEX 

000022 

DSSQRL 

000052 

L$$ASG= 

000000 

MCSNHL 

001274 

MDSCI 

000007 

ASNUM 

000010 

0$$BUG= 

177514 

L$$DRV= 

000000 

MC$NHR 

001142 

HDSCNA 

000003 

ASOPT 

V  \^  V  V  ■  V 

000002 

D$$ISK= 

000000 

L$$P11= 

000001 

MCSNMS 

001143 

HDSCOU 

000001 

A$PAR 

000004 

D$$L11= 

000001 

LS$11R= 

000000 

MCSNNO 

001606 

MDSDA 

000010 

ASSAV 

000024 

D$$YNC= 

000000 

MAXACC= 

000020 

MCSNNU 

001605 

MDSDL 

000004 

ASSCO 

000020 

D$$YNH= 

000000 

MAXID  = 

000020 

MCSNOP 

001607 

MDSDLV 

000020 

ASTYP 

oooon 

E$$XPR= 

000000 

HAXPAS= 

000010 

MCSNOR 

000000 

MLSDMC 

000014 

A$$CHK= 

000000 

FINDA 

000640R 

MBSDIS 

000001 

MCSNPF 

001616 

MDSDMF 

000046 

A$$CPS= 

000000 

FMTDES 

000446R 

MBSENA 

000000 

HCSNPR 

001630 

MDSDMP 

000022 

A$$PRI= 

000000 

FMTNAM 

000306R 

MBIFUL 

000002 

MCSNRE 

001200 

HDSDHR 

000050 

A$STRP= 

000000 

FMTSCO 

000354R 

MBtMlX 

000002 

MCSNRT 

001166 

MDSDMV 

000042 

A.ACC 

000020 

F$$LVL= 

000001 

MBSONE 

000001 

HCSNVR 

001642 

MDSDN 

000016 

A.LNK 

000000 

G$ITPP= 

000000 

MBSRXO 

000001 

MC$P08 

000000 

MDSDP 

000000 

A.NAM 

000002 

6$$TSS= 

000000 

MBSTXO 

000000 

MCSPII 

000001 

MDSDPV 

000044 

A.  PUD 

C00010 

G$$TTK= 

000000 

MBSZER 

000000 

MCSRFL 

002046 

MDSDO 

000006 

A. REM 

000012 

G$$URD= 

000000 

MC$BA8 

006073 

MCSSBU 

002051 

MDSDTE 

000024 

A.UCB 

000010 

H.CSP 

000000 

MCSBID 

001765 

MCSSFL 

002044 

MDSDU 

000002 

CEACC  = 

******  GX 

H.CUIC 

000010 

MCSBMC 

001767 

MCSSYC 

000012 

MDSDUP 

000012 

C$$CKP= 

000000 

H.DSW 

000046 

MCSBSC 

001766 

MCSSYL 

000036 

MD$DV 

000026 

C$$ORE= 

000400 

H.DUIC 

000012 

MCSCAC 

001442 

MCSSYR 

000050 

HD$DZ 

000030 

C$$RSH= 

177564 

H.EFLM 

000004 

MCSCAP 

001440 

MCf'^YS 

000024 

MDSFUL 

000000 

DECPT  = 

*♦»**»  GX 

H.EFSV 

000040 

MCSCCL 

001445 

MC$5YZ 

000000 

MDSHAL 

000001 

DSAMXC 

000072 

H.FCS 

000050 

MCSCDC 

002045 

mlstbr 

001140 

MDSHEL 

000002 

DSAMXH 

000074 

H.FORT 

000052 

HCSCDP 

001441 

MCSTBS 

001141 

MDSKCP 

000013 

D$ANN 

000000 

H.FPSA 

000042 

MCSCJF 

001465 

MCSTDR 

002053 

HUSKDP 

000034 

DSBRPR 

000102 

H.FPSL= 

000062 

HCSCLD 

001464 

MCSTIM 

999S22 

MDSKDZ 

9999^6 

DSBRTM 

000100 

H.FPVA 

000034 

MCSCOU 

100000 

MCSTYP 

007777 

MDSKL 

000040 

DSDELF 

000045 

H.GARD 

000072 

MCSCTL 

001454 

MCSUBU 

002052 

HDSKMX 

000054 

DSDELW 

000046 

H.HDLN 

000002 

MCSCTR 

001452 

MCSUFD 

99??^? 

MDSKMY 

9999^^ 

D$END  = 

000104 

H.IPC 

000016 

MCSCTS 

001453 

MCSUHR 

001132 

HDSLEN 

000050 

DSFNB 

000034 

H.IPS 

000014 

MCSDOV 

002050 

MCSUMS 

001133 

MDSPCL 

000011 

DSHIOR 

000024 

H.ISP 

000020 

MCSLBR 

001750 

MCSVAX 

000003 

;na 

000005 

DSHOST 

000022 

H.LUN 

000076 

MCSLBS 

001751 

MCSWID 

060000 

^fUNA 

000001 

DSINAC 

000044 

H.NLUN 

000074 

MCSLDI 

001774 

MCSWIH 

040000 

MDSUIT 

000002 

DSINCT 

000042 

H.NML 

000061 

MCSLDO 

001775 

MCSUIL 

9?9999 

MD.ABO 

999911 

DSIPL 

000051 

H.ODVA 

000022 

MCSLDR 

001762 

MC$W08 

020000 

MD.ACC 

000010 

D$LID 

000020 

H.ODVL 

000024 

MCSLDS 

001763 

MC$U16 

040000 

MD.AOB 

000016 

OILNAM 

000006 

H.OVLY 

000054 

MCSLLB 

002021 

MC$U32 

9§?299 

MD.BOB 

000011 

OSLNUM 

000014 

H.PFVA 

000032 

MC$LLP 

002115 

MCSXBR 

001750 

MD.DIA 

000007 

DSL  ST 

000047 

H.RCVA 

000036 

MCSLLR 

002007 

MCSXBS 

001751 

MD.DOB 

000015 

DSMAXC 

000064 

H.RRVA 

000062 

HCSLOO 

000001 

MCSXCJ 

999^22 

MD.DUH 

000002 

DSHAXH 

000066 

H.SPRI 

000060 

MCSLRB 

002020 

MCSXCR 

002260 

MD.FAI 

99991^ 

DSMAXV 

000070 

H.TKVA 

000026 

MCSLRP 

002114 

MCSXCS 

002261 

MD.FNA 

000001 

DSMLL 

000040 

H.TKVL 

000030 

MCSLRR 

002006 

MCSXDR 

99^^62 

MP. FOB 

000006 

DSMNOD 

000041 

H.VEXT 

000056 

MCSLSI 

002032 

MCSXDS 

001763 

MD.LOA 

999091 

D$NA 

000062 

H.UND 

000044 

MCSLST 

002033 

MCSXFR 

002272 

MD.L5H 

000020 

DSNBEA 

000056 

H.X25 

000064 

MCSLUP 

006072 

MCSXFS 

WiiU 

MD.NOB 

000012 

DSNBRA 

000054 

I$$RAfi= 

000000 

MCSMAP 

010000 

MCSXLJ 

000323 

MD.NON 

177777 

D$NEND= 

000054 

I$$RDN= 

000000 

MCSMBL 

001764 

MCSXLR 

002330 

HD.PER 

999999 

D$MN 

000C30 

KISAR6= 

**♦*»»  GX 

MCSMBX 

004420 

MCSXMA 

000310 

MP. RES 

000004 
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1  "77-77C 


MPti  Mu     nn?i5? 
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187 

188 

189 

190 

191 

192 

193 

19A 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20A 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

221 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23« 

235 

236 

237 

238 

239 

240 

241 

242 

243 


000252 


000252  012701     000144 

000256  010164     000004 

000262 

000266  103516 


000270  005064  000020 
000274  005302 


000276  002512 


000300  112305 


.SBTTL  CHKSCO  -  CHECK  SCOPE  PARAMETER 

'**-CHKSCO-CHECK  SCOPE  PARAMETER 

THIS  ROUTINE  CHECKS  THAT  THE  FIRST  PARAMETER  IS  THE  "SCOPE" 
OF  THE  OPERATION,  AND  IF  VALID,  FORMATS  AND  SAVES  THE  SCOPE  IN 
THE  CONTEXT  AREA. 

INPUTS: 

R2  =  LENGTH  OF  DATA  IN  INPUT  BUFFER 
R3  =  ADDRESS  OF  INPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

R2  =  LENGTH  OF  REMAINING  DATA  INPUT  BUFFER 

R3  =  POINTER  TO  REMAINING  DATA  IN  INPUT  BUFFER 

C-8IT  ERROR  INDICATOR 

IF  CLEAR,  A$AC0(R4)  =  SAVED  SCOPE,  AS  0  (GLOBAL)  OR  TERMINAL  UCB 
IF  SET,  ERROR  RETURN  IN  RO,  SCOPE  PARAMETER  SET  IN  A$PAR 

RtGISTERS: 

R4  IS  PRESERVED 


CHKSCO:: 

CHECK  PARAMETER  TVPE 


MOV 
MOV 
CALL 
BCS 


#HP$SC0,R1 
R1,A$PAR(R4) 
CHKPAR 
40$ 


CHECK  SCOPE  TYPE 


CLR 
DEC 


A$SC0(R4) 
R2 


SET  PARAMETER  TYPE  TO  CHECK  FOR 
CURRENT  PARAMETER  =  SCOPE 
CHECK  FOR  THE  SCOPE  PARAMETER 
IF  CS,  ERROR  -  RETURN 


ASSUME  SCOPE  IS  GLOBAL 

SUB  SCOPE  TYPE  FROM  BUFFER  COUNT 


.IF  NDF  R$$PRO 


PRO/DECNET 


000302  001510 


BLT  40$ 

.IFF  ;  NDF  R$$PRO 

BLT  30$ 

.ENDC  ;  NDF  R$$PRO 

M0V8  (R3)t,R5 

.IF  NDF  R$$PRO  ;  PRO/DECNET 

BEO  40$ 

.IFF  ;  NDF  R$$PR0 

BEQ  30$ 


IF  LT,  SCOPE  UAS  GLOBAL 


IF  LT,  SCOPE  WAS  GLOBAL-ERROR 


;  ELSE,  GET  TYPE  INDICATOR 


IF  EQ,  GLOBAL 


IF  EQ,  GLOBAL  -  ERROR 
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1 
2 
3 
U 
5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
A1 
42 
43 
44 
45 
46 
47 


.TITLE  ARREIN  -  AREA  READ  INFORMATION  INITIALIZE 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1983,  1984,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  HAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  AREA  READ  INFORMATION  INITIALIZE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  25-MAR-83      Daue  Rachli's 
INITIAL  CREATION. 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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A25 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 

439  001416 

440  001416 

441  001422 

442  001424 

443  001430 

444  001434 

445  001440 

446  001442 
447 

448 
449 

450  001462 

451  001466 

452  001470 
453 

454  001472 

455  001474 

456  001500 
457 

458  001502 

459  001506 

460  001512 

461  001514 

462  001516 

463  001520 

464  001522 

465  001526 
466 

467 
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.SBTTL  NODNAM  -  FIND  AND  FORMAT  NODE  NAME 
I- 
♦*♦  -  NODNAM  -  FIND  AND  FORMAT  NODE  NAME 

INPUTS: 

Rl  =  NODE  ADDRESS  OR  CHANNEL  # 
R3  =  OUTPUT  BUFFER  ADDRESS 

OUTPUTS: 

R3  =  NEXT  BYTE  IN  OUTPUT  BUFFER 
RO  =  DESTROYED 


NODNAM: 


010400 

062700  000020 

017702  OOOOOOG 

026201  000014 

001014 

062702  000006 

000006 


162700  000006 

010002 

000404 

010002 

103406 

062702  000006 
124227  000040 


001775 
005202 
160002 
110240 


000001 


5$: 


7$: 
10$: 


20$: 


SAVR6 

MOV 

ADD 

MOV 

CMP 

BNE 

ADD 

.REPT 

MOVB 

.ENDR 

SUB 

MOV 

BR 

MOV 

CALL 

BCS 

ADD 

CMP6 

BEQ 

INC 

SUB 

MOVB 

RESRG 

RETURN 

.END 


<R1,R2> 

R4,R0 

#A$NAM,RO 

aDECPT,R2 

D$LNUM(R2),R1 

5$ 

#D$LNAM,R2 

6 

(R2)+,(R0)+ 

*6,R0 
R0,R2 
7$ 

R0,R2 

MAPADD 

20$ 

#6,R2 

-(fi2),#' 

10$ 

R2 

R0,R2 

R2,-(R0) 

<R2,R1> 


SAVE  REGISTERS 

POINT  TO  NODE  NAME  BUFFER 

POINT  TO  DECNET  HOMEBLOCK 

REMOTE  NODE  ? 

IF  NE,  YES 

POINT  TO  EXECUTOR  NODE  NAME 

;  MOVE  IT  INTO  SCRATCH  BUFFER 

POINT  TO  START  OF  STRING 

AGAIN 

JOIN  COMMON  CODE 

COPY  POINTER  TO  BUFFER 
TRY  TO  FIND  NODE  NAME 
IF  CS,  NO  NODE  NAME 

POINT  TO  END  OF  NODE  NAME 
REMOVE  SPACES  AT  END  OF  NAME 

POINT  PAST  END  OF  NAME 
CALCULATE  LENGTH  OF  NAME 
STORE  NODE  NAME  LENGTH 
RESTORE  R2 


RJK03 
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^.7 
A8 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 

74  000000 

75  000000 

76  000000 
77 

78       000006 

79 

80       000002 

81 

82 

83 

84 

85  000000 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 

LIBRARY  MACRO  CALLS 

.M'^ALL  MANDF$,RNBDF$,SAVMAP,RESMAP,MAP,SAVRG,RESRG,ADJDF$ 
.MCALL  ECDDB$,CTRDF$,PDVDF$,BIAS,ALUN$S,HDRDF$,XPTDF$,XPDDB$ 
.HCALL  IMSG$,DHBDF$,NORCX$,CIRCX$,SERDF$,CEACCt 


LOCAL  MACROS 

.MACRO 

MAPECL 

JSR 

R2,MAPECL 

.ENDM 

.MACRO 

MAPXPT 

JSR 

R2,MAPXPT 

.ENDM 

MANDFS 

RNBDFS 

CTRDFS 

PDVDFS 

ECDDBS 

HDRDFS 

XPDDBS 

XPTDFS 

ADJDFS 

DHBDfS 

SERDFS 

MAXLEN 

=  6 

OFFSET 

=  2 

0000i2 

OOOOCn 
GOOOOi 
000004 
000006 
000010 
000012 
000014 
000015 
000016 
000017 
000020 
000026 
000030 


CONTEXT  AREA  OFFSET  DEFINITIONS 

NORCXS  LIST 
CONTEXT  AREA  OFFSET  DEFINITIONS 


000000 


NSFLAG: 

NSOPT 

N$ADD 

N$UCB 

NSECL 

N$XPT 

N$CHN 

N$PLU 

N$QCH 

NSNLEN: 

N$NAM : 

N$NSP: 

NSLFLG: 


.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.8LKB 

.BLK8 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 


DEFINE  NETWORK  MANAGEMENT  FLAGS 

DEFINE  REMOTE  BLOCK  FORMAT 

DEFINE  COUNTER  TABLES 

DEFINE  PDV  OFFSETS 

DEFINE  ECL  DATABASE  OFFSETS 

DEFINE  TASK  HEADER  OFFSETS 

DEFINE  XPT  DATABASE  OFFSETS 

DEFINE  XPT  OFFSETS 

DEFINE  ADJACENCY  OFFSETS 

DEFINE  DEC  HOME  BLOCK 

DEFINE  SERVICE  BLOCK  OFFSETS 

MAXIMUM  LENGTH  OF  NODE  NAME 

OFFSET  TO  SAVED  REGISTERS 


FLAGS  WORD 

OPTIONS  WORD 

NODE  ADDRESS  OR  TYPE 

NS:  UCB  ADDRESS 

ECL'S  PDV  ADDRESS 

XPT'S  PDV  ADDRESS 

CHANNEL  NUMBER 

PLURAL  INFO  TYPE 

QUALIFIER  CHANNEL  NUMBER 

NODE  NAME  LENGTH  (ASCII  IMAGE) 

NODE  NAME  BUFFER 

FOR  EXEC  ADDRESS 

LIST  FLAG  WORD 
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A28 
A29 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 

440  001200 

441  001200 

442  001204 

443  001206 
444 

445  001212 

446  001214 

447  001216 

448  001226 

449  001232 

450  001236 

451  001240 

452  001244 

453  001250 

454  001252 

455  001256 
456 

457  001260 


.SBTTL  SAVSER  -  SAVE  SERVICE  NODE  ADDRESS 
♦»  SAVSER  -  SAVE  SERVICE  NODE  ADDRESSES 
INPUTS:       NONE. 
OUTPUT: 


REGISTERS: 


ALL  NODE  ADDRESSES  IN  THER  SERVICE 
DATABASE  ARE  SAVED  IN  THE  CONTEXT  AREA. 

RO  AND  R1  ARE  DESTROYED. 


017700  0000006 

001425 

062700  000032 

011000 
001421 

016001  000004 

020164  000042 

101402 

010164  000042 

020164  000046 

101760 

000755 


SAVSER: 


10$: 


15$: 


20$: 


MOV 
BEQ 
ADD 

MOV 

BEQ 

CEACC$ 

MOV 

CMP 

BLOS 

MOV 

CMP 

BLOS 

CALL 

BR 

RETURN 


aOECPT.RO 

20$ 

#D$SER,RO 

(RO),RO 

20$ 

RO 

S.ADDCR0),R1 

R1,N$HSER(R4) 

15i 

R1,N$HSER(R4) 

R1,N$HLCX(R4) 

lOi 

SAVCTX 

10$ 


POINT  TO  DECNET  HOMEBLOCK    ;  RJK03 

IF  EQ,  NOT  SET  UP 

POINT  TO  ADDRESS  OF  FIRST  BLOCK 

GET  UNMAPPED  ADDRESS 

IF  EQ,  END  OF  LIST 

MAP  IT 

PICK  UP  NODE  ADDRESS 

IS  ADDRESS  HIGHER  THAN  SERVICE  HIGHEST 

IF  LOS,  NO  -  BRANCH 

ELSE  SET  HIGHEST  SERVICE  TO  CURRENT  ADDRESS 

IS  ADDRESS  HIGHER  THAN  LAST  CONTEXT  HIGHEST 

IF  LOS,  NO  -  RETURN 

SAVE  IT 

CONTINUE 
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CREF       0^.00 


REFERENCES 


SF.SEC 

=  000400 

#5-76 

SF.TER 

=  001000 

#5-76 

S.ADD 

OOOOOA 

#5-76 

S.CIR 

000016 

#5-76 

S.DEV 

000020 

#5-76 

S.DIA 

0O00A6 

#5-76 

S.DPA 

00C032 

#5-76 

S.DPC 

000036 

#5-76 

S.DUM 

000050 

#5-76 

S.FLAG 

000002 

#5-76 

S.HAD 

000010 

#5-76 

S.HST 

000006 

#5-76 

S.LENG 

000052 

#5-76 

S.LNK 

000000 

#5-76 

S.LOA 

0000A4 

#5-76 

S.PSS 

000022 

#5-76 

S.SEC 

OOOOAO 

#5-76 

S.TER 

0OO0A2 

#5-76 

TSFLAG 

0000A4 

#5-68 

TSLIF 

000013 

#5-68 

TSLIFL 

000013 

#5-68 

TtLIFO 

000013 

#5-68 

TSLIFS 

000013 

#5-68 

TSLIN 

000000 

#5-68 

TSLIPS 

000006 

#5-68 

T$LLD 

000012 

#5-68 

TSLLDC 

000045 

#5-68 

TSLLDL 

000012 

#5-68 

TSLLDO 

000012 

#5-68 

TSLLDS 

000012 

#5-68 

TSLLEN 

000046 

#5-68 

TSLOPR 

000002 

#5-68 

TSLTCL 

000024 

#5-68 

TSLTIM 

000026 

#5-68 

TSLTPR 

000014 

#5-68 

TSLTPS 

000020 

#5-68 

TSNAPL 

000004 

#5-68 

T$NFE 

000000 

#5-68 

TSNLEN 

000010 

#5-68 

TSNNUL 

000002 

#5-68 

TSNOPL 

000006 

#5-68 

TSNRNI 

000042 

#5-68 

TSNRPL 

000005 

#5-68 

TSNRUL 

000007 

#5-68 

T$NVR 

000001 

#5-68 

TSRPRI 

000040 

#5-68 

T$SVC 

000034 

#5-68 

T$T5 

000030 

#5-68 

T$T6 

000032 

#5-68 

X$$MCB 

-  *♦**♦« 

5-69 

ZF.COU 

=  001000 

#5-69 

ZF.DDM 

=  000001 

#5-69 

15-448 


5-69 
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MPSPLO 

000012 

MP$STA 

*IP$PMC 

004374 

MPtSTl 

«IP$PNT 

002126 

MPSSTT 

^IPSPRI 

004411 

MPSSTY 

MPSPRO 

002130 

MPJSUB 

UPSPSS 

001763 

MPSSUR 

MPtPST 

001762 

MPSSUS 

MPtRET 

001631 

MPtSVR 

MPSRFA 

001323 

HPSSWI 

MPtRhX 

002201 

MPSSYP 

MPSRPA 

004374 

HPSTFL 

MPSRPR 

001606 

MP$TH1 

MPSRRT 

002213 

MP$TH2 

MPSRST 

002212 

MP$TH3 

MPSRSV 

001754 

MPSTLN 

MPSRSZ 

001756 

MPSTLO 

MPSRTI 

001616 

MPSTPA 

MPtRTM 

001611 

MPSTRI 

MPSRVE 

001604 

MPSTST 

MPSRVT 

000156 

MPSTYP 

MPSSAC 

000514 

MPSUCS 

MPSSAD 

000543 

MPSUSR 

MPSSCA 

000310 

MPSVEC 

MPSSCO 

000144 

MPSVER 

MPSSCT 

002176 

MPSWDF 

MPSSDU 

000203 

MPSWMX 

MPSSDV 

000160 

MPSXMT 

MPSSEH 

004401 

MPSXPF 

MPSSER 

000144 

MPSXPL 

MPSSET 

000000 

MPSXPT 

MPSSGZ 

001644 

MPSXXX 

MPSSID 

000176 

MP$5ST 

MPSSIN 

000310 

MSSACT 

MPSSLI 

000156 

MSSADU 

MPSSLO 

000171 

MSSALO 

MPISMX 

002202 

MSIASE 

HPSSND 

000500 

MSSATR 

MPSSNP 

006332 

MSSAUT 

MPSSNU 

000542 

MSSCLE 

MPSSOB 

000524 

MSSDED 

MPSSPA 

000157 

MSSDIE 

MPSSPR 

000536 

MSSDUM 

MPSSPS 

000513 

MSSFAI 

.   ABS.      000124 
000054 
Errors   detected: 


000 
001 
0 


000000 

MSSGLO 

000000 

MTSNLE 

002140 

MSSHOL 

000002 

MT$NON 

002201 

MSSINA 

000002 

MT$NR4 

000175 
000001 

MSSLOA 

000003 

MT$NTY 

HSSLOO 

HTSOCT 

000156 

HSSOFF 

000001 

MTSPHA 

000512 

MS$ON 

000000 

MTSPOI 

000163 

MSSPRO 

000006 

MT$QP2 

002260 

MSSREA 

000004 

MTSROU 

002424 

MSSREF 

000001 

MT$R04 

000156 

MSIRES 

000003 

MTSSEC 

002206 

MSSRST 

000001 

MTSSGD 

"02205 

MSSRSX 

000002 

MTSSYS 

O02202 

MS$RT 

000005 

MTSTER 

000202 

MSSSER 

000002 

MT$TRJ 

000172 

MSSSHU 

000002 

HTSTYP 

004375 

HSSSRV 

000007 

MTSUSD 

002164 

MSSSTA 

000000 

MT$X25 

000144 

MSSSYN 

000012 

MU$INC 

002130 

H5$TER 

000001 

MU$OUT 

004407 

MSSTOP 

000003 

MUSPER 

001750 

HS$TR] 

000005 

MV$ni 

004410 

MSSUNR 

000005 

MVSIV 

004406 

MSSVMS 

000004 

MXSACT 

002165 

MS. DON 

177600 

MXSCIR 

002177 

MS.MOR 

000002 

HXSCLN 

002166 

MS. PAR 

000003 

MX$CNM 

000242 

MS. sue 

000001 

MXSCON 

000244 

MT$AR4 

000003 

MXSDAC 

000240 

MTSASC 

000100 

MXSDTE 

M7777 

MTSBIL 

00000- 

MXSFIL 

Wi^i^Ob 

MTSBYS 

oooor 

HXSLGC 

000001 

MT$CJ 

000007 

MXSLIN 

000010 

MTSCLE 

000077 

HXSLON 

000007 

MTSCOD 

000200 

MXSNMS 

000006 

MTSCON 

000001 

MXJNOD 

000011 

MTSDMC 

000004 

MXSOBJ 

000000 

MTSETH 

000006 

MXSOUN 

000003 

MTSHEX 

000040 

MXSPAR 

000004 

MTSLPB 

000005 

MXSPAS 

000003 

MTSMAX 

000037 

MXSRAC 

000004 

MT$MUL 

000100 

HX$RID 

000013 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


*»♦  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


201 

135 

27040  Words   (  106  Pages) 

17608  Words  (  67  Pages) 

RSX-IIM/PLUS 


Elapsed  time:  00:00:22.55 


000017 
000001 
000005 
Q00060 
000065 
000002 
000000 

000010 

000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
000040 
000036 
000010 
000047 
000047 


MXSRPS 

MXSSID 

MXSSNK 

MXSTYP 

MX$UID 

M$$CRB= 

M$$CRX= 

M»$FCS= 

H$$MGE= 

M$$NET= 

M$$OVR= 

NM.CLN 

NM.INI 

NM.OPR 

NM.VR2 

NM.VR3 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PRSLIN= 

P$$P45=: 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANM 

SFSDNM 

S$$URG= 

S$$YSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$$$SYS= 

$$$SYX=: 


000047 

000040 

000377 

000077 

000020 

000124 

000000 

000000 

000000 

000000 

000000 

003400 

002400 

003000 

002401 

002402 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

*«*♦*«  GX 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000001 

000002 

000000 

007600 

000000 

000000 

001000 

000000 

004374 

000000 
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Local.  Symbols 

74  .SBTTL  Local  Symbols 

76  007777  MAXCHN  =  4095.              ;  Maximum  PVC  channel  number 

77  000017  MXDTE  =  15.               ;  Max  length  of  DTE  address 
78 
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SET  CIRCUIT  PARSE  TABLE 


CICHIN  - 
rCTAC  - 

615 
616 
617 
618 
619 
620 
621 
622 
625 
62A 
625 
626 
627 
628 
629 
630 
651 
652 
655 
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COUNTER  TIMER  ACTION  ROUTINE 

.SBTTL  LCTACT  -  COUNTER  TIMER  ACTION  ROUTINt 


LCTACT  -  SET  COUNTER  TIMER  ACTION  ROUTINE 

THIS  ROUTINE  STORES  THE  SPECIFIED  COUNTER  TIMER 

INPUTS: 

.MSGPT  -  POINTER  TO  COUNTER  TIMER 
RA  -  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

LILCT(R4)  -  COUNTER  TIMER  VALUE 


000212  016701  OOOOOOG 

000216  11216A  000224 

000222  111164  000225 
000226 


LCTACT:  MOV  . MSGPT, R1 

MOVB  (R1)t,L$LCT(R4) 

M0V8  (R1),L$LCTt1(R4) 
RETURN 


POINT  TO  COUNTER  TIMER  VALUE 
STORE  LOW  BYTE  OF  COUNTER  TIMER 
STORE  COUNTER  TIMER  VALUE 
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MXRAC  -  X.25  Circuit  maximum  recalls  action  routine 
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963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 

975  001042 

976  001042  016701  OOOOOOG 

977  001046  112164  000253 

978  001052 


.SBTTL  MXRACT  -  X.25  Circuit  maximum  recalls  action  routine 

*♦*  MXRACT  -  X.25  Circuit  maximum  recalls  action  routine 

INPUTS  .  .       ,, 

.MSGPT  -  Pointer  to  maximum  recalls  parameter  value 
R4     -  Pointer  to  context  area 

OUTPUTS 

L$MXR(R4)  Contains  maximum  recalls  parameter 


MXRACT: 


MOV     . MSGPT, R1 

MOVB    (R1)+,L$MXR(R4) 

RETURN 


;  Get  pointer  to  data 
;  Get  data 
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MXWACT  -  X.25  Circuit  maximum  window  action  routine 
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INIACt  -  INACTIVE  INCREMENT  ACTION  ROUTINE 


1218 

1519 

1220 

1221 

1222 

1223 

122^^ 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1252  001550 

1233  00155'i  11016A  000127 

1254  001 5^.0 


.SBTTL   INIACT  -  INACTIVE  INCREMENT  ACTION  ROUTINE 

INIACT  -  INACTIVE  INCREMENT  ACTION  ROUTINE 

INPUTS. 

.MSGPT  -  POINTER  TO  1  BYTE  INACTIVE  INCREMENT 
R4     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

L$INI(R4)  -  INACTIVE  INCREMENT  VALUE 


INIACT:  CALL    CHKDMP 

Move    R1,L$INI(R4) 
RETURN 


CHECK  FOR  DMP 

SAVE  INACTIVE  INCREMENT  VALUE 
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DEAD  THRESHOLD  ACTION  ROUTINE 


H  1 

ALREIN  -  ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  12:05 
MACRO  CALLS  AND  LOCAL  DATA 


Page  5 


57 
58 
59 
60 
61 
62 
63 
6^  000000 

65  000000 

66  000000 

67  000000 
68 

69  000000 


000020 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 


.MCALL 
.MCALL 

ANBDFS 
MANDFS 
HDRDFS 
DHBDFS 


ANBDFS, MANDFS, SWSTKS.SAVMAP, MAP, RESMAP 
HDRDFS, ALRCXS, DHBDFS 


000020 
000010 
000020 

000000 


000000 
000002 
000004 
000006 
000010 
000011 
000012 
000020 


000022 
000024 
000024 
000000 


ALRCXS  LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 

MAXID=16. 

MAXPAS=8. 

MAXACC=16. 

.ASECT 

.=0 

OFFSETS  IN  COMMON  WITH  CHANGE  INFORMATION  MODULES 


DEFINE  ALIAS  NAME  BLOCK  OFFSETS 
DEFINE  NETWORK  MANAGEMENT  SYMBOLS 
DEFINE  TASK  HEADER  OFFSETS 
DEFINl  DEC  HOME  BLOCK  OFFSETS 

DEFINE  CONTEXT  AREA  OFFSETS 


MAXIMUM  LENGTH  OF  USER  ID 
MAXIMUM  LENGTH  OF  PASSWORD 
MAXIMUM  LENGTH  OF  ACCOUNT 


ASFLG 
ASOPT 
ASPAR 
ASBUF 
ASNUM 
ASTYP 
ASALI 
ASSCO 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKW 


FLAG  WORD 

SAVED  OPTIONS  WORD 

CURRENT  PARAMETER  TYPE 

SAVED  POINTER  TO  BUFFER 

NUMBER  OF  BYTES  IN  ANB  (FOR  SET) 

ALIAS  FORMAT  TYPE 

ALIAS  NAME,  SPACE  FILLED 

SCOPE  OF  ALIAS 


OFFSETS  UNIQUE  TO  READ  INFORMATION  PARAMETERS  MODULES 


ASNEX 
ASLEN 
ASSAV 


.BLKW   1 


.PSECT 


70 


000001 
CO0002 


FLAGS  WORD  BIT  DEFINITIONS 

AF.INI=1 
AF.0VR=2 


POINTER  TO  NEXT  ALIAS  TO  BE  DISPLAYED 
LENGTH  OF  CONTEXT  AREA 
SAVE  AREA  FOR  NAMES 


SUCCESSFUL  INITIALIZATION  COMPLETED 
CONTEXT  AREA  OVERFLOWED 
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Symbol 

table 

MD.ROB 

000005 

MFSALL 

177775 

MOSSET 

000000 

MPSCUS 

002127 

MPSLMB 

002152 

MD.RSH 

000013 

MFSBYE 

000300 

MOSSTA 

000020 

MPSCVA 

000540 

MPSLMX 

002200 

*ID.SDU 

000005 

MFSCHA 

000023 

HOJSUM 

000000 

MPSDAL 

002570 

MPSLNA 

000144 

MD.SLO 

000003 

MFSDUM 

000020 

MOSTSK 

000000 

HP$DC0= 

29I,^§^ 

HPSLNO 

000233 

MD.SNA 

000000 

MFSEVT 

000001 

MO$VOL 

000000 

MPSDDT 

002177 

HPSLOA 

000170 

MD.TLO 

OOOOOA 

HFSFUP 

000264 

M0$2ER 

000000 

MPSDEL 

001131 

MPSLOG 

004514 

HD.UNA 

000002 

MFSKNO 

\mii 

MPSACB 

000012 

HPSDES 

000156 

MPSLOO 

000620 

MD.UNR 

000003 

MFSLOA 

000017 

HPSACC 

000514 

MPSDEV 

WWi 

MPSLTM 

001613 

MO.UOB 

000007 

MFSLOO 

177775 

MPSACT 

004526 

MPSDFA 

001320 

MPSLTY 

004533 

MD.VOL 

000006 

HFSREA 

000024 

MPSADD 

000766 

MP$DHO= 

001465 

HPSLWI 

000230 

ME  SAL  I 

000010 

MFSSIG 

177773 

MPSADJ 

001440 

MPSDIA 

000173 

HPSMAC 

004420 

HE$AL2 

000003 

HFSSPF 

000302 

MPSADP 

006325 

MPSDLB 

502571 

MPSMAD 

001630 

MESARE 

000005 

MFSSYS 

000026 

MPSADS 

004406 

HPSDLG 

004521 

MPSMAP 

006323 

MESCIR 

000003 

MFSTES 

000022 

MPSALB 

000036 

MP$DLI= 

001466 

HPSMAR 

001635 

MESEXA 

000000 

MFSTRA 

000301 

MPSAMC 

001640 

MPSDLT 

002200 

MPSMAV 

006321 

HE$EXE 

000200 

MFSTRl 

000021 

MPSAHH 

001641 

MPSDRO 

001441 

MPSMBN 

001636 

MESLIN 

000001 

MFSZER 

000025 

HPSANB 

004420 

MPSDST 

000454 

MPSHBR 

001637 

MESLOG 

000002 

MLSALL 

100000 

MPSASB 

000024 

MPSDTE 

002140 

MPSMBU 

001642 

MESMOD 

000004 

MLSCLS 

000000 

HPSASC 

004432 

MP$DTY= 

oo^iSi 

MPSMCB 

000156 

MESNOD 

000000 

MLSCON 

000001 

MPSAUS 

000512 

MPSDUA 

000207 

MPSMCO 

001632 

HESNON 

177777 

MLSEXT 

000001 

MPSBBT 

002165 

MPSDUC 

000210 

MPSMDE 

004421 

ME $08 J 

000007 

MLSFIL 

000002 

HPSBDF 

002164 

MPSDUM 

929?5? 

MPSMHO 

001633 

ME$0B2 

000004 

MLSFIR 

000000 

MPSBFQ 

002121 

MPSDUP 

002127 

MPSMLB 

000202 

MESPRO 

000005 

MLSINT 

000000 

MPSBLK 

001616 

MPSDVC 

002114 

HPSMLK 

001306 

MESSYS 

000006 

MLSKNO 

140000 

MPSBLO 

001452 

MPSDWE 

001321 

HPSMLN 

001631 

ME.BLO 

177744 

HLSMON 

000003 

MPSBMX 

002176 

MP$ELT 

000157 

MPSMLP 

006333 

ME. CON 

177753 

MLSSYS 

000002 

MPSBNP 

006330 

MPSETY 

001605 

MPSMRB 

002171 

ME.CST 

177765 

MLSTOP 

000001 

MPSBRT 

001620 

MPSEVE 

000311 

HPSMRO 

001605 

ME.DIS 

177755 

MNIUNL 

000377 

MPSBSA 

002176 

MPSFNC 

001752 

HPSMRP 

006322 

ME. DON 

177600 

MOSACC 

000200 

MPSBSD 

002203 

MPSGDT 

^RW, 

HPSMRT 

002153 

ME.FCO 

1 77762 

MOSADD 

000002 

HPSBSI 

002200 

MPtGNM 

002223 

MPSHRV 

006320 

ME.FIO 

177756 

MOSALA 

000004 

MPSBSP 

006331 

MPSGRO 

002115 

MPSMSB 

000170 

ME. FOP 

177763 

MOSALI 

000000 

HPSBUF 

000170 

MPSGRP 

000541 

MPSHVE 

000145 

ME. FOR 

177776 

MOSCHA 

000040 

HP$BUP 

006324 

MPSGTY 

002224 

MPSMVl 

001634 

ME. FUN 

177777 

MOSCIR 

000003 

MPSBUS 

001643 

MPSHAD 

001757 

MPSHVR 

001751 

ME.GRO 

177745 

HOSCLE 

000100 

MPSCAC 

001750 

MPSHBT 

W^')l 

HPSMWN 

29?] 5^ 

ME.HAR 

177750 

MOSCOU 

000060 

MPSCAS 

001762 

MPSHDD 

000162 

HPSHXB 

002172 

ME.IID 

177767 

MOSDAC 

000000 

HPSCAT 

002210 

MPSHTH 

001612 

HPSMXC 

000466 

ME.LCO 

177766 

MOSDEF 

000000 

HPSCCS 

004406 

MPSHUA 

WIW 

MPSMXR 

001630 

ME.LPR 

177757 

MOSDPR 

000000 

HPSCHN 

002141 

MPSJAT 

001322 

HPSMXUI 

002143 

ME.MPR 

177773 

MOSENT 

000017 

MPSCJR 

000144 

MPS IDE 

000144 

MPSNAA 

006335 

ME.MVE 

177771 

MOSEVE 

000100 

HPSCLK 

002131 

MPSIDP 

506^?? 

MPSNAC 

001130 

ME. OPE 

177747 

MOSINF 

000160 

MPSCLN 

002126 

MPSIHO 

000215 

MPSNAP 

006326 

ME.PLO 

177751 

MOSINS 

000002 

MP$CLT 

002211 

MPSINA 

002177 

MPSNCT 

000240 

ME.PMI 

177743 

MOSLIN 

000001 

HPSCMB 

002142 

MPSIND 

002204 

MPSNET 

002114 

ME . PNA 

177752 

MOSLOG 

000001 

HPSCMK 

000537 

MPSINI 

002201 

MPSNLI 

999^65 

ME.PRI 

177775 

MOSMIR 

000031 

MPSCMX 

002153 

MPSITI 

000776 

MPSNNA 

000764 

ME.PTY 

177772 

MOSNAM 

000001 

MPSCND 

000310 

MPSLAA 

000231 

HPSNOO 

000500 

ME.PVA 

177760 

MOSNJC 

000023 

MPSCNU 

001753 

MPSLAN 

WM\ 

MPSNRA 

006334 

ME. RES 

177761 

MOSNOD 

000000 

HPSCOB 

000311 

MPSLAR 

000202 

MPSNRB 

000214 

ME.ROO 

177754 

MOSOFF 

000001 

MPSCON 

002126 

MPSLAS 

000012 

MPSNSA 

001617 

ME.SIZ 

177774 

MO$ON 

000000 

MPSCOS 

001604 

MPSLBS 

000203 

HPSNTI 

002141 

ME.srs 

177746 

MOSOPT 

000001 

MPSCPF 

000230 

MPSLCO 

000226 

MPSNUM 

001642 

ME.UCC 

177770 

MOSPER 

000200 

MPSlPL 

000232 

MPSLCT 

000156 

MPSNVE 

001274 

MFSACT 

177776 

MOSPRO 

000002 

MPSCPT 

000226 

MPSLHL 

829?^? 

MP$NXN= 

001476 

MFSADD 

000000 

MOSPRS 

000001 

MPSCPU 

000161 

MPSLLE 

000227 

MPSOAC 

000632 

MF$;,DJ 

177774 

MOSREA 

000200 

MP$CSZ 

001755 

MPSLLO 

004432 

MPSOAN 

000620 

\,'- 
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MS$FCS=  000000 


ALXXIN 
CHKSCO 


ALIAS  INITIALIZATION  C 
CHECK  SCOPE  PARAMETER 
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2^^ 
245 
246 

247  000304 

248  000310 
249 

250 
251 

252  000312 

253  000314 

254  000316 

255  000320 

256  000322 

257  000326 
258 

259 

260 

261 

262 

263 

264 

265 

266  000330 

267 

268 

269 

270 

271 

272 

27: 

274 

275  000334 

276  000340 

277  000342 

278  000344 

279  000350 

280  000352 

281  000354 

282  000362 

283  000364 
284 

285  000370 

286  000410 
287 

288  000412 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300  000416 


120527  000001 
001102 


005302 

112305 

160502 

002476 

020527  000003 

002473 


.ENDC 

CMPB 
BNE 


;  NDF  R$$PRO 

R5,#MS$TER 
30i 


ELSE,  IS  IT  A  LEGAL  SCOPE  TYPE 
IF  NE,  NO  -  ERROR 


IF  SCOPE  TYPE  =  MSSTER  (TERMINAL  ID  STRING),  GET  UCB  ADDRESS 


DEC 

MOVB 

SUB 

BLT 

CMP 

BLT 


R2 

(R3)+,R5 

R5,R2 

30i 

R5.#3 

30§ 


.IF  DF  R$$PRO 


PRO/DECNET 


112364  000020 


112364  000021 

010300 

010246 

012602 

010003 

126327  \im7     000072 

001055 


103442 


017700  OOOOOOG 


CHP8  (R3),*'T 

BNE  30$ 

.ENDC  ;  DF  R$$PRO 

MOVB  (R3)+,A$SC0(R4) 

.IF  DF  R$$PRO  ;  PRO/DECNET 

CMPB  (R3),#'I 

BNE  30$ 

.ENDC  ;  DF  R$$PRO 

MOVB  (R3)+,A$SC0tl(R4) 

MOV  R3,fi0 

MOV  R2,-(SP) 

CALL  $COTB 

MOV  (SP)+,R2 

MOV  R0,R3 

CMPB  -1(R3),#': 

BNE  30$ 

CALL  DEALUN 

ALUN$S  #$TMLUN,A$SC0(R4),R1 

BCS  30$ 

SWSTKS  20$ 

.IF  DF,R$$MPL 

SAVMAP 

MOV  aSAHDB,aiCSAR6 

MOV  aSAHPT.RO 

MOV  <H.LLINt<4*<$TMLUN-1» 

RE  SWAP 

.IFF  ;  DF  R$$MPL 

MOV  aHEADR.RO 


DEC  BUFFER  COUNT  FOR  SCOPE  COUNT 

GET  LENGTH  OF  SCOPE  STRING 

DEC  BUFFER  COUNT  BY  SCOPE  STRING  LENGTH 

IF  LT,  ERROR 

CHECK  MINIMUM  LENGTH  OF  SCOPE  STRING 

IF  LT,  TOO  SMALL  -  ERROR 


IS  SCOPE  TI:  ? 
IF  NE,  NO  -  ERROR 


SAVE  FIRST  DEVICE  NAME  CHAR 


IS  SCOPE  TI:  ? 
IF  NE,  NO  -  ERROR 


SAVE  SECOND  DEVICE  NAME  CHAR 

POINT  TO  ASCII  UNIT  NUMBER  FOR  $COTB 

SAVE  R2 

CONVERT  OCTAL  STRING  TO  BINARY 

RESTORE  R2 

POINT  TO  NEXT  CHARACTER  IN  BUFFER 

IS  THERE  A  LEGAL  DEVICE  TERMINATOR  ? 

IF  NE,  NO  -  ERROR 

DEASSIGN  THE  TEMPORARY  LUN  FIRST 

(AVOIDS  RSX  "LUN  LOCKED  IN  USE  ERROR) 

TRY  TO  ASSIGN  A  LUN  TO  THE  DEVICE 

IF  CS,  UE  COULDN'T  -  ERROR 

;  ELSE,  ENTER  SYSTEM  STATE  TO  GET  UCB 


SAVE  CURRENT  KISAR6  MAPPING 
MAP  TO  MY  EXTERNAL  HEADER 
.,  POINT  TO  THE  HEADER 
>(r!)5,R1  ;;  GET  THE  DEVICE'S  UCB  ADDRESS 
RESTORE  PREVIOUS  KISAR6 


GET  OUR  HEADER'S  ADDRESS 


;  RJK02 


ALXXIN 
CHKSCO 
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CHECK   SCOPE    PARAMETER 
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<-H.I  IINt<-i«<$TMI  IIN-1>>>(R0)  .Rl 


GET    THE  DEVICE'S   UCB  ADDRESS 


ARREIN  -  AREA  READ  INFORMATION 
MACRO  CALLS  AND  LOCAL  DATA 

49 
50 
51 
52 
53 
54 
55 
56 

57  000000 

58  000000 

59  000000 

60  000000 

61  000000 

62  000000 

63  000000 
64 
65  000000 
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.S8TTL  MACRO  CALLS  AND  LOCAL  DATA 
LIBRARY  MACRO  CALLS 


.MCALL  MANDF$,XPDDB$,PDVDF$,RETC,ARRCX$,UCBDF$ 
.MCALL  NSFDFS, HORDES, DHBDF$,RESMAP,SAVMAP 


000020 

000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000027 
000000 


000000 


66 


000001 
000002 
000020 
000040 
000100 
000077 


DHBDFS 

HDRDFS 

MANDFS 

NSFDFS 

PDVDFS 

UCBDFS 

XPDDBS 

ARRCXS 

LIST 

■  CONTEXT  AREA 

DEFINITION 

.ASECT 

.  =  0 

ASFLG 

.BLKW 

1 

ASBUF 

.BLKW 

1 

ASNUM 

.BLKW 

1 

A$MAX 

.BLKW 

1 

ASOPT 

.BLKW 

1 

ASXPT 

.BLKW 

1 

ASEXA 

.BLKW 

1 

ASPAR 

.BLKW 

1 

A$NAH 

.BLKB 

7 

ASLEN) 

<: 

.PSECT 

;  FLA 

jS  word  bit  DEFINITION 

AF.INI 

1 

AF.KNO 

2 

AF.MUX 

20 

AF.END 

40 

AF.LV2 

100 

MXAREA 

63. 

DEFINE  DECNET  HOME  BLOCK 

DEFINE  TASK  HEADER  OFFSETS 

DEFINE  NETWORK  MANAGEMENT  FLAGS 

DEFINE  NSP  FEATURES  MASK 

DEFINE  PDV  OFFSETS 

DEFINE  UCB  OFFSETS 

DEFINE  XPT  DATABASE  OFFSETS 

DEFINE  CONTEXT  AREA 


FLAGS  WORD 

OUTPUT  BUFFER  ADDRESS 

AREA  NUMBER 

HIGHEST  AREA  IN  DATABASE 

SAVED  OPTIONS  WORD 

XPT  PDV  ADDRESS 

EXECUTOR  AREA 

PARAMETER  FOR  RESPONSE  MESSAGE 

NODENAHE  BUFFER 


INITIALIZATION  FLAG 
KNOWN/ACTIVE/SIGNIFIGANT  AREAS 
CIRCUIT  IS  MUX 
EXECUTOR  IS  AN  ENDNODE 
EXECUTOR  IS  AN  AREA  ROUTER 
MAXIMUM  AREA  NUMBER 
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Table  of  contents 

MACRO  CALLS  AND  LOCAL  DATA 

AREA  READ  STATUS  OPERATE 

GET  EXECUTOR  AREA  INFORMATION 

GET  AREA  MINIMUM  HOPS  AND  COST 

FORMAT  CIRCUIT  ID 

STORE  THE  NEXT  NODE 

FIND  AND  FORMAT  NODE  NAME 


s- 

51 

MACRO 

(S- 

75 

ARREOP 

l- 

189 

GETEXA 

H- 

252 

GETMHC 

V- 

315 

FMTCIR 

10- 

400 

NXTNOD 

11- 

426 

NODNAM 
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AF.END= 

AF.INI= 

AF.KNO= 

AF.LV2= 

AF.MUX= 

ARREOP 

ASCIMG= 

AT$ACL= 

AT$ADN= 

AT$AUP= 

AT$CYC= 

AT$LV1= 

AT$LV2= 

AT$NEX= 

AT$UP  = 

A$BUF 

ASCIR 

ASEXA 

A$FLG 

ASLEN 

ASLENX 

ASMAX 

A$NAM 

ASNIO 

ASNUM 

A$OPT 

A$PAR 

A$TM 

ASTMI 

ASTSZ 

A$TYP 

ASXPT 

A$$CHK= 

A$$CPS= 

A$$PRI  = 

A$$TRP= 

CODMUL= 

CODSNG= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DECPT  = 

DECSIG= 

DECUNS= 

DSAMXC 

DSAMXH 

DSANN 

DSBRPR 

DSBRTM 

DSDELF 

DSDELW 

DSEND  = 

D$FNB 

DSHIOR 

DSHOST 

DSINAC 

DSINCT 


000040 

000001 

000002 

000100 

000020 

000002RG 

000100 

000100 

000040 

000020 

000004 

000002 

000001 

000200 

000010 

000002 

000003 

000014 

000000 

000004 

000027 

000006 

000020 

000000 

000004 

000010 

000016 

000003 

000002 

000000 

000002 

000012 

000000 

000000 

000000 

000000 

000300 

000200 

000000 

000400 

177564 

».**♦»  Gx 

000020 

000000 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 


DSIPL 

D$LID 

DSLNAM 

DSLNUM 

DSLST 

DSMAXC 

DSMAXH 

DSHAXV 

D$MLL 

DSMNOD 

D$NA 

DSNBEA 

DSNBRA 

D$NEND= 

D$NLN 

D$NN 

DSOUTT 

DSRETF 

DSRNN 

DSRTMR 

DSSEG 

D$SER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNH= 

E$$XPR= 

FMTCIR 

F$$LVL= 

GETEXA 

GETMHC 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

HEX 

HEXIMG= 

I$$RAR= 

I$$RDN= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LCIEXT 

LC$INT 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.BWT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 


000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

000000 

001054R 

000001 

0004 16R 

000650fi 

000000 

000000 

000000 

000000 

000040 

V7777 

000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

000000 

000001 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 


LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIH= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUH= 

LN.L0A= 

LN.L00= 

LN.0AU= 

LN.0FF= 

LN.ON  = 

LN.OOP= 

LN.0PE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L . KRBA 

L.LEN  = 

L.HPF 

L.NMST 

L.NSTA 

L . OWNR 

L.UNT 

MAPADD= 

HBSDIS 

MBSENA 

MBSFUL 

MSSMIX 

MB$ONE 

HBSRXO 

MBSTXO 

HB$ZER 

HCSBAB 

MCSBID 

MCSBMC 

MCSBSC 

MCSCAC 

MCSCAP 

MCSCCL 


000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

******  GX 

000001 

000000 

000002 

000002 

000001 

000001 

000000 

000000 

006073 

001765 

001767 

001766 

001442 

001440 

001445 


MCSCDC 
MCSCDP 
MCSCJF 
MCSCLD 
MCSCOU 
MCSCTL 
HCSCTR 
HCSCTS 
MCSDOV 
MCSLBR 
MCSLBS 
MCSLDI 
MCSLDO 
MCILDR 
HCSLDS 
MCSLLB 
MCSLLP 
MCSLLR 
MCSLOO 
MCSLRB 
MCSLRP 
MCSLRR 
MCSLSI 
HCSLST 
MCSLUP 
HCSMAP 
MCSMBL 
MCSMBX 
MCSMBY 
MCSMPX 
MCSNAP 
MCSNBR 
MCSNBS 
MCSNCR 
MCSNCS 
MCSNML 
MCSNMR 
MCSNMS 
HCSNNO 
MCSNNU 
MCSNOP 
MCSNOR 
MCSNPF 
MCSNPR 
HC$NRE 
MCSNRT 
MCSNVR 
MC$P08 
MCSPII 
MCSRFL 
MCSSBU 
MCSSFL 
MCSSYC 
MCSSYL 
MCSSYR 
MCSSYS 
MCSSYZ 


002045 
001441 
001465 
001464 
100000 
001454 
001452 
001453 
002050 
001750 
001751 
001774 
001775 
001762 
001763 
002021 
002115 
002007 
000001 
002020 
002114 
002006 
002032 
002033 
006072 
010000 
001764 
004420 
001752 
004406 
001604 
001130 
001131 
001154 
001155 
001274 
001142 
001143 
001606 
001605 
001607 
000000 
001616 
001630 
001200 
001166 
001642 
000000 
000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 


MC$7BR 

MCSTBS 

MCSTDR 

MC$T1H 

MCSTYP 

HCSUBU 

MCSUFD 

HCSUMR 

HCSUMS 

MCSVAX 

MCSUID 

MCSWIH 

MCSUIL 

MC$U08 

MC$W16 

HC$W32 

MCSXBR 

HCSXBS 

MCSXCJ 

MCSXCR 

MCSXCS 

HCSXDR 

MCSXDS 

MCSXFR 

MCSXFS 

MCSXLJ 

HCSXLR 

MCSXMA 

MCSXMC 

MCSXMS 

MCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

HC$020 

MD$CI 

MDSCNA 

MDSCOU 

HD$DA 

MDSDL 

HDSDLV 

MDSDMC 

MDSDMF 

MDSDMP 

MDSDHR 

MDSDMV 

MD$DN 

MD$DP 

MDSDPV 

HD$DQ 

MDSDTE 

MD$DU 

HDSDUP 

MD$DV 

MD$DZ 

MDSFUL 

MDSHAL 


001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
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000032 
00003A 
000036 
OOOOAO 
0000-12 
00004A 
0000A6 
000050 
000052 
00005A 
000056 
000060 
000062 
000064 
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000056 
000060 
000062 
00006A 
000066 

000070 

000270 
000270 

000000 


86 

87  000000 


000056 


000002 
000200 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 


000001 
000002 
000004 
000010 
000020 
000040 


N$HREI> 

:  .BLKW   1 

NSHROI 

:  .BLKW 

NSHECI 

:  .BLKW 

N$HAD. 

:  .BLKW 

NSHSEI 

:  .BLKW 

NSHLOO:  .BLKU 

N$HLC: 

:  .BLKW 

NSHCC: 

:  .BLKW 

NSCLOO:  .BLKW   ' 

NSLLOO:  .BLKW 

N$8UF 

.BLKW 

NSBFL 

.8LKW   • 

NSNEX 

.BLKW 

N$SAV 

.=N$BUF 

NSAMX 

.BLKW   1 

N$NMX 

.BLKW   1 

NSCAR 

.BLKW   1 

N$CNO 

.8LKW   1 

N$AMP 

.BLKW   1 

N$ALN=.-N$AMP 

N$NMP 

.BLKW   64. 

N$NLN=.-N$NMP 

N$LOO 

N$LEN 

.PSECT 
FLAGS  WORD  BIT  DEFINITIONS 


NF.INI 
NF.OVR 
NF.LPB 
NF.MUX 
NF.REA 
NF.LV1 
NF.LV2 
NF.ARE 
NF.VR2 
NF.VR3 
NF.EPM 
NF.LXX 
NF.PA2 
NF.EXN 
NF.FTT 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 


HIGHEST  REMOTE  NODE  ADDRESS 

HIGHEST  ROL  NODE  ADDRESS 

HIGHEST  ECL  NODE  ADDRESS 

HIGHEST  ADJACENCY  NODE  ADDRESS 

HIGHEST  SERVICE  NODE  ADDRESS 

HIGHEST  LOOP  NODE  ADDRESS 

HIGHEST  NODE  ADDRESS  LAST  CONTEXT  AREA 

HIGHEST  NODE  ADDRESS  CURRENT  CONTEXT  AREA 

HIGHEST  LOOP  NODE  ADDRESS  CURRENT  CONTEXT  AREA 

HIGHEST  LOOP  NODE  ADDRESS  LAST  CONTEXT  AREA 

OUTPUT  BUFFER  ADDRESS 

BUFFER  LIMIT  OF  SAVED  NODE  ADDRESSES 

POINTER  TO  NEXT  NODE  TO  BE  DISPLAYED 

SAVE  AREA  FOR  ^JDE  ADDRESSES 

MAXIMUM  AREA  NUMBER  IN  BIIMASK 
MAXIMUM  NODE  ADDRESS  IN  BITMASK 
CURRENT  AREA  NUMBER  IN  SCAN 
CURRENT  NODE  ADDRESS  IN  SCAN 
BITMAP  OF  AREAS  WITH  NODES 

;  BITMAP  OF  NODES  IN  CURRENT  AREA 

;  LOOP  NODE  CHANNEL  NUMBERS 

;  LENGTH  NEEDED  FOR  CONTEXT  AREA 


SUCCESSFUL  INITIALIZATION 

CONTEXT  AREA  OVERFLOWED 

SET  NODE  IS  A  LOOPBACK  (NAME  SPECIFIED) 

LINE  ID  DEVICE  IS  A  MULTIPLEXER 

NODE  IS  REACHABLE 

LEVEL  1  ROUTING  TASK  PRESENT 

LEVEL  2  ROUTING  TASK  PRESENT 

NODE  IS  OUTSIDE  EXECUTOR  AREA 

CONNECTED  TO  NICE  V2.0  NCP 

CONNECTED  TO  NICE  V3.0  NCP 

EPM  IS  PRESENT 

LOOP  NODE  FLAG  BIT 

SECOND  PASS  OF  REMOTE  NODE  SCAN 

EXECUTOR  NODE  IS  IN  BITMAP 

FIRST  TIME  THROUGH  NODE  LIST 


LIST  FLAG  WORD  BIT  DEFINITIONS  (N$LFLG) 


NL.REM 
NL.ROL 
NL.ECL 
NL.ADJ 
NL.SER 
NL.LOO 


1 

2 

4 

10 

20 

40 


CIRCXS  LIST 


REMOTE  NODE  LIST 
ROL  NODE  LIST 
ECL  NODE  LIST 
ADJACENCY  NODE  LIST 
SERVICE  NODE  LIST 
LOOP  NODE  LIST 
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A59 
A60 
t,b^ 
462 
A6? 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 

481  001262 

482  001262 

483  001266 

484  001274 

485  001276 

486  001300 

487  001304 

488  001310 
489 

490  001312 

491  001316 

492  001320 

493  001322 

494  001324 

495  001326 
496 

497  001334 

498  001340 

499  001342 

500  001346 

501  001352 

502  001354 

503  001360 

504  001362 

505  001364 
506 

507  001370 

508  001372 

509  001374 

510  001376 

511  001400 

512  001402 

513  001404 
514 

515 


.SBTTL  SAVCTX  -  SAVE  NODE  CONTEXT 

**»  -  SAVCTX  -  SAVE  NODE  CONTEXT 

INPUTS: 

R1  =  ADDRESS  OF  NODE  TO  SAVE 

R4  =  ADDRESS  OF  CONTEXT  AREA 

R5  =  NEXT  AVAILABLE  LOCATION  IN  CONTEXT  SAVE  AREA 

OUTPUTS: 

R5  =  NEXT  FREE  WORD  IN  CONTEXT  SAVE  AREA 
C-8IT  = 

SET:   BIT  NF.OVR  SET  IN  N$FLAG(R4)  IF  CONTEXT  AREA  FULL 
CLEAR:  BIT  NF.OVR  CLEAR  IN  N$FLAG(R4)  IF  CONTEXT  AREA  NOT  FULL 

NODES  ARE  SAVED  AS  2  WORD  ENTRIES  SORTED  BY  ADDRESS: 

WORD  0  -  NUMBER  OF  NODES  IN  SEQUENCE  (0  IS  RESERVED) 
WORD  1  -  16  BIT  NODE  ADDRESS  OF  FIRST  NODE  IN  SEQUENCE 


032764 

000004  000000 

001406 

010103 

042703 

001777 

020364 

000004 

001141 

016403 

177776 

060403 

024343 

020503 

103403 

052764 

000002  000000 

032701 

176000 

001005 

016446 

000026 

042716 

001777 

052601 

020164 

000026 

001515 

010403 

062703 

000070 

020305 

103073 

012300 

012302 

020102 

001504 

101010 

SAVCTX: 

CALL  SSAVAL 

BIT  #NF.WLD,N$FLAG(R4) 

BEQ  2$ 

MOV  R1,R3 

BIC  *1777,R3 

CMP  R3,N$ADD(R4) 

BNE  90$ 

2$:     MOV  -2(R4),R3 

ADD  R4,R3 

CMP  -(fi3),-(R3) 

CMP  R5,fi3 

BLO  3$ 

BIS  #NF.0VR,N$FLAG(R4) 

3$:     BIT  #*C<1777>,R1 

BNE  5$ 

MOV  N$NSP(R4),-(SP) 

SIC  #<1777>,CSP) 

BIS  (SP)+,R1 

5$:     CMP  R1,N$NSP(R4) 

BEQ  90$ 

MOV  R4,R3 

ADD  #N$SAV+4,R3 

10$:    CMP  R3,R5 

BHIS  70$ 

MOV  (R3)+,R0 

MOV  (R3)+,R2 

CMP  R1,R2 

BEQ  90$ 

BHI  20$ 

■  CHECK  LOW  BOUND  OF  CURRENl  ENTRY 


SAVE  EVERYTHING 

WILDCARD  NODE  ADDRESS  SPECIFIED  ? 

IF  EQ,  NO 

ELSE  COPY  NODE  ADDRESS 

ISOLATE  AREA 

SAME  AREA  AS  WILDCARD  NODE  ? 

IF  NE,  DON'T  SAVE  IT 

ELSE  GET  SIZE  OF  CONTEXT  AREA 

POINT  PAST  END  OF  CONTEXT  AREA 

POINT  TO  LAST  AVAILABLE  ENTRY 

ROOM  FOR  ANOTHER  ENTRY  ? 

IF  LO,  YES 

ELSE  SET  OVERFLOW  BIT 

AREA  SPECIFIED  ? 

IF  NE,  YES 

ELSE  PICK  UP  EXEC  ADDRESS 

ISOLATE  AREA  BITS 

USE  OUR  AREA 

IS  THIS  THE  EXECUTOR  NODE  ? 

IF  EQ,  ALREADY  SAVED  -  DONE 

COPY  CONTEXT  AREA  ADDRESS 

POINT  SAVED  NODE  (AFTER  EXECUTOR) 

END  OF  SAVED  NODE  DESCRIPTIONS  ? 

IF  HIS,  YES  -  ADD  THIS  NODE 

PICK  UP  SET  SIZE 

PICK  UP  STARTING  NODE  ADDRESS 

SEE  IF  LESS  THAN  THIS  SET 

IF  EQ,  ALREADY  SAVED 

IF  HI,  CHECK  HIGH  BOUND 
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CREATED 

BY 

MACRO  ON  29-JUN-85  AT  1 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ZF.DIA 

=  OOAOOO 

#5-69 

ZF.DLC 

=  000002 

#5-69 

ZF.DVP 

=  100000 

#5-69 

ZF.INI 

=  040000 

#5-69 

ZF.KMX 

=  000020 

#5-69 

ZF.LLC 

=  000004 

#5-69 

ZF.LMC 

=  000100 

#5-69 

ZF.MAN 

=  020000 

#5-69 

ZF.MFL 

=  000010 

#5-69 

ZF.MTM 

=  000400 

#5-69 

ZF.MUX 

=  000040 

#5-69 

ZF.PSE 

=  002000 

#5-69 

ZF.SLI 

=  010000 

#5-69 

ZF.TIM 

=  000200 

#5-69 

ZF.X3P 

=  000000 

#5-69 

ZS.ASN 

=  100000 

#5-69 

ZS.B5Y 

=  140000 

#5-69 

Z.AVL 

000014 

#5-69 

Z.DAT 

0000-'6 

#5-69 

Z.DSP 

000000 

#5-69      5-69 

Z.FLG 

000010 

#5-69 

Z.LEN 

=  000016 

#5-69 

Z.LLN 

000006 

#5-69 

Z.MAP 

000020 

#5-69 

Z.NAM 

000004 

#5-69 

Z.PCB 

000012 

#5-69 

Z.SCH 

000007 

#5-69 

SCEACC 

=   ****** 

(iX 

15-447 

$SAVAL 

=      ****** 

GX 

16-482 
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SYMBOL  VALUE 


BITO 

BITI 

BITIO 

BIT11 

B1T12 

BIT13 

BIT14 

BIT15 

BIT2 

B1T3 

BIT4 

BIT5 

BIT6 

B1T7 

BIT8 

BIT9 

B$10 

B$11 

Bt12 

B$5 

B$6 

B$7 

B$7S10 
CHKCIR 

LFSEND 

LFSMLT 

LFSREA 

LFSSEG 

LFSSIG 

LFSSKP 

LF$VR2 

LFSZER 

LPSMPT 

LPSMUX 

LPSTRB 

LPSUNT 

LPSWCN 

LPSWDV 

LPSWLD 

LPSWTR 

LPSWUN 

LSADJ 

LSeUF 

LSCHN 

LSCOU 

L$CTB 

LSCTL 

LSDDM 

L$FLG 

LSFLX 

L$LEN 

L$LTM 


000001 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000003 

000004 

000005 

000000 

000001 

000002 

000006 

000000  RG 

000020 

040000 

000001 

100000 

000040 

000004 

000010 

000002 

000010 

000004 

000002 

:  000001 

:  000040 
■  000020 
:  000360 
:  000200 
:  000100 

000110 

000060 

000054 

000114 

000053 

000002 

000000 

000064 

000070 

000124 

000070 


REFERENCES 

#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#7-87 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 


7-95 
7-95 
6-63 
6-63 

6-63 
6-63 
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80 

81 

82  000000 

83 

84 

85 

86  000000 

87 

88  000000 

89 

90  000000 

91 

92  000000 

93  000016 

94  OOOOCO 

95  t^OOOO 

96  000026 

97  000000 

98  000000 

99  000036 

100  000000 

101  000000 

102  000050 

103  000000 

104  000000 

105  000060 

106  000000 

107  000000 

108  000064 

109  000000 

110  000000 

111  000074 

112  000000 

113  000000 

114  000104 

115  000000 

116  000000 

117  000114 

118  000000 

119  000000 

120  000124 

121  000000 

122  000000 

123  000134 

124  000000 

125  000000 

126  000144 

127  000000 

128  000000 

129  000154 

130  000000 

131  000000 

132  000164 

133  000000 

134  000000 

135  000174 

136  000000 


.SBTTL  SET  CIRCUIT  PARSE  TABLE 

IMSG$   SETCIR 

STATES  FOR  SET  CIRCUIT  OPTIONS 

FIELDS 
.IF  NDF  R$$11S 

SSBEXP  SALL.END 
.IFTF 

SSBEXP  SSTA,,,LSSSTA,+LSFL6 
.IFT 

INEXT 
FIELDS 

SSBEXP  SSER,,,LSSSER,+LSFLG 

SNEXT 
FIELDS 

SSBEXP   SLCT,,,LSSLCT,+LSFLX 

SNEXT 
FIELDS 

SSBEXP  SCOS,END,,LSSCOS,+LSFLG 

SNEXT 
FIELDS 

SSBEXP   SHTM,,,LSSHTM,+LSFL1 

SNEXT 
FIELDS 

SSBEXP  SLTM 

SNEXT 
FIELDS 

SSBEXP   S8LK,,,LSSBLK,+LSFLX 

SNEXT 
FIELDS 

SSBEXP   SMXR,,,LSSMXR,+L$FLX 

SNEXT 
FIELDS 

SSBEXP   SRET,,,LS$RET,+LSFLX 

SNEXT 
FIELDS 

SSBEXP  SNUI»l,,,LSSNUM,tL$FLX 

SNEXT 
FIELDS 

SSBEXP  SOWN,,,LSSOWN,+LSFLG 

SNEXT 
FIELDS 

SSBEXP   SCUS,,,LSSCUS,+LSFLX 

SNEXT 
FIELDS 

SSBEXP   SDTE,,,LS$DTE,+L$FLX 

SNEXT 
FIELDS 

SSBEXP  SCHN,,,LSSCHN,+LSfLX 

SNEXT 
FIELDS 

SSBEXP   SCM8,,,LS$CMB,+L$FLX 

SNEXT 
FIELDS 

SSBEXP  SMXW,,,LSSNXW,+LSFLX 


Service 

Counter  timer 

Cost 

Hello  timer 

(Listen  timer) 

Blocking 

Maximum  recalls 

Recall  timer 

DLM  number 

Owner 

Usage 

DTE 

Channel 

Maximum  data 

Maximum  window 
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6'55 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 

652  000230 

653  000230 

654  000234 

655  000240 

656  000242 

657  000244 

658  000246 

659  000250 

660  000254 

661  000256 

662  000256 

663  000262 

664  000266 

665  000270 

666  000272 

667  000276 
668 

669 
670 

671  000300 

672  000302 

673  000304 

674  000310 

675  000312 

676  000314 

677  000320 

678  000322 

679  000324 

680  000326 

681  000330 

682  000332 

683  000334 

684  000340 
685 

686 
687 

688  000342 

689  000346 

690  000352 

691  000354 


.SBTTL  OWNACT  -  CIRCUIT  OWNER  ACTION  ROUTINE 

••-OWNACT-CIRCUIT  OWNER  ACTION  ROUTINE 

THIS  ROUTINE  CHECKS  THAT  THE  CIRCUIT  OWNER  SPECIFIED  IS  AN  LLC 
PROCESS  KNOWN  TO  THE  SYSTEM. 


INPUTS: 


.MSGPT 
R4 


=  POINTER  TO  IMAGE  OWNER  NAME 
=  ADDRESS  Of  CONTEXT  AREA 


OUTPUTS: 


IF  OWNER  IS  LEGAL, 

L$0WN(R4)  =  RAD50  OWNER  NAME 
ELSE,  THE  PARSE  IS  TERMINATED. 


NODACT: 


016701     OOOOOOG 

105721 

001112 

105721 

001110 

012702     114224 

000432 


016701  OOOOOOG 

112105 

003451 

020527  000003 

003074 


060105 

111546 

112715  000077 

010100 


103001 
005300 
010102 

112615 

160100 

120061  Mmi 

001053 


103412 

110264  000102 


OWNACT: 


5$: 


CHECK 


h: 


.ENABL 

LSB 

CALL 

SSAVAL 

MOV 

. MSGPT, R1 

TSTB 

(R1)  + 

BNE 

PVAERR 

TSTB 

(R1)  + 

BNE 

PVAERR 

MOV 

#*RXPT,R2 

BR 

7$ 

CALL 

SSAVAL 

MOV 

. MSGPT, R1 

MOVB 

(R1)+,R5 

BLE 

30$ 

CMP 

R5,#3 

BGT 

PVAERR 

iT  NAME 

TO  RAD50 

ADD 

R1,R5 

MOVB 

(r5),-(SP) 

MOVB 

#'?,(R5) 

MOV 

Rl.fiO 
<R1> 

SAVRG 

CALL 

$CAT5 

BCC 

5$ 

DEC 

RO 

MOV 

R1,fi2 

RESRG 

<R1> 

MOVB 

(SP)t,(R5) 

SUB 

RI.RO 

CMP8 

R0,-1(R1) 

BNE 

PVAERR 

THAT  OWNER  EXISTS,  AND 

IS  AN  LLC 

SWSTKS 

30$ 

CALL 

aPDVID 

BCS 

10$ 

MOVB 

R2,L$0WN(R4) 

SAVE  ALL  REGISTERS 

POINT  TO  THE  OWNER  NAME  STRING 

IS  THIS  THE  EXECUTOR? 

BR  IF  NO 


SET  TRANSPORT  AS  THE  OWNER 
CONTINUE 

SAVE  ALL  REGISTERS 

POINT  TO  THE  OWNER  NAME  STRING 

GET  LENGTH  OF  OWNER  NAME 

IF  LE,  -  ERROR 

IS  THE  NAME  1-3  CHARACTERS  ? 

IF  GT,  NO  -  ERROR 


POINT  TO  STRING+1 

SAVE  NEXT  CHAR 

PUT  NON  RAD50  CHAR  INTO  BUFFER 

POINT  TO  PROCESS  NAME 

SAVE  R1 

CONVERT  TO  RA050 

IF  CC,  THREE  CHARS  CONVERTED 

ELSE,  BACK  UP  POINTER  ONE  CHARACTER 

SAVE  CONVERTED  NAME 

RESTORE  R1 

RESTORE  NEXT  CHAR  IN  BUFFER 

CALC  LENGTH  OF  NAME 

DID  IT  ALL  GET  CONVERTED  ? 

IF  NE,  NO  -  ERROR 


ENTER  SYSTEM  STATE 

GET  THE  PDV  INDEX  ;  RJK05 

IF  CS,  NO  SUCH  PROCESS       ;»»-l 
SAVE  THE  OWNER'S  PDV  INDEX 
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MXWACT  -  X.25  Circuit  maximum  window  action  routine 

■SBITL  MXWACT  -  X.25  Circuit  maximum  window  action  routine 

•♦*  MXWACT  -  X.25  Circuit  maximum  window  action  routine 

INPUTS 


980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 

992  001 05A 

993  001054  016701  Q0QQQQ6 

994  001060  112164  000252 

995  001064 


.MSGPT  -  Pointer  to  maximum  window  parameter  value 

R4     -  Pointer  to  context  area 

OUTPUTS 

L$MXW(R4)  Contains  maximum  window  parameter 


MXWACT: 


MOV     . MSGPT, R1 

Move    (R1)t,L$MXW(R4) 

RETURN 


Get  pointer  to  data 
Get  data 
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CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  26 
RETACT  -  X.25  Circuit  recall  timer  action  routine 


ClCHlN  - 
THIAC  - 

12?6 
1237 
1238 
1239 
12A0 
12A1 
12^2 
12A3 
12^^ 
12A5 
1246 
12A7 
1248 
1249 
1250 
1251 
1252 
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CIRCUIT  CHANGE  PARAMEI  MACRO  V05.05b  Saturday  29-Jun-85  12:10  Page  38 
DEAD  THRESHOLD  ACTION  ROUTINE 

.S8TTL  THIACT  -  DEAD  THRESHOLD  ACTION  ROUTINE 

THIACT  -  DEAD  THRESHOLD  ACTION  ROUTINE 
INPUTS: 


.MSGPT 
R4 


POINTER  TO  1  BYTE  DEAD  THRESHOLD 
POINTER  TO  CONTEXT  AREA 


OUTPUTS: 

L$TH1(R4)  -  DEAD  THRESHOLD  VALUE 


001342 

001346  110164  000130 

001352 


tnlACT:  CALL    CHKDMP 

M0V8    R1,L$TH1(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  DEAD  THRESHOLD  VALUE 


I  16 
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72 
75 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
8" 
90 
91 
92 
93 
94 
95 
96 

97  000000 

98  000000 

99  000004 
100  000010 
101 

102 
103 

104  000014 

105  000020 

106  000026 
107 

108 
109 

110  000030 

111  000034 

112  000042 

113  000044 

114  000050 
115 

116 
117 

118  000052 

119  OOOC^t 
120 

121 
122 

123  000060 

124  000066 

125  000070 

126  000074 
127 

128 


.SBTTL  ALREIN  -  ALIAS  READ  INFORMATION  INITIALIZE 

**-ALREIN-ALIAS  READ  INFORMATION  INITIALIZE  ROUTINE 

THIS  ROUTINE  IS  CALLED  TO  INITIALIZE  FOR  THE  ALIAS  READ  INFORMATION 
OPERATION. 

INPUTS: 

RO  =  OPTION  (INFORMATION  TYPE) 
R1  =  ID  ADDRESS  (ALIAS  FORMAT) 
R2  =  LENGTH  OF  DATA  IN  INPUT  BUFFER 
R3  =  ADDRESS  OF  INPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

RO  =  RETURN  CODE 

R2  =  LENGTH  OF  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDESS  OF  OUTPUT  BUFFER 

DATA  SAVED  IN  CONTEXT  AREA 

C-BIT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 


REGISTERS: 

R3,  R4, 


004567  OOOOOOG 
010064  000002 
010364  000006 


012700  177773 

026427  177776  000024 

002466 


012700  Mnn 

026427  000002  000040 

001403 

005764  000002 

001055 


103452 


126427  000011  177775 
001403 


ALREIN: 


JSR 
MOV 
MOV 


R5  ARE  PRESERVED 


R5,$SAVRG 

R0,A$0PT(R4) 

R3,A$BUF(R4) 


CHECK  LENGTH  OF  CONTEXT  AREA 


MOV 
CMP 
BLT 


#ME.MPR,RO 

-2(R4),#A$LEN 

30$ 


SAVE  R3-R5 

SAVE  OPTION  WORD 

SAVE  BUFFER  POINTER 


ASSUME  CONTEXT  AREA  TOO  SMALL 
IS  CONTEXT  AREA  LARGE  ENOUGH  ■; 
IF  LT,  NO  -  ERROR 


CHECK  OPTIONS  FLAG  FOR  INFORMATION  TYPE 


MOV     #ME.FUN,RO 

CMP     A$0PT(R4),#H0$CHA 

BEQ     10$ 

TST     A$0PT(R4) 

BNE     30$ 

CHECK  ALIAS  FORMAT 


ASSUME  ILLEGAL  OPTION 

IS  THIS  A  "SHOW  CHARACTERISTICS' 

IF  EQ,  YES  -  VALID 

ELSE,  IS  IT  A  "SHOW  SUMMARY" 

IF  NE,  NO  -  ERROR 


10$: 


CALL 
BCS 


CHKALI 
30$ 


CHECK  ALIAS  FORMAT 
IF  CS,  ILLEGAL  FORMAT 


CHECK  SCOPE,  UNLESS  ALIAS  TYPE  WAS  "ALL' 


103443 


CMPB  A$TYP(R4),#MF$ALL 

BEQ  20$ 

CALL  CHKSCO 

BCS  30$ 

CHECK  FOR  JUNK  AT  END  OF  MESSAGE 


WAS  THE  ALIAS  TYPE  "ALL" 

IF  EQ,  YES  -  BYPASS  SCOPE  CHECK 

CHECK  THE  SCOPE 

IF  CS,  ILLEGAL  SCOPE 


J  1 
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ALREOP  -  ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  UM 
Table  of  contents 

MACRO  CALLS  AND  LOCAL  DATA 

ALREOP  -  ALIAS  READ  INFORMATION  OPERATE 

FMTNAM  -  FORMAT  A  NAME  FIELD 

FMTSCO  -  FORMAT  SCOPE  PARAMETER 

FMTDES  -  FORMAT  DESTINATION  PARAMETER 

FINDA  -  FIND  A  MATCHING  ALIAS  BLOCK 


s- 

s? 

(S- 

HI 

l'- 

IftS 

H- 

^00 

9- 

,^4/ 

10- 

31/ 

ALREOP  -  ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  12:06  Page  4 
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1  AC     nc  \t\     1  kirnOMA  T  triM     nDCDfl  TC 


I  3 

ALREOP  -  ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  12:06 
Symbol  table 


Page  10-3 


MPSOCO 

MPSOHO 

MPSONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

MPtOVE 

MPSOWN 

MPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPCT 

HPSt'HA 

MPSPHV 

MPSPLI 

MPSPLN 

HPSPLO 

MPSPMC 

MPSPNT 

HPSPRl 

MPSPRO 

MPSPSS 

MPSPST 

MPSRET 

MPSRFA 

MPSRMX 

HPSRPA 

MPSRPR 

MPSRRT 

MPSRST 

MPSRSV 

HPSRSZ 

MPSRTI 

MPSRTM 

MPSRVE 

MPSRVT 

MPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPtSCT 

HPSSDU 

MPSSDV 

MPSSEH 

MPSSER 

MPSSET 


000776 
0002H 
00076A 
0021 H 
00U53 
000777 
001022 
000777 
001010 
00437A 
000036 
000513 
002152 
000024 
OOOUA 
0021U 
000170 
000012 
000025 
002U0 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 
000144 
000000 


MPSSGZ 

MPSSID 

MPSSIN 

MPSSLI 

MPSSLO 

HPSSMX 

MPSSND 

HPSSNP 

MPSSNU 

MPSSOB 

MPSSPA 

MPSSPR 

MPSSPS 

MPSSTA 

MPSSTI 

MPSSTT 

MPSSTY 

MPSSUB 

MPSSUR 

MPSSUS 

MPSSVR 

MPSSWI 

HPSSYP 

HPSTFL 

MPtTHI 

HP$TH2 

MP$TH3 

MPSTLN 

MPSTLO 

MPSTPA 

MP$TR1 

MPSTST 

MPSTYP 

MPSUCS 

MPSUSR 

MPSVEC 

MPSVER 

MPSWDF 

HPSWfIX 

MPSXMT 

MPSXPF 

MPSXPL 

MPSXPT 

MPSXXX 

«P$5ST 

MSSACT 

MSSADU 

MSSALO 

MSSASE 


001644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 

000000 

002140 

002201 

000175 

000001 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004375 

002164 

000144 

002130 

004407 

001750 

004410 

004406 

002165 

002177 

002166 

000242 

000244 

000240 

Mim 

00^'<0t 

000001 

000010 

000007 

000006 


.  ABS.  000104 
000722 
Efrors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


HSSATR 

HSSAUT 

HSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 

MSSGLO 

HSSHOL 

MSSINA 

HSSLOA 

HSSLOO 

HSSOFF 

MSSON 

HSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

HSSRSX 

MSSRT 

MSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

HS$TER 

MSSTOP 

MSSTRI 

MSSUNR 

MSSVHS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MTSBIL 

MTSBYS 

MT$CI 

MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

MTSETH 

MTSHEX 

MTSLPB 

MTSMAX 

MTSMUL 


000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
000001 
000004 
000006 
000040 
000005 
000037 
000100 


MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

MTSPHA 

MTSPOI 

HT$QP2 

MTSROU 

MT$R04 

MTSSEC 

MTSSGD 

MTSSYS 

MTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

MT$X25 

MUSINC 

MUSOUT 

MUSPER 

HVJIII 

MV$1V 

MXSACT 

MXSCIR 

MXICLN 

HXSCNM 

MXSCON 

MXSDAC 

MXSDTE 

MXSFIL 

MXSLGC 

MXSLIN 

MXSLON 

MXSNMS 

HXSNOD 

MXSOBJ 

MXSOWN 

MXSPAR 

MXSPAS 

MXSRAC 

MXSRID 

MXSRPS 

MXSSID 

MXSSNK 

MXSTYP 

MXSUID 

M$$CRB= 

M$$CRX= 


000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
000040 
000036 
000010 
000047 
000047 
000047 
000040 
000377 
000077 
000020 
000124 
000000 


M$$FCS= 

M$$MGE= 

H$$NET= 

M$$OVR= 

NM.CLN 

NH.INI 

NH.OPR 

NH.VR2 

NM.VR3 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$HLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

OVR 

OVRL  = 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANH 

SFSDNM 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

W.BATT 

U.BFPD 

W.BHVR 

U.BLGH 

U.BLPD 

W.BLVR 

U.BNPD 

U.BOFF 

W.BPCB 

W.BSIZ 

X$$DBT= 

$FMTDV= 

$HEADR= 

$SAVRG= 

$$$SYS= 

$$$SYX= 


000000 

000000 

000000 

000000 

003400 

002400 

003000 

002401 

002402 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

OOOOOOR 

000060 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000001 

000002 

000000 

007600 

000000 

000000 

001000 

000006 

000014 

000004 

000020 

000016 

000002 

000015 

000012 

000000 

000010 

000000 

******  (5x 

******  GX 

******  GX 

004374 

000000 
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ALXXIN  -  ALIAS    INITIALIZATION   C 
CHKSCO  -   CHECK   SCOPE    PARAMETER 

301  000422     016001     OOQOOOC 

302 

303 

30A 

305  000426 

306  000432 

307  000434 

308  000440 

309  000442 

310  000444 

311  000452 

312  000454 

313  000460 

314  000464 

315  000472 

316  000474 

317  000506 

318  000512 
319 

320  000514 

321  000516 

322  000522 

323  000524 
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026101     000002 

001403 

016101     000002 

000772 

011102 

026227     OOOOOOG  044524 

001004 

017701  OOOOOOG 

016101  OOOOOOG 

032761  000004  000010  8$: 

001005 

010164     000020 


103003 

012700  177760 

000261 


MOV     <H.LUN+<4*<$TMLUN-1»>(R0),R1  ; ;  GET  THE  DEVICE'S  UCB  ADDRESS 


IS  DEVICE  REDIRECTED? 

IF  EQ,  NO 

ELSE,  FOLLOW  REDIRECTION 

POINT  TO  DCS 

IS  THIS  FOR  TI:? 

IF  NE,  NO 

ELSE,  GET  OUR  TCB  ADDRESS    ;  RJK02 

AND  POINT  TO  TI:'S  UCB 

IS  IT  A  TERMINAL  ? 

IF  NE,  YES  -  SAVE  THE  ADDRESS 

ELSE  SET  THE  USER  C-BIT 

SAVE  THE  UCB  ADDRESS 

RETURN  TO  USER  STATE 

IF  CC,  RETURN 

SET  ILLEGAL  PARAMETER  VALUE  ERROR 


.ENDC 

;  DF  R$$MPL 

5$: 

CMP 

U.RED(R1),R1 

BEO 

7$ 

MOV 

U.RED(R1),R1 

BR 

5$ 

7$: 

MOV 

(R1),R2 

CMP 

D.NAMtR2),#"TI 

BNE 

8$ 

MOV 

3TKTCB,R1 

MOV 

T.UCB(R1),R1 

8$: 

BIT 

#DV.TTY,U.CW1(R1) 

BNE 

10$ 

RETC 

RO 

10$: 

MOV 
RETURN 

R1,A$SC0(R4) 

20$: 

BCC 

40$ 

30$: 

MOV 
SEC 

#ME.PVA,R0 

40$: 

RETURN 

ALXXIN  -  ALIAS  INITIALIZATION 
CHKPAR  -  CHECK  PARAMETER  TYPE 
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68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 

88  000000 

89  000000 
90 

91  000004 

92  000010 
93 

94  000016 

95  000022 

96  000030 

97  000032 
98 

99  000036 

100  000042 

101  000050 
10?  000052 
105  000060 
104 

105  000062 

106  000064 
107 

108  000066 

109  000072 

110  000074 

111  000100 

112  000102 
113 

114 
115 

116  000104 

117  000110 

118  000116 

119  000122 

120  000124 

121  000130 

122  000132 
i:3  000136 
124  000140 


.SBTTL  ARREIN  -  READ  AREA  STATUS  INITIALIZATION 

»♦*  -  ARREIN  -  READ  AREA  STATUS  INITIALIZATION 

INPUTS: 

RO  =  OPTION  WORD  (STATUS/SUMMARY/CHARACTERISTICS. 

R1  =  ID  BUFFER  ADDRESS 

R2  =  LENGTH  OF  DATA  IN  INPUT  BUFFER  (ZERO) 

R3  =  ADDRESS  OF  INPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA 

SMBLUN  ALREADY  ASSIGNED  TO  "NS:"  DEVICE 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

RO  =  NICE  PROTOCOL  RETURN  CODE 

R2  =  LENGTH  OF  INFORMATION  IN  OUTPUT  BUFFER 

R3-R5  =  PRESERVED 


004567  OOOOOOG 

010064  000010 

112764  000077  000006 

012700  177773 

026427  177776  000027 

002002 

000167  000420 

012700     177777 

032764     177717     000010 

001370 

022764  000060  000010 

001764 

005702 
001362 

112164  000004 

100404 

112164  000004 

003025 

000416 


005064  000004 

052764  000002  000000 

124127  Mini 

001414 

121127  177776 

001411 

121127  177773 

001406 

012700  177767 


ARREIN:: 

JSR  R5,$SAVRG 

MOV  R0,A$OP,"(R4) 

MOVB  #MXAREA,A$MAX(R4) 

MOV  #ME.MPR,RO 

CMP  -2(fi4),*A$LENX 

BGE  20$ 

10$:    JMP  150$ 

20$:    MOV  #ME.FUN,RO 

BIT  #*C<M0$C0U>,A$0PT(R4) 

BNE  10$ 

CMP  #M0$COU,A$OPT(R4) 

BEQ  10$ 

TST  R2 

BNE  10$ 

MOVB  (R1)+,A$NUH(R4) 

BMI  30$ 

MOVB  (R1)+,A$NUM(n4) 

BGT  50$ 

BR  40$ 

KNOWN,  ACTIVE,  SIGNIFICANT  AREAS 


50$: 


40$: 


CLR 

A$NUM(R4) 

BIS 

#AF.KN0,A$FLG(R4) 

CMPB 

-(R1),#MF$KN0 

BEQ 

50$ 

CMP8 

(R1),#MF$ACT 

BEQ 

50$ 

CMPB 

(R1),#MF$SIG 

BEQ 

50$ 

MOV 

#ME.IID,RO 

SAVE  R3-R5 

SAVE  THE  OPTIONS  WORD 
ASSUME  LIMIT  IS  MAXIMUM 

ASSUME  CONTEXT  AREA  TOO  SMALL 
IS  CONTEXT  AREA  TOO  SMALL  ? 
IF  GE,  OK 
IF  LT,  YES  ..  ERROR 

ASSUME  ILLEGAL  OPTION 
CHECK  FOR  ILLEGAL  OPTIONS 
IF  NE,  ERROR 
COUNTERS  SPECIFIED? 
BR  IF  YES  -  ILLEGAL 

ANY  INFORMATION  IN  BUFFER  ? 
IF  NE,  ERROR 

CHECK  ID  FORMAT 
IF  MI,  PLURAL  AREAS 
CHECK  RANGE  IF  ENTITY-ID 
IF  6T,  NOT  PLURAL  AREAS 
ELSE  AREA  0  -  NOT  VALID 


START  KNOWN  SCAN  FROM  AREA  1 

ALL  PLURALS  LOOK  I  IKE  KNOWN 

IS  IT  A  VALID  TYPE  ? 

IF  EQ,  YES 

IS  IT  A  VALID  TYPE  ? 

IF  EQ,  YES 

IS  IT  A  VALID  TYPE  ? 

IF  EQ,  YES 

ELSE,  INVALID  ENTITY  ID 
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1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 


.TITLE  ARREOP  -  AREA  READ 

.IDENT  /V05.00/ 

.ENABL  LC 

.NLISr  CND 


INFORMATION  OPERATE 


COPYRIGHT  (C)  1983,  1984,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  AREA  READ  INFORMATION  OPERATE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  25-MAR-83      Dave  Rachlis 
INITIAL  CREATION. 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  V4.2 
DECnet-IIM-PIus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Symbol  table 

MDtHEL 

MDSKCP 

MDtKDP 

MDSKDZ 

MD$KL 

MDSKMX 

MDSKMY 

MDSLEN 

MDSPCL 

MDSQNA 

MDSUNA 

MDIUIT 

MD.ABO 

MD.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

HD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

HD.LSH 

MD.NOB 

MD.NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSH 

MD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

MD.UNR 

MD.UOB 

MD . VOL 

MESALI 

ME$AL2 

MESARE 

MESCIR 

MESEXA 

MESEXE 

MESLIN 

ME SLOG 

MESMOD 

MESNOD 

MESNON 

ME  SOB J 

MES0B2 

MESPRO 

MESSY5 

ME.BLO 

ME. CON 

ME.CST 

ME.DIS 
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000002 

HE. DON 

177600 

MOSACC 

000200 

MPS8SD 

002203 

MPSGDT 

002222 

000013 

ME.FCO 

177762 

MOSADD 

000002 

MPSBSI 

002200 

MPSGNM 

002223 

00003A 

HE.FIO 

177756 

MOSALA 

000004 

MPSBSP 

006331 

MPSGRO 

002115 

U  \J  \/  w  .^  ■ 

000'  36 

ME. FOP 

177763 

MOSALJ 

000000 

MPSBUF 

000170 

MPSGRP 

000541 

000U40 

ME. FOR 

177776 

MOSCHA 

000040 

MPSBUP 

006324 

HPS6TY 

002224 

OOOOS^i 

ME. FUN 

177777 

MOSCIR 

000003 

MPSBUS 

001643 

HPSHAD 

001757 

000052 

ME.GRO 

177745 

HOSCLE 

000100 

MPSCAC 

001750 

MPSHBT 

W^J^A 

V  V  V  \^  .^  L_ 

000050 

ME.HAR 

177750 

HOSCOU 

000060 

MPSCAS 

001762 

MPSHDD 

000162 

000011 

ME.IID 

177767 

MOSDAC 

000000 

HPSCAT 

552219 

MPSHTM 

001612 

000005 

ME.LCO 

177766 

MOSDEF 

000000 

MPSCCS 

004406 

MPSHWA 

002210 

\j  \j  \j  \/^^  J 

000001 

ME.LPR 

177757 

MOSDPR 

000000 

MPSCHN 

002141 

HPSIAT 

001322 

000002 

ME.MPR 

177773 

MOSENT 

000017 

MPSCIR 

000144 

HPSIDE 

000144 

000017 

ME.MVE 

177771 

MOSEVE 

000100 

MPSCLK 

55?15] 

HPSIDP 

006327 

000010 

ME. OPE 

177747 

MOSINF 

000160 

HPSCLN 

002126 

MPSIHO 

000215 

V  V  V  V  I  ^/ 

000016 

HE.PLO 

177751 

MOSINS 

000002 

HPSCLT 

002211 

MPSINA 

002177 

000011 

ME.PMI 

177743 

MOSLIN 

000001 

MPSCMB 

002142 

MPSIND 

002204 

000007 

ME.PNA 

177752 

MOSLOG 

000001 

MPSCMK 

000537 

HPSINI 

002201 

000015 

HE.PRI 

177775 

HOSMIR 

000031 

MPSCMX 

002153 

MPSITI 

000776 

000002 

HE.PTY 

177772 

MOSNAM 

000001 

MPSCND 

000310 

MPSLAA 

000231 

OOOOU 

ME.PVA 

177760 

HOSNIC 

000023 

MPSCNU 

001753 

MPSLAN 

000234 

U  W  V  V  ■  T 

000001 

ME. RES 

177761 

MOSNOD 

000000 

MPSC08 

000311 

MPSLAR 

000202 

000006 

ME.ROO 

177754 

MOSOFF 

000001 

MPSCON 

002126 

MPSLAS 

000012 

000001 

ME.SI2 

177774 

MOSON 

000000 

MPSCOS 

001604 

MPSLBS 

000203 

000020 

HE. SYS 

177746 

HOSOPT 

000001 

MPSCPF 

000230 

MPSLCO 

000226 

000012 

ME.UCO 

177770 

MOSPER 

000200 

MPSCPL 

000232 

MPSLCT 

000156 

M7777 

MFSACT 

177776 

MOSPRO 

000002 

MPSCPT 

000226 

MPSLHL 

000232 

000000 

MFSADD 

000000 

MOtPRS 

000001 

MPSCPU 

000161 

MPSLLE 

000227 

000004 

MFSADJ 

177774 

MOSREA 

000200 

MPSCSZ 

001755 

MPSLLO 

004432 

000005 

HFSALL 

177775 

MOSSET 

000000 

MPSCUS 

002127 

MPSLMB 

002152 

000013 

MFSBYE 

000300 

MOSSTA 

000020 

MPSCVA 

000540 

MPSLMX 

SS^?99 

000005 

MFSCHA 

000023 

MOSSUM 

000000 

MPSDAL 

552570 

MPSLNA 

000144 

000003 

MFSDUM 

000020 

MOSTSK 

000000 

HPSDC0= 

001464 

MPSLNO 

000233 

000000 

MFSEVT 

000001 

MOSVOL 

000000 

HPSDDT 

002177 

HPSLOA 

000170 

OOOOOA 

MFSFUP 

000264 

HOSZER 

000000 

HPSDEL 

55U^] 

HPSLOG 

004514 

000002 

MFSKNO 

177777 

HPSACB 

000012 

HPSDES 

000156 

MPSLOO 

000620 

000003 

MFSLOA 

000017 

MPSACC 

000514 

MPSDEV 

0021H 

HPSLTM 

SS]^ll 

000007 

MFSLOO 

177775 

MPSACT 

004526 

MPSDFA 

001320 

HPSLTY 

004533 

000006 

HFSREA 

000024 

MPSADD 

000766 

MPSDHO= 

001465 

MPSLUI 

000230 

000010 

MFSSIG 

177773 

MPSADJ 

001440 

MPSDIA 

000173 

MPSMAC 

004420 

000003 

MFSSPF 

000302 

MPSADP 

006325 

MPSDLB 

002571 

MPSMAD 

001630 

000005 

MFSSYS 

000026 

HPSADS 

004406 

MPSDLG 

004521 

MPSMAP 

006323 

000003 

MFSTES 

000022 

MPSALB 

000036 

MP$DLI= 

001466 

MPSHAR 

001635 

000000 

MFSTRA 

000301 

MPS AM C 

001640 

HPSDLT 

002200 

MPSMAV 

006321 

000200 

HFSTRI 

000021 

MPSAMH 

001641 

MPSDRO 

001441 

MPSMBN 

001636 

000001 

MFSZER 

000025 

MPSAN8 

004420 

MPSDST 

000454 

MPSMBR 

001637 

000002 

MLSALL 

100000 

MPSASB 

000024 

MPSDTE 

002140 

MPSMBU 

551^^? 

000004 

MLSCLS 

000000 

MPSASC 

004432 

MPSDTY= 

001452 

MPSMCB 

000156 

000000 

MLSCON 

000001 

MPSAUS 

000512 

MPSDUA 

000207 

MPSMCO 

001632 

\77777 

MLSEXT 

000001 

MPS8BT 

002165 

HPSDUC 

000210 

MPSMDE 

55^^?1 

000007 

MLSFIL 

000002 

MPS8DF 

002164 

HPSDUH 

000202 

MPSMHO 

001633 

000004 

MLSFIR 

000000 

MPSSFO 

002121 

MPSDUP 

002127 

MPSMLB 

000202 

000005 

MLSINT 

000000 

MPSBLK 

001616 

MPSDVC 

002114 

MPSMLK 

291506 

000006 

MLSKNO 

140000 

MPSBLO 

001452 

MPSDWE 

001321 

MPSMLN 

001631 

177744 

MLSMON 

000003 

MPSBMX 

002176 

MPSELT 

000157 

MPSMLP 

006333 

177753 

MLSSYS 

000002 

MPS8NP 

006330 

MPSETY 

001605 

MPSMRB 

002171 

177765 

HLSTOP 

000001 

MPSBRT 

001620 

HPSEVE 

000311 

MPSMRO 

001605 

177755 

MNSUNL 

000377 

MPSBSA 

002176 

MPSFNC 

001752 

MPIMRP 

006322 
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000270 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
0000A1 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000000 


000124 

000000 
000001 
000002 
000003 
000004 
000005 


000020 


000000 


;  CONTEXT  AREA  OFFSET  DEFINITIONS 

.ASECr 

.  =  0 

LSNLEN  =16.  ;  MAXIMUM  NAME  LENGTH 

■  The  offsets  L$NAM  to  LSPDV  incLusiue  must  appear  in  the  same  order 
;  as  in  the  CIRCXS  and  LOCCXS  macros. 

LSNAM. 

DEVICE  NAME 

CONTROLLER  NUMBER 

UNIT  NUMBER 
,  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
...  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  Length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


LSDDM 

.BLKW 

1 

L$CTL 

.BLKB 

1 

L$UNT 

.BLKB 

1 

LSPVC 

.BLKW 

1 

.  =  0+L$NLEN 

L$SCN 

.BLKB 

LSNLEN 

L$TRB 

.BLKB 

1 

L$PFG 

.BLKB 

1 

L$SLT 

.BLKW 

1 

LSNXT 

.BLKW 

1 

LSSNM 

.BLKW 

1 

L$TPT 

.BLKW 

1 

L$TNM 

.BLKB 

1 

LtCTB 

.BLKB 

1 

L$CHN 

.BLKB 

1 

LSPDV 

.BLKB 

1 

LSMSG 

.BLKW 

1 

LSBUF 

.BLKW 

1 

LIOPT 

.BLKB 

1 

LSTYP 

.BLKB 

1 

LSFLG 

.BLKW 

1 

LSSLE, 

\l:  .BLKB 

1 

LSPRO 

LSMTY 

=:  .BLKB 

1 

LSTSZ 

LSLTM 

LSFLX 

.BLKW 

1 

LSSCR 

.BLKW 

7 

LSADJ 

.BLKW 

1 

LSNOD 

.BLKW 

1 

LSCOU 

.BLKW 

1 

LSPLB 

•   .BLKW 

1 

LSPAR 

•   .BLKW 

1 

LSSYL 

•   .BLKW 

1 

LSLEN 

.PSECT 

;  OFF 

SETS  INTO 

SCRATCH 

• 

.ASECT 

.=0 

R$5: 

.BLKB 

1 

B$6: 

.BLKB 

1 

B$7: 

.BL^o 

1 

B$10: 

.BLKB 

1 

S$11: 

.BLKB 

1 

B$12: 

.BLKB 

1 

BASF 

TABLE 

5 

RASP 

TABLE 

6 

BASF 

TABLE 

/ 

BASF 

TABLE 

10 

BASF 

TABLE 

11 

BASE 

TABLE 

12 
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516 

517  00U06 

518  00K10 

519  00K12 

520  OOUU 

521  00U20 

522  00U22 

523  00U2A 
524 

525 
526 

527  00U26 

528  00H30 

529  00U32 

530  00U34 

531  00H36 

532  00U40 
533 

53A 
535 

536  00UA2 

537  OOUAA 

538  00U46 

539  00U50 

540  00K54 

541  00U56 
5A2  0OU6O 

543  001464 

544  001466 

545  001470 

546  001472 

547  001476 

548  001502 

549  001504 

550  001506 

551  001514 

552  001522 
553 

554 
555 

556  001524 

557  001526 

558  001530 

559  001536 

560  001540 

561  001542 

562  001546 
563 

564  001550 
565 

566  001552 

567  001554 

568  001556 

569  001560 
570 

571 
572 


005302 
020102 
001044 
020163 
001475 
005343 
000405 


060C02 
020102 
103470 
001355 
005743 
005243 


012302 
062302 
005302 
020263 
001405 
005202 
020263 
001053 
005213 
005313 
061363 
016323 
020305 
103774 
162766 
042764 
000434 


024343 
010500 
032764 
001004 
022525 
010566 
000401 

024040 

020003 
101412 
014045 
000774 


000002 


000002 
000002 


177774 
000004 


000004 
000002 


OOOOOOG 
000000 


DEC 

R2 

CMP 

R1,R2 

RNF 

40i 

CMP 

R1,2(R3) 

RFQ 

90i 

DEC 

-(R3) 

BR 

30$ 

■  CHECK 

HIGH 

BOUND  OF  CURRENT  ENTRY 

50$: 

ADD 

R0,R2 

CMP 

R1.R2 

RIO 

90i 

RNF 

10$                ; 

TST 

-(R3) 

30$: 

INC 

-(R3)               ; 

\    CHECK 

FOR 

ADJACENT  ENTRIES  THAT  CAN  BE 

MOV 

{R3)+,R2 

ADD 

(R3)+,R2 

DEC 

R2 

CMP 

R2,2(R3) 

BEQ 

33l 

INC 

R2 

CMP 

R2,2(R3) 

BNE 

90i 

INC 

(R3) 

33$: 

DFC 

(R3) 

ADD 

(R3),-4(R3) 

57$: 

MOV 

4(R35,(R3)+ 

CMP 

R3.R5 

Rin 

37§ 

SIIR 

#4,R$R5(SP) 

BIC 

*NF.0VR,N$FLAG(R4) 

BR 

90$ 

SEE  IF  NEW  ADDRESS  IS  CONTIGUOUS 

IS  IT  ADJACENT  ? 

IF  NE,  NO  -  CAN'T  EXTEND  THIS  ENTRY 

ELSE,  DOES  NEXT  ENTRY  INCLUDE  THIS  ONE? 

IF  EQ,  YES  -  LEAVE  IT  ALONE 

ELSE  REDUCE  LOW  BOUND 

GO  INCREASE  CARDINALITY  AND  EXIT 


GET  HIGH  ADDRESS  IN  SET 
COMPARE  AGAINST  HIGH  ADDRESS 
IF  LO,  ALREADY  IN  SET 
IF  NE,  GREATER  BY  MORE  THAN  ONE 
ELSE  LEAVE  HIGH  BOUND  ALONE, 
INCREASE  CARDINALITY 


GET  SIZE  OF  CURRENT  ENTRY.. 

..HIGH  ADDR.  OF  CURRENT,  POINT  TO  NEXT 

ADJUST  HIGH  ADDRESS 

DO  ENTRIES  OVERLAP  ? 

IF  EQ,  YES 

SEE  IF  THEY  ABUT 

DO  THEY  ABUT  ? 

IF  NE,  NO 

NO  OVERLAP  NODE  -  LEAVE  COUNT  ALONE 

DON'T  COUNT  OVERLAP  NODE  TWICE 

EXTEND  PREVIOUS  ENTRY 

CLOSE  UP  THE  LIST 


RECLAIM  SPACE  AT  LIST  END 
CLEAR  OVERFLOW  BIT 
DONE 


ADD  A  NEW  ENTRY  IN  THE  MIDDLE  OF  THE  LIST 


000002  000000 


OOOOOOG 


40$:    CMP  -(R3),-(R3) 

MOV  R5,R0 

BIT  #NF.0VR,N$FLAG(R4) 

BNE  50$ 

CMP  (R5)+,(R5)+ 

MOV  R5,R$R5(SP) 

BR  60$ 

50$:    CMP  -(R0),-(RO) 

60$:    CMP  R0,R3 
BLOS    75$ 

MOV  -(R0),-(R5)  ; 

BR  60$  ; 

ADD  A  NEW  ENTRY  AT  THE  END  OF  THE  LIST 


POINT  TO  LAST  ENTRY 

COPY  POINTER 

IS  CONTEXT  AREA  FULL  ? 

IF  NE,  YES  -  JUST  COPY 

ELSE  CLEAR  SPACE  FOR  NEW  ENTRY 

UPDATE  SAVED  R5 


DROP  LAST  ENTRY 

EVERYTHING  SLID  DOWN 
IF  LOS,  YES 
SLIDE  A  WORD  DOWN 
CONTINUE 


J  9 

BLNLST  -  BUILD  NODE  LIST  IN  CON  MACRO  V05.03b  Saturday  29-Jun-85  12:08 
SAVCTX  -  SAVE  NODE  CONTEXT 
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I  10 

BLNLST     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:09     PAGE  7 

MACRO  CROSS  REFERENCE  CREF   OA.OO 


MACRO  NAME 

REFERENCES 

AOJDfS 

#5-51 

5-74 

ALUNSS 

#5-52 

BIAS 

#5-52 

10-209 

10-234 

14-391 

'4-416 

CALL 

8-130 

8-132 

9-162 

10-227 

10-243 

U-A25 

15-447 

15-454 

16-482 

CEACCS 

#5-53 

15-447 

CIRCXS 

#5-53 

5-87 

CTRDFS 

#5-52 

5-68 

BHBDFS 

#5-53 

5-75 

ECDDBS 

#5-52 

5-70 

HDRDFS 

#5-52 

5-71 

IHSGS 

#5-53 

HANDFS 

#5-51 

5-66 

MAP 

#5-51 

10-206 

12-300 

14-388 

MAPECL 

#5-58 

12-298 

HAPXPT 

#5-62 

10-203 

14-385 

NORCXS 

#5-53 

5-85 

PDVDFS 

#5-52 

5-69 

RE  SWAP 

#5-51 

8-133 

RESRG 

#5-51 

9-163 

RETURN 

8-134 

9-186 

10-244 

11-284 

12-316 

RNBDFS 

#5-51 

5-67 

SAVMAP 

#5-51 

8-131 

SAVRG 

#5-51 

9-161 

SERDFS 

#5-53 

5-76 

SOS 

U-410 

SWSTKS 

8-130 

XPDDBS 

#5-52 

5-72 

XPTDFS 

#5-52 

5-73 

11-267    11-279    12-313    13-340    14-408 


13-368     14-411     14-426     15-457     16-591 


♦  *file«md>«chk;cir 
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1  11 

CHKCIR 

CREATED 

BY 

MACRO  ON  29 

-JUN-85  AT 

17:41 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF 

04.00 

SYMBOL 

VALUE 

REFERENCES 

LtMSG 

000056 

#5-63 

LSMTYP 

000067 

#5-63 

LtNAM 

000000 

#5-63 

LSNLEN 

=  000020 

#5-63 

5-63 

5-63 

L$NOD 

000112 

#5-63 

LtNXT 

000044 

#5-63 

L$OPT 

000062 

#5-63 

L$PAR 

000120 

#5-63 

L$PDV 

000055 

#5-63 

LSPFG 

000041 

#5-63 

*7-95 

L$PLB 

000116 

#5-63 

L$PRO 

000067 

#5-63 

LSPVC 

000004 

#5-63 

LSSCN 

000020 

#5-63 

LSSCR 

000072 

#5-63 

LSSLEN 

000066 

#5-63 

L$SLT 

000042 

#5-63 

LSSNM 

000046 

#5-63 

L$SYL 

000122 

#5-63 

LSTNM 

000052 

#5-63 

LtTPT 

000050 

#5-63 

LSTRB 

000040 

#5-63 

LSTSZ 

000070 

#5-63 

L$TYP 

000063 

#5-63 

•  7-98 

LIUNT 

000003 

#5-63 

ME.IID 

177767 

7-108 

MFSACT 

177776 

7-93 

MFSSIG 

-77773 

7-91 

PRSCIR 

~      *+*♦** 

GX 

7-104 

CHKCIR     CREATED  BY  MACRO  ON  29-JUN-85  AT  17:41 
MACRO  CROSS  REFERENCE  
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PAGE  3 

CREF   04.00 


CHKLIN 


CREATED  BY  MACRO  ON  ?9-JiJN-85  AT  17:12 


SVMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


1  12 

PAGE  1 

CREF   04.00 


BITO 

BIT1 

B1T10 

B1T11 

B1T12 

BIT13 

BIT11 

BIT15 

BIT2 

BIT3 

BIT4 

BITS 

BIT6 

BIT7 

BITS 

BIT9 

B$10 

B$n 

B$12 

B$5 

Bt6 

B$7 

B$7S10 

CHKLIN 

LFSEND 

LFSMLT 

LFSREA 

LFSSEG 

LFSSIG 

LFSSKP 

LF$VR2 

LFSZER 

LPSMPT 

LPSMUX 

LPSTRB 

LPSUNT 

LPSWCN 

LPSWDV 

LPSWLD 

LPSWTR 

LPSWUN 

LSADJ 

L$BUF 

LSCHN 

LSCOU 

L$CTB 

LSCTL 

LSDDM 

LSFLG 

L$FLX 

LSLEN 

L$LTM 


^-  000001 

=  000002 

=  002000 

=  OOAOOO 

=  010000 

:-  020000 

=  040000 

=  100000 

=  000004 

=  000010 

=  000020 

=  000040 

=  000100 

=  000200 

=  000400 

=  001000 
000003 
000004 
000005 
000000 
000001 
000002 
000006 
000000  RG 

=  000020 

=  040000 

=  000001 

=  100000 

=  000040 

=  000004 

=  000010 

=  000002 

=  000010 

=  000004 

=  000002 

=  000001 

=  000040 

=  000020 

-  000360 

=  000200 

=  000100 
000110 
000060 
000054 
000114 
000053 
000002 
000000 
000064 
000070 
000124 
000070 


REFERENCES 

#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#7-87 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 


7-95 
6-63 
6-63 

6-63 
6-63 


7-95 
7-95 


7-95 
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CKHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85 
SET  CIRCUIT  PARSE  TABLE 


1  13 

12:1 


0  Page  8-1 


137  000000 

138  00020A 

139  000000 
UO  000000 
Ul  0002U 
K2  000000 
U3  000000 
KA  00022^ 
U5  000000 
U5  000000 
U7  000234 
K8  000000 
U9  000000 

150  000244 

151  000000 

152  000000 

153  000254 

154  000000 

155  000000 

156  000264 

157  000000 

158  000000 

159  000274 

160  000000 

161  000000 

162  000304 

163  000000 

164  000000 

165  000314 

166  000000 

167  000000 
'68  000324 

169  000000 

170  000000 

171  000334 

172  000000 

173  000000 

174  000344 

175  000000 

176  000000 

177  000354 

178  000000 

179  000000 

180  000364 

181  000000 

182  000000 

183  000376 

184  000000 

185  000000 

186  000406 

187  000000 

188  000000 

189  000416 
190 

191 
192 
193  000000 


$NEXT 
FIELDS 

SSSEXP  STAD,,,LSSTAD,tL$FLG 

SNEXT 
FIELDS 

SSBEXP  SPLT,,,LS$PLT,+L$fLG 

SNEXT 
FIELDS 

SSBEXP  SS8T,,,LSSBST,tL$FLG 

SNEXT 
FIELDS 

SSBEXP  SNMT,,,LSSNMT,tLSFLG 

SNEXT 
FIELDS 

SSBEXP   SXMT,,,LSSXMT,+LSFLG 

SNEXT 
FIELDS 

SSBEXP  S8SA,,,LSSBSA,+LSFL1 

SNEXT 
FIELDS 

SSBEXP   SBSD,,,LSSBSD,+L$FL1 

SNEXT 
FIELDS 

SSBEXP   S8S1,,,LSSBSI,+LSFL1 

SNEXT 
FIELDS 

SSBEXP   SINA,,,LSSINA,+L$FL1 

SNEXT 
FIELDS 

SSBEXP  SIND,,,LS$IND,+LSFL1 

SNEXT 
FIELDS 

SSBEXP  SINI,,,LSSINI,+L$FL1 

SNEXT 
FIELDS 

SSBEXP  STH1,,,LS$TH1,+LSFL1 

SNEXT 
FIELDS 

SSBEXP   STH2,,,LSSTH2,+LSFL1 

SNEXT 
FIELDS 

SSBEXP  STH3,,,LSSTH3,+LSFL1 

SNEXT 
FIELDS 

SSBEXP  SMX8,END,,LSSMXB,+LSFL1 

SNEXT 
FIELDS 

SSBEXP   SACT,,,LSSACT,+L$FLG 

SNEXT 
FIELDS 

SSBEXP  SLOC,,,LSSNTL,+LSFLG 

SNEXT 

SNULL   ,END 

STATE  FOR  CLEAR  CIRCUIT  OPTIONS 
FIELDS  CLECIR 


Tributary 
PoU  timer 
Babble  timer 
Normal  timer 
TX  timer 
Active  base 
Dying  base 
Inactive  base 
Active  increment 
Dying  increment 
Inactive  increment 
Dead  threshold 
Dying  threshold 
Inactive  threshold 
Max  blocks 

Active  polling  ratio 
Location 


CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85 
SET  CIRCUIT  PARSE  TABLE 


J  13 

12:1 


0  Page  8-2 


CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  13-1 
OWNACT  -  CIRCUIT  OWNER  ACTION  ROUTINE 


I  H 

12:10 


692  000360 

693  000362 
69^  000366 

695  000370 

696  000376 

697  OOOAOO 

698  000A12 
699 

700  0004U 

701  00G'.16 
702 


00U07 
067702 
011202 
132762 
001005 


103050 
00042'f. 


OOOOOOG 
000004  000010 


BEQ 

10$ 

ADD 

aPDVTA.R2 
(R2),R^ 

MOV 

BUB 

#Zf.LLC,Z.FLG(R2) 

BNE 

20$ 

10!.: 

RETC 

RO 

20$: 

RETURN 

30$: 

BCC 

PAREND 

BR 

PVAERR 

.DSABL 

LSB 

IF  EQ,  ILLEGAL  (PROCESS  =  AUX) 

GET  THE  PDV  ADDRESS         ;  RJK05 

POINT  TO  THE  PDV  ;»*-1 

IS  THE  PROCESS  AN  LLC  ? 

IF  NE,  rES  -  LEGAL  OWNER 

SET  USER  C-BIT 

BACK  TO  USER  STATE 

IF    CC,    VALID  NAME 

ELSE,   PARAMETER   VALUE   ERROR 


J  U 

CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10 
TADACT  -  TRIBUTARY  ADDRESS  ACTION  ROUTINE 


Page  U 


CICHIN  - 
RETACT  - 

997 
998 
999 
1000 
1001 
1002 
1003 
100A 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 


!  15 

CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  26 
X.25  Circuit  recall  timer  action  routine 


.SSTTL  RETACT  -  X.25  Circuit  recall  timer  action  routine 
»**  RETACT  -  X.25  Circuit  recall  timer  action  routine 
INPUTS 


.MSGPT 
R4 


Pointer  to  recall  timer  parameter  value 
Pointer  to  context  area 


OUTPUTS 

L$RET(RU  Contains  recall  timer  parameter 


001066 

001066  016701  OOOOOOG 

001072  112164  000256 

001076  11116A  000257 

001102 


RETACT: 


MOV  . MSGPT, Rl 

M0V8  (Rl)+,LtRET(R4) 

MOVB  (R1),L$RET*1{R4) 
RETURN 


Get  pointer  to  data 
Get  low  byte  of  data 
Get  high  byte  of  data 
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PCf,BCD  -  Pack  string  of  digits  in  BCD  format 


CICHIN 
TH2ACT 


I  16 
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-  DYING  THRESHOLD  ACTION  ROUTINE 


125A 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
126A 
1265 
1266 
1267 
1268 
1269 
1270 


.SBTTL  TH2ACT  -  DYING  THRESHOLD  ACTION  ROUTINE 


TH2ACT  -  DYING  THRESHOLD  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POINTER  TO  1  BYTE  DYING  THRESHOLD 
R4     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

L$TH2(R4)  -  DYING  THRESHOLD  VALUE 


001354 

001360  11016A  000131 

00136'; 


tH2ACT:  CALL    CHKDMP 

Move    R1,L$TH2(R4) 
RETURN 


CHECK  FOR  DMP 

SAVE  DYING  THRESHOLD  VALUE 
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CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  40 
TH3ACT  -  INACTIVE  THRESHOLD  ACTION  ROUTINE 
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ALRf'M  -   ALIAS   READ    INFORMATION   INITIALIZE 


J     1 


i30  0000/6 

131  000102 

132  00010A 
133 

13A 

135 

136  000106 

137 

138 

139 

KO  000112 

HI   000116 

H2  000-'24 

H3  000130 

HA  000132 

145  OOOUO 

H6  OOOKA 

1A7  000152 

U8  000154 

U9  000162 

150  000166 

151  000172 

152  000174 
53  000200 
54 

155 
156 

157  000204 

158  000210 

159  000214 

160  000222 

161  000224 

162  000226 

163  000232 

164  000240 

165  000242 

166  000246 

167  000252 

168  000254 


012700 
005702 
001037 


012700 
012764 
105764 
001025 
012764 
016700 
032760 
001405 
012764 
012700 
105764 
003004 
012700 
005064 


012702 
016403 
052764 
110013 
100013 
005064 
116463 
001404 
105063 
012702 
000261 


177776 


50$: 


MOV 
TST 
BNE 


*ME.FOR,RO 

R2 

30$ 


ASSUME  ILLEGAL  INPUT  FORMAT 
ANYTHING  LEFT  IN  INPUT  BUFFER  ? 
IF  NE,  VES  -  ILLEGAL  INPUT 


SAVE  THE  NAMES  AND  SCOPES  OF  THE  ALIASES  REQUESTED  FOR  LATER  LOOK-UP 

CALL    SAVALI  ;  SAVE  THE  ALIAS(ES)  NAMES  AND  SCOPES 

FIGURE  OUT  IF  WE  UERE  SUCCESSFUL  OR  NOT 


000002 

177777     000020 

000010 

000010  000004 
OOOOOOG 
OOOOOOG  OOOOOOG 

000003  000004 

177770 

000011 

177600 
000004 


25$: 


MOV  #MS.MOR,RO 

MOV  #-1,A$SC0(R4) 

TSTB  A$NUM(R4) 

BNE  30$ 

MOV  #ME$ALI,A$PAR(R4) 

MOV  CURCTX.RO 

BIT  #CF$VR2,C$FLAG(R0) 

BEQ  25$ 

MOV  #ME$AL2,A$PARCR4) 

MOV  #ME.UCO,RO 

TSTB  A$TYP(R4) 

BGT  30$ 

MOV  #ME.DON,RO 

CLR  A$PAR(R4) 


ASSUME  SUCCESS,  WITH  MORE  TO  FOLLOW 

SET  UNIQUE  VALUE  FOR  OPERATE  ROUTINE 

UERE  ANY  ALIASES  FOUND  ? 

IF  NE,  YES  -  RETURN  WITH  STATUS 

SET  ERROR  DETAIL-ASSUME  NOT  V2.0  NCP 

GET  ADDRESS  OF  CONTEXT  AREA 

CONNECTED  TO  V2.0  NCP? 

BR  IF  NO 

ELSE  SET  V2.0  ENTITY  ID 

ASSUME  INVALID  ALIAS-ID  CNO  MATCHES) 

REQUEST  FOR  SPECIFIC  ALIAS  ? 

IF  GT,  YES  -  ERROR  (NO  ALIAS  FOUND) 

ELSE,  NONE  TO  DISPLAY  -  DONE  I 

CLEAR  ERROR  DETAIL 


000001 
000006 
000001  000000 


OOOOCO 
000004  000001 

000002 
000003 


USE  THE  STATUS  IN  RO  TO  BUILD  THE  RETURN  MESSAGE  AND  C-BIT  RETURN 


30$: 


40$: 
50$: 


MOV 

MOV 

BIS 

M0V8 

BPL 

CLR 

MOVB 

BEQ 

CLRB 

MOV 

SEC 

RETURN 


''1,R2 

A$BUF(R4),R3 

#AF.INI,A$FLG(R4) 

R0,(R3) 

50i 

A$FLG(R4) 

A$PAR(R4),1(R  :) 

40$ 

2(R3) 

#3,R2 


ASSUME  1  BYTE  RETURN  MESSAGE 

RESTORE  THE  BUFFER  ADDRESS 

ASSUME  INIT  WA":  SUCCESSFUL 

SET  THE  '  'TURN   DE 

IF  PL,  SulCES'    FINISHED 

ELSE,  UNSUCCEj-rUL  INIT 

SET  THE  PARAMETER  TYPE  IN  ERROR 

IF  EQ,  THERE  WAS  NONE 

ELSE,  MAKE  PARAMETER  TYPE  2  BYTES  LONG 

SET  LENGTH  OF  RETURN  TO  3  BYTES 

SET  ERROR  RETURN 
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SAVALI   -   SAVE   ALIAS   CONTEXT 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 
31 
32 
33 
Ik 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


.TITLE 
.IDENT 


ALREOP  -  ALIAS  READ  INFORMATION  OPERATE 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOP  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  ALIAS  READ  INFORMATION  OPERATE  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SYMBOL  CROSS  REFERENCE  CREF   04.00 


ALXXIN  - 

ALIAS 

INITIALIZATION  ( 

CHKPAR  - 

CHECK 

PARAMETEF 

TYPE 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

3A1 

342 

343 

344 

345 

346 

347 

000526 

348 

000526 

112346 

349 

000530 

112366 

000001 

350 

000534 

012700 

177743 

351 

000540 

162702 

000002 

352 

000544 

002410 

353 

000546 

021601 

354 

000550 

101006 

355 

000552 

012700 

177772 

356 

000556 

021601 

357 

000560 

001002 

358 

000562 

000241 

359 

000564 

000401 

360 

000566 

000261 

361 

000570 

005226 

362 

000572 

363 

364 

000001 
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.SBTTL  CHKPAR  -  CHECK  PARAMETER  TYPE 

**-CHKPAR-CHECK  PARAMETER  TYPE 

THIS  ROUTINE  IS  CALLED  TO  CHECK  THAT  THE  NEXT  PARAMETER  IN  THE 
INPUT  BUFFER  IS  OF  THE  TYPE  SPECIFIED. 

INPUTS: 

R1  =  PARAMEIER  TYPE  TO  CHECK  FOR 

R2  =  NUMBER  OF  BYTES  REMAINING  IN  INPUT  BUFFER 

R3  =  ADDRESS  OF  INPUT  BUFFER 


OUTPUTS: 

IF  C-CLEAR 

SUCCESS, 
IF  C-SET 

FAILURE, 


PARAMETER  TYPE  IN  R1, 
ERROR  CODE  IN  RO 


REGISTERS: 

R1,  R4  ARE  PRESERVED 


CHKPAR: 


10$: 
20$: 


MOVB 

MOVB 

MOV 

SUB 

BLT 

CMP 

BHJ 

MOV 

CMP 

BNE 

CLC 

BR 

SEC 

INC 

RETURN 

.END 


(R3)+,-(SP) 

(R3)+,1(SP) 

#ME.PMI,RO 

#2,R2 

lOi 

(SP),R1 

10$ 

#ME.PTY, 

CSP),R1 

10$ 

20$ 

(SP)  + 


,R0 


R2  AND  R3  UPDATED 


GET  PARAMETER  TYPE 

GET  HIGH  BYTE 

ASSUME  PARAMETER  MISSING 

SUB  LENGTH  OF  TYPE  FROM  BUFF  COUNT 

IF  LT,  ERROR 

IS  PARAMETER  MISSING? 

BR  IF  YES 

ASSUME  UNKNOWN  PARAMETER  TYPE 

ILLEGAL  PARAMETER 

IF  NE,  NO  -  ERROR 

CLEAR  CARRY 

AND  RETURN 

SET  ERROR  INDICATOR 

CLEAN  UP  STACK 


ALXXIN  -  ALIAS 
Symbol  table 
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125  OOOU^ 

126  000152 
127 

128 

129 

130 

131   00015^ 

152 

133  000160 

13A  00016A 

135  000170 

136  000172 

137  000174 

138  000176 

139  000202 
UO 

1A1  000206 
U2  000212 
U3  000216 
KA  000224 

145  000232 

146  000234 

147  000240 

148  000242 

149  000246 

150  000250 

151  000254 
152 

153 
154 
155 
156 
157 
158 
159 
160 
161 
162 

163  000260 

164  000264 
165 

166 
167 

168  000270 

169  000276 

170  000300 

171  000306 

172  000314 

173  000322 

174  000324 
175 

176 
177 

178  000332 

179  000340 

180  000542 

181  000350 


000005  000016 


OOOOOOG 
000014 


012764 
000541 


017700 
016000 
000300 
006200 
006200 
042700 
010064 


012702  114224 


MOV 
BR 


#HE$ARE,A$PAR(R4) 
150$ 


PARAMETER  =  AREA 
AND  EXIT  WITH  ERROR 


CHECK  FOR  XPT  AND  AREA  DATABASE.  MAKE  SURE  REQUESTED  AREA 
IS  KNOUN  IN  DATABASE.  DETRMINE  EXEC  NODE  TYPE. 


50$: 


177700 
000014 


012766 
012764 
103465 
067702 
011202 
005762 
001457 
010264 
016202 


177765  OOOOOOG 
000000  000016 

OOOOOOG 

000000 

000012 
000016 


017700 
016000 


052760 
001405 
052764 
052764 
052760 
001016 
042764 


052764 
001406 
016464 
042764 


OOOOOOG 
OOOOOOC 


000200  000014 

000040  000000 

000100  000000 

000100  000014 

000100  000000 


000002  000000 

000014  000004 
000002  000000 


60$: 


SWSTK$  110$ 


MOV 

MOV 

SUAE 

ASR 

ASR 

BIC 

MOV 

MOV 

CALL 

MOV 

MOV 

BCS 

ADD 

MOV 

TST 

BEQ 

MOV 

MOV 

.IF 

SAVHAP 

MOV 

MOV 

MOV 

RESMAP 

.IFF 

MOV 
MOV 

.ENDC 

BIT 
BEQ 
BIS 
BIS 
BIT 
BNE 
BIC 


aDECPT.RO 

D$LNUM(RO),RO 

RO 

RO 

RO 

#*C77,R0 

R0,A$EXA(R4) 

#»RXPT,R2 

aPDVID 

#ME.CST,R$RO(SP) 

#ME$N0D,A$PARCR4) 

90$ 

aPDVTA,R2 

(R2),rJ 

Z.DSP(R2) 

90$ 

R2,A$XPT(R4) 

Z.DAT(R2),R2 

DF,R$$MPL 


aSAHDS,aKSAR6 

aSAHPT.RO 

H.LUN+«$MBLUN-1>*4>(R0) 


ENTER  SYSTEM  STATE 

GET  DECNET  HOME  BLOCK  ADDRESS;  RJK05 

EXEC  ADDRESS 

GET  EXECUTOR  AREA 


ISOLATE  LOW  ORDER  BITS 
SAVE  EXECUTOR  AREA 

ELSE  SET  UP  PROCESS  NAME 

GET  PDV  INDEX  ;  RJK03 

ASSUME  COMPONENT  IN  WRONG  STATE 

..(EXECUTOR)  NODE 

IF  CS,  NO  XPT  PROCESS  I 

POINT  TO  PDV  ADDRESS        ;  RJK03 

POINT  TO  PDV 

PROCESS  LOADED  ? 

IF  EQ,  NO  ! 

SAVE  PDV  POINTER 

POINT  TO  PROCESS  DDB 


SAVE  CURRENT  KISAR6  MAPPING 
MAP  TO  MY  EXTERNAL  HEADER 
POINT  TO  THE  HEADER 
RO  ;;  POINT  TO  NS:  UCB 
;  RESTORE  PREVIOUS  KISAR6 


;  DF  R$$MPL 

aHEADR.RO  ;;  POINT  TO  TASK  HEADER 

H.LUN+«$MBLUN-1>«4>(R0),R0  ; ;  POINT  TO  NS:  UCB 

;  DF  R$$MPL 

#NF.END,U.CW5(R0) 

60$ 

#AF.END,A$FLG(R4) 

#AF.LV2,A$FLG(R4) 

#NF.LV2,U.CW3(R0) 

80$ 

#AF.LV2,A$FLG(R4) 


RJK03 


IS  THIS  AN  ENDNODE  ? 

IF  EQ,  NO 

ELSE  REMEMBER  IT 

ASSUME  AREA  ROUTER 

IS  EXECUTOR  AN  AREA  ROUTER 

IF  NE,  YES 

NO 


END  NODE  OR  LEVEL  1  ROUTER:  ONLY  KNOW  ABOUT  EXECUTOR  AREA 


BIT  #AF.KN0,A$FLG(R4) 

BEQ  701 

MOV  A$EXA(R4),A$NUM(R4) 

BIC  #AF.KN0,A$FLG(R4) 


PROCESSING  PLURAL  ENTITIES  ? 
IF  EQ,  NO 

JUST  KNOW  ABOUT  EXECUTOR  AREA 
ONLY  RETURN  INFO  FOR  1  AREA 
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ARREOP  -  AREA  READ  INFORMATION 
MACRO  CALLS  AND  LOCAL  DATA 

51 
52 
53 
5A 
55 
56 
57 
58 

59  000000 

60  000000 

61  000000 

62  000000 

63  000000 
6A  000000 
65  000000 
66 
67  000000 
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.S8TTL  MACRO  CALLS  AND  LOCAL  DATA 
LIBRARY  MACRO  CALLS 

.MCALL  MANDF$,XPDDB$,ADJDF$,PDVDF$,MBILD$,SLTDF$,DHBDF$,ARRCX$ 
.MCALL  SAVMAP,RESMAP,SAVRG,RESRG, MAP, BIAS, RETC,ASR$ 

ADJDFS  ;  DEFINE  ADJACENCY  OFFSETS 

DHBDFS  ;  DEFINE  DECNET  HOME  BLOCK 

HANDFS  ;  DEFINE  NETWORK  MANAGEMENT  FLAGS 

MBILDS  ;  DEFINE  MESSAGE  BUILD  SYMBOLS 

PDVDFS  ;  DEFINE  PDV  OFFSETS 

SLTDFS  ;  DEFINE  SLT  OFFSETS 

XPDDBS  ;  DEFINE  XPT  DATABASE  OFFSETS 


000004 

000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000027 
000000 


000000 


ARRCXS  LIST 

CONTEXT  AREA  DEFINITION 

.ASECT 
=  0 


000001 
000002 
000020 
000040 
000100 
000077 


69 

71 

72  000000 

73 


ASFLG 

.BLKU   1 

ASBUF 

.BLKW   1 

ASNUM 

.BLKW   1 

ASMAX 

.BLKW   1 

ASOPT 

.BLKW   1 

A$XPT 

.BLKW   1 

ASEXA 

.BLKW   1 

A$PAR 

.BLKW   1 

ASNAM 

.BLKB   7 

ASLEN 

<: 

.PSECT 

;  FLA 

3S  WORD  BIT  DEFINITION 

AF.INI  =       1 

AF.KNO  =       2 

AF.MUX  =      20 

AF.END  =      40 

AF.LV2  =      100 

MXAREA  =      63. 

;  LOC 

M    DATA 

DEFINE  CONTEXT  AREA 


FLAGS  WORD 

OUTPUT  BUFFER  ADDRESS 

AREA  NUMBER 

HIGHEST  AREA  IN  DATABASE 

SAVED  OPTIONS  WORD 

XPT  PDV  ADDRESS 

EXECUTOR  AREA 

PARAMETER  FOR  RESPONSE  MESSAGE 

NODENAME  BUFFER 


INITIALIZATION  FLAG 
KNOWN/ACTIVE/SIGNIFIGANT  AREAS 
CIRCUIT  IS  MUX 
EXECUTOR  IS  AN  ENDNODE 
EXECUTOR  IS  AN  AREA  ROUTER 
MAXIMUM  AREA  NUMBER 


TEMPORARY 
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MPSMRT 

MPSMRV 

MPSMSB 

MP$MVE 

MP$MVI 

MPSMVR 

MPSMUN 

HPSMXB 

MPSMXC 

HPSMXR 

MPSMXU 

MPSNAA 

HP$NAC 

MPSNAP 

MPSNCT 

MPSNET 

MPSNLI 

MP$NNA 

MPSNOD 

MPSNRA 

MPSNRB 

MPSNSA 

MPSNTI 

MPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MP$OHQ 

MPSONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

MPSOVE 

MPSOWN 

MPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MPSPLI 

MP$PLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 

MPSRET 

MPSRFA 


002153 

006320 

000170 

000H5 

001634 

001751 

002154 

002172 

000466 

001630 

002143 

006335 

001130 

006326 

000240 

002114 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 

000513 

002152 

000024 

000144 

002114 

000170 

000012 

000025 

002140 

000012 

004374 

002126 

004411 

002130 

001763 

001762 

001631 

001323 


HPSRMX 
MPSRPA 
MPSRPR 
MPSRRT 
HPSRST 
MPSRSV 
MPSRSZ 
MPSRTI 
HPSRTM 
MPSRVE 
MPSRVT 
MPSSAC 
MPSSAD 
MPSSCA 
MPSSCO 
MPSSCT 
MPSSDU 
MPSSDV 
HPSSEH 
MPSSER 
MPSSET 
MPSSGZ 
MPSSID 
MPSSIN 
MPSSLI 
MPSSLO 
MPSSMX 
MPSSND 
MPSSNP 
MPSSNU 
HPSSOB 
MPSSPA 
MPSSPR 
MPSSPS 
MPSSTA 
MPSST] 
MPSSTT 
MPSST Y 
MPSSUB 
MPSSUR 
MPSSUS 
MPSSVR 
MPSSWI 
MPSSYP 

mPstfl 

MPSTHI 
MP$TH2 
MP$TH3 
MP$TLN 
HPSTLO 
MPSTPA 
MPSTRI 
MPSTST 
MPSTYP 
MPSUCS 
HPSUSR 
MPSVEC 


002201 

MPSVER 

004406 

MTSETH 

000006 

004374 

MPIWDF 

002165 

MTSHEX 

5999^2 

001606 

MPSWMX 

002177 

MTSLPB 

000005 

002213 

MPSXMT 

002166 

MTSHAX 

000037 

002212 

MPSXPF 

000242 

MTSMUL 

000100 

001754 

MPSXPL 

000244 

MTSNLE 

000017 

001756 

MPSXPT 

000240 

HTSNON 

000001 

001616 

HPSXXX 

M7777 

HT$NR4 

000005 

001611 

MP$5ST 

004406 

MTSNTY 

000060 

001604 

HSSACT 

000001 

MT$OCT 

000060 

000156 

MSSADU 

000010 

MTSPHA 

000002 

000514 

MSSALO 

000007 

MTSPOl 

000000 

000543 

MSSASE 

000006 

MT$QP2 

099919 

000310 

MSSATR 

000011 

HTSROU 

000000 

000144 

MSSAUT 

000000 

MT$R04 

000004 

002176 

MSSCLE 

000003 

MTSSEC 

000000 

000203 

MSSDED 

000004 

MTSSGD 

099920 

000160 

MSSDIE 

000003 

MTSSYS 

000002 

004401 

HStDUM 

000004 

MTSTER 

000001 

000144 

MSSFAI 

000013 

MTSTRI 

000002 

000000 

MSSGLO 

000000 

MTSTYP 

007777 

001644 

MSSHOL 

000002 

MTSUSD 

000000 

000176 

MSSINA 

000002 

MT$X25 

000003 

000310 

MSSLOA 

000003 

MUSINC 

000001 

000156 

MSSLOO 

000002 

HU$OUT 

000002 

000171 

HSSOFF 

000001 

HUSPER 

000000 

002202 

MSSON 

000000 

MV$III 

000000 

000500 

MSSPRO 

000006 

MVSIV 

000001 

006332 

MSSREA 

000004 

MXAREA= 

000077 

000542 

MSSREF 

000001 

MXSACT 

000020 

000524 

HSSRES 

000003 

MXSCIR 

000020 

000157 

HSSRST 

000001 

MXSCLN 

000020 

000536 

MSSRSX 

000002 

MXSCNM 

000006 

000513 

MSSRT 

000005 

HXSCON 

O999O6 

000000 

MSSSER 

000002 

MXSDAC 

000020 

002140 

MSSSHU 

000002 

MXSDTE 

000020 

002201 

MSSSRV 

000007 

MXSFIL 

000034 

000175 

MSSSTA 

000000 

MXSLGC 

000777 

000001 

MSSSYN 

000012 

MXSLIN 

000020 

000156 

MSSTER 

000001 

MXSLON 

000006 

000512 

MSSTOP 

000003 

MXSNMS 

000454 

000163 

MSSTRl 

000005 

MXSNOD 

000006 

002260 

MSSUNR 

000005 

MXSOBJ 

000006 

002424 

MSSVMS 

000004 

MXSOWN 

000040 

000156 

MS. DON 

177600 

MXSPAR 

000036 

002206 

MS.MOR 

000002 

MXSPAS 

000010 

002205 

MS. PAR 

000003 

MXSRAC 

000047 

002202 

MS. sue 

000001 

MXSRID 

000047 

000202 

MT$AR4 

000005 

MXSRPS 

000047 

000172 

MTSASC 

000100 

MXSSID 

000040 

004375 

MTSBIL 

000001 

MXSSNK 

000377 

002164 

MTSBYS 

000011 

MXSTYP 

000077 

000144 

MTSCI 

000007 

MXSUIO 

000020 

002130 

MTSCLE 

000077 

M$$CR8= 

000124 

004407 

MTSCOD 

000200 

M$$CRX= 

000000 

001750 

MTSCON 

000001 

M$$FCS= 

000000 

004410 

MTSDMC 

000004 

M$$MGE= 

000000 

M$$NET= 

M$$OVR= 

NH.CLN 

NH.INI 

NM.OPR 

NM.VR2 

NM.VR3 

NODNAM 

NXTNOD 

NSADJI 

N$ADJ2 

NSCACH 

NSCRC 

NSHCl 

N$HC2 

NSLVI 

N$LV2 

NSMHCl 

N$MHC2 

NSPLD 

NSPRI 

NSROAI 

N$R0A2 

NSRTMX 

NSRTHl 

N$RTM2 

NSRTl 

N$RT2 

NSTCTL 

NSTLC 

NSTNC 

NSTRC 

NSTTCB 

NSVER 

NSXLEN 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$HCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PDVTA  = 

P$$P45= 

P$$URD= 

Q$$0PT= 

R$R1  = 

R$R2  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANM 

SFSDNM 

SF.ACT= 

SF.ENA= 


000000 

000000 

003400 

002400 

003000 

002401 

002402 

001416R 

001350R 

000072 

000074 

000062 

000120 

000052 

000056 

000002 

000010 

000036 

000044 

000016 

000076 

000022 

000030 

000014 

000014 

00001 5 

000000 

000006 

000112 

000100 

000114 

000106 

000110 

000066 

000124 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

000000 

000000 

000010 

******  GX 

******  GX 

000000 

000001 

000000 

000000 

000001 

000002 

000200 

000100 
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000006  B$7S10:  .BLi^S   l  ;  SUM  OF  BASE  TABLE  7  AND  10 

.EVEN 
000000  .PSECT 
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SAVCTX  -  SAVE  NODE  CONTEXT 


575  001562 

032764 

000002     000000 

70$: 

BIT 

#NF.0VR,N$FLAG(R4) 

574  001570 

001011 

BNE 

90$ 

575  001572 

010503 

MOV 

R5,R3 
(R5)+,(R5)t 

576  00157-4 

022525 

CMP 

577  001576 

578 

579  001602 

010566 

OOOOOOG 

MOV 

R5,R$R5(SP) 

016605 

OOOOOOG 

75$: 

MOV 

R$R5(SP),R5 

580  001606 

012723 

000001 

MOV 

*1,(R3)t 

581   001612 

010123 

MQV 

R1,(R3)+ 

582 

583  001614 

010503 

90$: 

MOV 

R5,R3 

584  001616 

014364 

000050 

MOV 

-(R3),N$HCCX(R4) 

585  001622 

064364 

000050 

ADD 

-lR3),N$HCCX(R4) 

586  001626 

005364 

000050 

DEC 

N$HCCX(R4) 

587  001632 

032764 

000002     000000 

BIT 

#NF.0VR,N$FLAG(R4) 

588  001640 

001001 

BNE 

100$ 

589  001642 

005727 

TST 

(PC)  + 

590  001644 

000261 

100$: 

SEC 

591   001646 

RETURN 

592 
593 

000001 

.END 

IS  CONTEXT  AREA  FULL  ? 
IF  NE,  YES  -  FORGET  NODE 
ELSE  POINT  TO  FREE  ELEMENT 
NEW  FREE  POINTER 
SAVE  IT 

RETRIEVE  POINTER  TO  LAST  ENTRY 

ONLY  ONE  ELEMENT  NOW 

MEMBER  IS  CURRENT  NODE  ADDRESS 

GET  POINTER  TO  NEXT  FREE  ENTRY 

PUT  ADDRESS  IN  HIGHEST  CURRENT  CONTEXT 

ADD  NUMBER  OF  NODE  ENTRIES 

ADJUST  ADDRESS 

IS  CONTEXT  AREA  FULL  ? 

IF  NE,  YES  -  SET  CARRY 

CLEAR  CARRY  -  CONTEXT  AREA  NOT  FULL 

SET  CARRY  -  CONTEXT  AREA  FULL 
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»*f  ILE««1D*«CHKCIR 


SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

TT 

SS 

TT 

SS 

TT 

SS 

TT 

ssssss 

TT 

ssssss 

TT 

SS 

TT 

SS 

TT 

SS 

T 

SS 

T 

LLLLLLLLLL 

SSSSSSSS 

TT 

LLLLLLLLLL   SSSSSSSS 


TT 


J  10 


cccccccc 

HH 

HH 

KK 

KK 

cccccccc 

III 

11 

RRRRRRRR 

cccccccc 

HH 

HH 

KK 

KK 

cccccccc 

III 

II 

RRRRRRRR 

HH 

HH 

KK 

KK 

I 

RR      RR 

HH 

HH 

KK 

KK 

I 

RR      RR 

HH 

HH 

KK 

KK 

RR     RR 

HH 

HH 

KK 

KK 

RR      RR 

HHHHHHHHHH 

KKKKKK 

1 

RRRRRRRR 

HHHHHHHHHH 

KKKKKK 

I 

RRRRRRRR 

HH 

HH 

KK 

KK 

I 

RR  RR 

HH 

HH 

KK 

KK 

RR  RR 

HH 

HH 

KK 

KK 

RR    RR 

HH 

HH 

KK 

KK 

RR    RR 

cccccccc 

HH 

HH 

KK 

KK 

cccccccc 

II 

II 

RR      RR 

cccccccc 

HH 

HH 

KK 

KK 

cccccccc 

III 

11 

RR      RR 
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Table  of  contents 
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CHKCIR     CREATED  BY  MACRO  ON  29-JUN-85  AT  17:41     PAGE  3 
MACRO  CROSS  REFERENCE  CREF   04.00 

MACRO  NAME      REFERENCES 


CALL 

7-104 

CIRCXS 

»5-59 

5-63 

MANDFS 

#5-59 

5-61 

RETURN 

7-110 

K  11 

»*FILE*MD««CHKL1N 


CHKLIN 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT  17:42 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF   C 

SYMBOL 

VALUE 

REFERENCES 

LtMSG 

000056 

#5-63 

LSMTYP 

000067 

#5-63 

L$NAM 

000000 

#5-63 

LtNLEN 

=  000020 

#5-63 

5-63 

5-63 

L$NOD 

00011? 

#5-63 

L$NXT 

0000A4 

#5-63 

L$OPT 

000062 

#5-63 

LSPAR 

000120 

#5-63 

L$PDV 

000055 

#5-63 

LtPFG 

000041 

#5-63 

*7-95 

L$PLB 

000116 

#5-63 

L$PRO 

000067 

#5-63 

LSPVC 

000004 

#5-63 

L$SCN 

000020 

#5-63 

L$SCR 

000072 

#5-63 

LSSLEN 

000066 

#5-63 

L$SLT 

000042 

#5-63 

LSSNM 

000046 

#5-63 

L$SYL 

000122 

#5-63 

LSTNM 

000052 

#5-63 

LSTPT 

000050 

#5-63 

L$TRB 

000040 

#5-63 

LSTSZ 

000070 

#5-63 

L$TYP 

000063 

#5-63 

•  7-97 

L$UNT 

000003 

#5-63 

ME.IID 

177767 

7-107 

MFSACT 

177776 

7-93 

MFSSIG 

177773 

7-91 

PRSLIN 

;  ».».»♦  GX 

7-103 
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CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  8-2 
SET  CIRCUIT  PARSE  TABLE 

19A  000000  $S8EXP  CALL, END                   ;  All 

195  000000  SNEXT 

196  000^30  FIELDS         .     .              „       • 

197  000000  SSBEXP  CLCT, , ,LS$LCT,+L$FLX          ;  Counter  timer 

198  000000  $NEXT 

199  0004^0  FIELDS                             „   ,  ,   . 

200  000000  SSBEXP  CRET, , ,LS$RET,tLSFLX          ;  Recall  timer 

201  000000  SNEXT 

202  ^  .IFTF 

20A  ;  END  OF  MESSAGE 

206  000450  '      FIELDS  END 

207  000000  SEOM   ,SEXIT 

208  000000  SERROR  ME.GRO 
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CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  9 
PARSE  SUB-EXPRESSIONS 


CICHIN  - 
TADACT  - 

70i 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7U 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
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.SBTTL  TADACT  -  TRIBUTARY  ADDRESS  ACTION  ROUTINE 
'••-TADACT-TRISUTARY  ADDRESS  ACTION  ROUTINE 
THIS  ROUTINE  SAVES  THE  TRIBUTARY  ADDRESS  IN  THE  CONTEXT  AREA. 
INPUTS: 


.HSGNM 
R4 


=  TRIBUTARY  ADDRESS 

=  ADDRESS  OF  CONTEXT  AREA 


000420 

000A20  132764  000360  000041 

000426  001015 

000430  116701  OOOOOOG 

000434  001415 

000436  026427  000000  062204 

000444  001003 

000446  020127  000037 

000452  101006 

000454  110164  000103 

000460  000426 


OUTPUTS: 

L$TAD(R4)  =  TRIBUTARY  ADDRESS 


TADACT: 


10$: 


.IFTf 


BITS 

*LP$WLD,L$PFG(R4) 

ANY  WILD  CARDS  ? 

8NE 

PNAERR 

IF  NE,  YES  -  BAD  IDEA  ! 

M0V8 

.MSGNM.RI 

GET  THE  TRIBUTARY  ADDRESS 

6E0 

PVAERR 

IF  EQ,  PARAMETER  VALUE  ERROR 

CMP 

L$DDM(R4),#»RPCL 

IS  THE  LINE  A  PCL  ? 

BNE 

10$ 

IF  NE,  NO  -  PROCEDE 

CMP 

R1,#31. 

S  THE  ADDRESS  VALID  FOR  A  PCL  ? 

BHI 

PVAERR 

F  HI,  NO  -  PARAMETER  VALUE  ERROR 

H0V8 

R1,L$TAD(R4) 

IILSE,  SAVE  THE  ADDRESS 

BR 

PAREND 

END  PARAMETER  PARSE 

;  .IF 

NDF  RSSIIS 

K  U 
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PNAERR  -  PARAMETER  NOT  APPLICABLE  ERROR  RETURN 
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PCICBCD  -  Pack  string  ot  digits  in  BCD  format 


1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

10A1 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 


001104 
001104 
001106 
001110 
001112 
001114 
001116 
001120 
001122 
001126 
001130 
001134 
001136 
001142 
001144 
001146 
001156 
001160 
001162 
001164 
001166 
001170 
001172 
001174 


.SBITL  PCK8CD  -  Pack  string  of  digits  in  BCD  format 
y 
•»»  PCKBCD  -  Pack  a  string  of  digits  in  BCD  format 

INPUTS: 

RO  -  Number  of  bytes  in  packed  address 

Rl  -  Address  of  buffer  containing  ASCII  digits  to  pack 

R2  -  Number  of  digits  specified 

R5  -  Address  of  buffer  to  store  packed  data 

OUTPUTS: 

Buffer  specified  in  R5  contains  data  in  BCD  format 
ALl  registers  destroyed 


010503 

105023 

005300 

003375 

005003 

005305 

112100 

020027  000060 

103422 

022700  000071 

103417 

162700  000060 

005703 

001007 

005203 
005205 
000401 
005303 
150015 
005302 
003352 


PCKBCD: 
10$: 


20$: 


40$: 


50$: 
60$: 


70$: 


MOV 

CLRB 

DEC 

BGT 

CLR 

DEC 

Move 

CMP 

BLO 

CMP 

BLO 

SUB 

TST 

BNE 

ASL$ 

INC 

INC 

BR 

DEC 

BISB 

DEC 

BGT 

RETURN 


R5,R3 

(Ri)  + 

RO 

10$ 

R3 

R5 

(R1)+,R0 

R0,#60 

70i 

#71, RO 

70$ 

*60,R0 

R3 

50$ 

4.R0 

R3 

R5 

60$ 

R3 

R0,(R5) 

R2 

20$ 


Get  address  of  packed  data 

Initialize  packed  address 

More  to  initialize? 

BR  if  yes 

Position  inidcator  (0=high  four  bits) 

Update  address  for  first  time 

Get  digit  to  pack 

Is  this  a  valid  digit? 

BR  if  no  (sets  carry) 

Still  valid? 

BR  if  no 

Convert  to  binary 

Store  in  high  four  bits? 

BR  if  no 

Move  to  high  four  bits 

Indicate  store  in  low  four  bits  next 

Point  to  next  b)/te 

BR  to  store  decimal 

Indicate  store  in  high  four  bits  next 

Pack  the  number  into  the  buffer 

More  to  convert? 

BR  if  yes 
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PLTACT  -  POLL  TIMER  ACTION  ROUTINE 
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Th!aCT  -  INACTIVE  THRESHOLD  ACTION  ROUTINE 


1272 

127^ 
12/5 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
128^ 
1285 

1286  001366 

1287  001372  11016A  000132 

1288  001376 


.S8TTL  TH3ACT  -  INACTIVE  THRESHOLD  ACTION  ROUTINE 

TH3ACT  -  INACTIVE  THRESHOLD  ACTION  ROUTINE 

INPUTS; 

.MSGPT  -  POINTER  TO  1  BrTE  INACTIVE  THRESHOLD 
R4     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS; 

L$TH3(R4)  -  INACTIVE  THRESHOLD  VALUE 


tH3ACT;  CALL    CHKDMP 

M0V8    R1,LSTH3(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  INACTIVE  THRESHOLD  VALUE 
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MXBACT  -  MAXIMUM  BLOCKS  ACTION  ROUTINE 
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Page  7 


170 
171 
172 
173 
17^ 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19A 
195 
196 
197 

198  000256 

199  000256 

200  000262 

201  000264 

202  000270 
203 

204  000274 

205  000300 

206  0003U4 

207  000310 

208  000314 

209  000320 
210 

211 
212 

213  000322 

214  000326 

215  000330 

216  000334 
217 

218 
219 

220  000336 

221  000340 

222  000342 

223  000346 

224  000350 

225  000352 

226  C00360 


.S8TTL  SAVALl  -  SAVE  ALIAS  CONTEXT 

♦»-SAVALI-SAVE  ALIAS  CONTEXT 

THIS  ROUTINE  IS  CALLED  TO  SAVE  THE  NAME  AND  SCOPE  OF  ALL  ALIASES 
TO  BE  DISPLAYED.  THIS  CONTEXT  IS  USED  SV  THE  OPERATE  CALL  TO 
LOOK  UP  EACH  ALIAS. 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  BLOCK  WITH  THE  FOLLOWING  OFFSETS: 
A$TYP  =  ALIAS  NAME  FORMAT  TYPE: 
-3  =  ALL  (MFSALL) 
-2  =  ACTIVE  (HFSACT) 
-1  =  KNOWN  (MFSKNO) 
>0  =  SPECIFIC  ALIAS 
A$ALI  =  ALIAS  NAME,  SPACE  FILLED  IF  A$TYP  >  0 
A$SCO  =  SCOPE  OF  ALIASCES) 


OUTPUTS: 
R4 


ADLPESS  *.  CON'EXT  BLOCK  WITH  THE  FOLLOWING  OFFSETS: 

ASNUM  =  NUMBER  OF  ALIAS  CONTEXTS  SAVED 

A$NEX  =  "OINTER  TO  FIRST  ALIAS  CONTEXT 

A$FLG  =  AF.OVR  SET  IF  ALIASES  OVERFLOWED  CONTEXT  AREA 


REGISTERS: 

R4    IS   PRESERVED. 


105064  000010 
010405 

062705  000024 

010564  000022 


017700  OOOOOOG 

062700  000000 

105764  000011 
002406 


SAVALl: 


CLRB 
MOV 
ADD 
MOV 

SWSTKS 

SAVMAP 

MOV 

ADD 

TST8 

BLT 


A$NUM(R4) 
R4,R5 
M$SAV,R5 
R5,A$NEX(R4) 

90$ 

aDECPT.RO 
#D$ANN,RO 
A$TYP  (R4) 
20$ 


SET  SAVED  COUNT  TO  0 
COPY  POINTER  TO  CONTEXT  BLOCK 
POINT  TO  ALIAS  CONTEXT  SAVE  AREA 
SAVE  POINTER  TO  "NEXT"  ALIAS  FOR  SHOW 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

POINT  TO  DEC  HOME  BLOCK      ;  RJK03 

POINT  TO  ALIAS  BLOCK  LISTHEAD;  "-l 

LOOKING  FOR  A  NAMED  ALIAS  ? 

IF  LT,  NO  (ALL  OR  KNOWN) 


103424 
000421 


010001 
011146 


SAVE  A  SPECIFIC  ALIAS  CONTEXT 
CALL    FINDA 

Brs    80$ 

CALL    SAVCTX 
BR     80$ 

SAVE  MULTIPLE  ALIASES  (KNOWN',  ACTIVE  OR  ALL) 


LOOK  FOR  AN  ALIAS  NAME  BLOCK 
IF  CS,  DIDN'T  EXIST  -  RETURN 
SAVE  ALIAS  CONTEXT 
AND  RETURN 


50$: 
30$: 


012601 

001413 

126427  000011  177775 

001404 


MOV 

MOV 

CALL 

MOV 

BEQ 

CMPB 

BEQ 


R0,R1 

(R1),-(SP) 

aCEACC 

(SP)+,R1 

80$ 

A$TYP(R4),#MF$ALL 

40$ 


PUT  LISTHEAD  ADDRESS  IN  R1 

SET  UP  TO  GET  NEXT  ALIAS  NAME  BLOCK 

MAP  TO  IT  ;  RJK03 

GET  MAPPED  VIRTUAL  ADDRESS  0F;»»-1 

IF  EQ,  FINISHED 

IS  THIS  A  SHOW  ALL  OPERATION  ? 

IF  EQ,  YES  -  SKIP  SCOPE  CHECK 
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'f2:0 
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MACRO  CALLS  AND  LOCAL  DATA 


52 
53 
5A 
55 
56 
57 
58 

59  000000 

60  000000 

61  000000 

62  000000 
63 

6^  000000 


000020 


000020 
000010 
000020 

000000 


000000 
000002 
000004 
000006 
000010 
000011 
000012 
000020 


000022 
00002A 
00002A 
000000 


65 
66 

67 

68 

69 

70 

71 

72 

73  000000 

7- 

75 

76 

n 


000001 
000002 


111 
000060 


156 


163 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 


.MCALL 
.MCALL 

ANBDFS 
MANDFS 
HDRDFS 
DHBDFS 


AN8DF$, MANDFS, SWSTK$,SAVMAP, MAP, RESMAP.RETC 
HDRDFS, DHBDFS, ALRCXS 


ALRCXS  LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 

MAXID=16. 

MAXPAS=8. 

HAXACC=16. 

.ASECT 

.=0 

OFFSETS  IN  COMMON  WITH  CHANGE  INFORMATION  MODULES 


DEFINE  ALIAS  NAME  BLOCK  OFFSETS 

DEFINE  NETUORK  MANAGEMENT  SYMBOLS 

DEFINE  TASK  HEADER  OFFSETS 

DEFINE  DEC  HOME  BLOCK 

DEFINE  CONTEXT  AREA 


MAXIMUM  LENGTH  OF  USER  ID 
MAXIMUM  LENGTH  OF  PASSWORD 
MAXIMUM  LENGTH  OF  ACCOUNT 


ASFLG 
ASOPT 
ASPAR 
A»BUF 
ASNUM 
ASTYP 
ASALI 
ASSCO 


.BLKW 
.BLKU 
.BLKW 
.BLKW 
.BLKB 
.BLK8 
.BLKW 
.BLKU 


FLAG  WORD 

SAVED  OPTIONS  WORD 

CURRENT  PARAMETER  TYPE 

SAVED  POINTER  TO  BUFFER 

NUMBER  OF  BYTES  IN  ANB  (FOR  SET) 

ALIAS  FORMAT  TYPE 

ALIAS  NAME,  SPACE  FILLED 

SCOPE  OF  ALIAS 


OFFSETS  UNIQUE  TO  READ  INFORMATION  PARAMETERS  MODULES 
BLKW   1 


ASNEX 
-■^LEN 
Al  "AV 


.PSECT 
FLAGS  WORD  BIT  DEFINITIONS 


POINTER  TO  Nl-XT  ALIAS  TO  BE  DISPLAYED 
LENGTH  OF  CONTEXT  AREA 
SAVE  AREA  FOR  NAMES 


AF.JNI=1 
AF.0VR=2 

.IF  NDF  RS<.PRO 


SUCCESSFUL  INITIALIZATION  COMPLETED 
CONTEXT  AREA  OVERFLOWED 


PRO/DECNET 


ERROR  MESSAGE  TEXT  STRINGS 

.ENA8L  LC 
.NLIST  BEX 
OVR:    .ASCII  /Insufficient  buffer  space  for  additional  ALIASES/ 
OVRL=.-OVR 


.ENDC 


NDF  RSSPRO 


ALREOP  -  ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-S5 
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SYMBOL  VALUE 


AF.INI 

AF.OVR 

ALREOP 

ASALl 

A$BUF 

A$FLG 

A$LEN 

A$NE 

AtNUN 

ASOPT 

ASPAR 

A$SAV 

ASSCO 

ASTYP 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

CEACC 

DECPT 

DSANN 

FINDA 

FHTDES 

FMTNAM 

FMTSCO 

KISAR6 

MAXACC 

MAXID 

MAXPAS 

ME.  DON 

ME. OPE 

MPSDES 

MPSSCO 

MS.  sue 

N$$VCT 

OVR 

OVRL 

R$$PRO 

SFMTDV 

SHEADR 

SSAVRG 


000001 

000002 

000060  RG 

000012 

000006 

000000 

000024 

000022 

000010 

000002 

OOOOOA 

000024 

000020 

000011 

000020 

000000 

000002 

000010 

000012 

000010 


=  ****** 
=  ****** 

000000 
000640 
000446 
000306 
000354 
-  ****** 

=  000020 
=  000020 
=  000010 
177600 
177747 
000156 
000144 
000001 

=   *♦***♦ 

000000  R 
=  000060 


GX 
GX 


GX 


:r  ****** 


GX 
GX 
GX 


REFERENCES 

#5-64 

#5-64 

#6-102 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-59 

#5-59 

#5-59 

#5-59 

#5-59 

#5-59 

10-341 

9-279 

9-280 

9-281 

6-148 

6-142 

6-147 

9-278 
#5-64 
#5-64 
#5-64 

6-105 

6-115 

8-218 

6-134 

9-278 
#5-73 
#5-74 

5-66 

8-239 

9-283 

6-103 


6-106 
6-113 

♦6-139 

•6-104 

6-106 

6-138 
*6-111 


6-143 


10-345 

9-288 
10-351 


#10-339 

#9-269 

#7-184 

#8-217 

*9-302 


9-283 
5-74 
6-121 
6-119 
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♦6-140 
6-150 
6-113 

♦6-144 


♦6-146 


10-347 


♦6-141 

6-156 

♦6-161 


10-351 


10-349 


10-345 


10-347 


10-349 


9-289 


9-302 
6-123 


ALREOP     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:06 
MACRO  CROSS  REFERENCE 


L  3 

PAGE  2 

CREF   04.00 


ALXXIN  -  ALIAS  INITIALIZATION  C  MACRO  V05.03b  Saturday  29-Jun-85  12:06 
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AF.IN1= 

AF.OVR= 

ALIIDX 

ALITl 

ALIT2 

ALIT3 

ASALI 

AtBUF 

A$DES 

A$FLG 

ASLEN 

ASNUM 

AIOPT 

A$PAR 

AtSCO 

A$TYP 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$STRP= 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

CF$VR2= 

CHKALI 

CHKPAR 

CHKSCO 

CMPCST 

CURCTX= 

C$FLAG= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DEALUN= 

DV.CCL= 

DV.COM= 

DV.DIR^ 

DV.EXT= 

DV.F11= 

DV.ISP= 

DV.MBC= 

OV.MNT= 

DV.MSD= 

DV.OSP= 

DV.PSE= 

OV.REC= 

DV.SDI= 

DV.SQD= 

DV.SWL= 

DV.TTY= 

OV.UMD= 

0$$BUG= 

D$$ISK= 

D$$L11= 


000001 

000002 

000026R 

OOOOOOR 

00001  OR 

00001 6R 

000012 

000006 

000022 

000000 

000103 

000010 

000002 

000004 

000020 

000011 

000000 

000000 

000000 

000000 

000020 

000000 

000002 

000010 

000012 

000010 

******   GX 

000036RG 

000526RG 

000252RG 

00021  OR 

******   GX 

«♦»«♦«  GX 

000000 

000400 

177564 

******   GX 

000002 

020000 

000010 

000400 

040000 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

177514 

000000 

000001 


D$$YNC= 

000000 

HBSDIS 

D$$YNM= 

000000 

MBSENA 

D.NAM  = 

»»♦***  GX 

MBSFUL 

E$$XPR= 

000000 

MBSMIX 

F$$LVL= 

000001 

HBSONE 

G$$TPP= 

000000 

MBSRXO 

G$$TSS= 

000000 

MBSTXO 

G$$TTK= 

000000 

MBSZER 

G$$WRD= 

000000 

MCSBAB 

HEADR  = 

*»»♦♦♦  GX 

MCSBID 

H.CSP 

000000 

MCSBHC 

H.CUIC 

000010 

MCSBSC 

H.DSU 

000046 

HCSCAC 

H.DUIC 

000012 

MCSCAP 

H.EFLM 

000004 

MCSCCL 

H.EFSV 

000040 

HCSCDC 

H.FCS 

000050 

HCSCDP 

H.FORT 

000052 

MCSCIF 

H.FPSA 

000042 

MCSCLD 

H.FPSL= 

000062 

MCSCOU 

H.FPVA 

000034 

MCSCTL 

H.6ARD 

000072 

MCSCTR 

H.HDLN 

000002 

MCSCTS 

H.IPC 

000016 

MCSDOV 

H.IPS 

000014 

MCSLBR 

H.ISP 

000020 

MCSLSS 

H.LUN 

000076 

MCSLDl 

H.NLUN 

000074 

MCSLDO 

H.NML 

000061 

HCSLDR 

H.ODVA 

000022 

MCSLDS 

H.ODVL 

000024 

MCSLLB 

H.OVLY 

000054 

MCSLLP 

H.PFVA 

000032 

MCSLLR 

H.RCVA 

000036 

MCSLOO 

H.RRVA 

000062 

HCSLRB 

H.SPRl 

000060 

MCSLRP 

H.TKVA 

000026 

MCSLRR 

H.TKVL 

000030 

MCSLSI 

H.VEXT 

000056 

MCSLST 

H.UND 

000044 

MCSLUP 

H.X25 

000064 

MCSHAP 

$$RAR= 

000000 

MCSMBL 

]$$RDN= 

000000 

MCSMBX 

K$$CNT= 

177546 

MCSMBY 

K$$CSR= 

177546 

MCSMPX 

K$$LDC= 

000000 

MCSNAP 

K$$TPS= 

000074 

HCSNBR 

LCSEXT 

000000 

MCSNBS 

LCSINT 

000001 

MCSNCR 

LD$LP  = 

000000 

MCSNCS 

L$$ASG= 

000000 

MCSNML 

L$$DRV= 

000000 

MCSNMR 

L$$P11= 

000001 

MCSNMS 

L$$11R= 

000000 

MCSNNO 

MAXACC= 

000020 

MCSNNU 

MAXID  = 

000020 

MCSNOP 

MAXPAS= 

000010 

MCSNOR 

000001 

000000 

000002 

000002 

000001 

000001 

000000 

000000 

006073 

001765 

001767 

001766 

001442 

001440 

001445 

002045 

001441 

001465 

001464 

100000 

001454 

001452 

001453 

002050 

001750 

001751 

001774 

001775 

001762 

001763 

002021 

002115 

002007 

000001 

002020 

002114 

002006 

002032 

002033 

006072 

010000 

001764 

004420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 


MCSNPF 

MCSNPR 

MCSNRE 

MCSNRT 

MCSNVR 

MC$P08 

MC$P11 

MCSRFL 

MCSSBU 

MCSSFL 

MCSSYC 

HCSSYL 

HCSSYR 

MCSSYS 

MCSSYZ 

MCSTBR 

MCSTBS 

MCSTDR 

MCSTJM 

MCSTYP 

MCSUBU 

MCSUFD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSWID 

MCSWJH 

MCSWIL 

MC$U08 

MC$W16 

MC$W32 

MCSXBR 

MCSXBS 

HCSXCJ 

HCSXCR 

MCSXCS 

MCSXDR 

HCSXDS 

MCSXFR 

MCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXMC 

MCSXMS 

MCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

MC$020 

MD$CI 

MDSCNA 

MDSCOU 

MDSDA 

MDSDL 

MDSDLV 

MDSDMC 


001616 
001630 
001200 
001166 
001642 
000000 
000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 


MDSDMF 

MDSDHP 

MDSDMR 

HDSDMV 

MDSDN 

MD$DP 

MDSDPV 

MD$DO 

MDSDTE 

MD$DU 

MDSDUP 

MD$DV 

MD$DZ 

MDSFUL 

MDSHAL 

MDSHEL 

MDSKCP 

MDSKDP 

HDSKDZ 

MDSKL 

MDSKMX 

MDSKMY 

HDSLEN 

MDSPCL 

MDSQNA 

HDSUNA 

MDSUIT 

MD.ABO 

MD.ACC 

HD.ACB 

HD.BOB 

MD.DIA 

MD.DOB 

HD.DUM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

HD.NOB 

MD.NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSH 

MD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

HD.UNR 

MD.UOB 

HD.VOL 

MESALI 

ME$AL2 

ME$ARE 

MESCIR 


000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 
000036 
000040 
000054 
000052 
000050 
000011 
000005 
000001 
000002 
000017 
000010 
000016 
000011 
000007 
000015 
000002 
000014 
000001 
000006 

ooonoi 

000020 
000012 
177777 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
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182  000356 

000420 

183 

ISA 

185 

186 

187  000360 

016264 

188  000366 

005364 

189  000372 

001012 

190  000374 

005064 

191  000400 

012766 

192 

193  000406 

194 

195  000420 

196  000422 

103415 

197 

198  000424 

032764 

199  000432 

001004 

200  000434 

126464 

201  000442 

003003 

202 

203  000444 

052764 

204 

205  000452 

112700 

206 

207 

208 

209  000456 

012702 

210  000462 

000241 

211  000464 

110013 

212  000466 

100011 

213  000470 

116463 

214  000476 

116463 

215  000504 

012702 

216  000510 

000261 

217  000512 

218 

219 

000001 

70$: 


BR 


100$ 


LEVEL  2  ROUTER:  INITIALIZE  LIMIT  OF 
NO  AREAS  IN  DATE8ASE  (UNLIKELY,  BUT, 


SCAN 


SUCCESS  I 
CHECK  FOR 


000030 
000006 

000016 
177747 


000002 
000004 

000001 
000002 

000001 


000016 
000017 
000003 


000006  S0$: 


OOOOOOG 


000000 
000006 

000000 


90$: 

100$: 
110$: 

120$: 


130$: 
140$: 


MOV 
DEC 
BNE 
CLR 
MOV 

RETC 

RETURN 
BCS 

BIT 
BNE 
CMPB 
BGT 

BIS 

MOVB 


000001 
000002 


i  BUILD 

RESPON 

h0$: 

MOV 

CLC 

MOVB 

BPL 

MOVB 

MOVB 

MOV 

160$: 

SEC 

170$: 

RETURN 

N$R0A2(R2),A$MAX(R4) 

A$MAX(R4> 

100$ 

A$PAR(R4) 

#ME.OPE,R$RO(SP) 

RO 


150$ 

#AF.KN0,A$FLG(R4) 
130$ 

A$NUM(R4),A$MAX(R4) 
140$ 

*AF.INI,A$FLG(R4) 

#MS.MOR,R0 


#1,R2 

R0,(R3) 

176$ 

A$PAR(R4),1(R3) 

A$PAR-H(R4),2(R3) 

#3,R2 


.END 


;;  PICK  UP  MAXIMUM  AREA  NUMBER 

;;  DON'T  COUNT  ZERO-TH  ENTRY 

;;  IF  NE,  OK 

;;  NO  DETAIL 

;;  ELSE  OPERATION  FAILURE 

;;  ELSE  SET  USER  STATE  CARRY  BIT 

;;  BACK  TO  USER  STATE 
;  IF  CS,  ERROR  OR 

;  SINGULAR  ENTITY  ? 

;  IF  EQ,  KNOWN  AREAS 

;  AREA  NUMBER  TOO  HIGH  FOR  SYSTEM 

;  IF  HI,  RETURN  NO  INFO 

;  ELSE  REMEMBER  SUCCESSFUL  INIT 

;  ELSE  MORE  TO  COME 


SINGLE  BYTE  RETURN 

ASSUME  SUCCESS  ! 

STORE  THE  RETURN  CODE 

IF  PL,  SUCCESS 

STORE  LOW  BYTE  OF  ERROR  DETAIL 

STORE  HIGH  BYTE 

UPDATE  MESSAGE  LENGTH 

ELSE,  INDICATE  FAILURE 
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75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 

91  000002 

92  000002 

93  000006 

94  000012 

95  OOOOU 

96  000022 
97 

98 
99 

100  000024 

101  000032 
102 

103  000034 

104  000040 

105  000046 
106 


.S8TTL  ARREOP  -  AREA  READ  STATUS  OPERATE 

**♦  -  ARREOP  -  AREA  READ  STATUS  OPERATE 

INPUTS: 

R3  =  ADDRESS  OF  OUTPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

RO  =  NICE  PROTOCOL  RETURN  CODE 

R2  =  LENGTH  OF  INFORMATION  IN  OUTPUT  BUFFER 

R3-R5  =  PRESERVED 


004567  OOOOOOG 

010364  000002 

105023 

032764  000001 

001562 


000000 


032764  000002  000000 
001406 

005264  000004 

026464  000004  000006 

101150 


107  000050 

005001 

108  000052 

005002 

109  000054 

110  000060 

016402 

000012 

111  000064 

016202 

000016 

112  000070 

001456 

113 

114 

115 

116  000072 

026464 

000004 

117  000100 

001010 

118  000102 

119  000106 

103447 

120  ooono 

010166 

OOOOOOG 

121  000114 

010266 

OOOOOOG 

122  000120 

000447 

123 

124 

125 

126  00012? 

127  0001 50 

001436 

128  0001 :? 

016200 

000034 

129  000136 

130  000146 

016401 

000004 

131  000152 

006301 

ARREOP:: 

JSR  R5,$SAVRG 

MOV  R3,A$BUF(R4) 

CLR8  (R3)+ 

BIT  #AF.1NI,A$FL6(R4) 

BEQ  45$ 

CHECK  IF  MORE  AREAS  TO  DISPLAY 

iO$:    BIT  *AF.KN0,A$FLG(R4) 

BEQ  15$ 

INC  A$NUM(R4) 

CMP  A$NUM(R4),A$MAX(R4) 

BHI  45$ 

15$:    CLR  R1 

CLR  R2 

SWSTK$  30$ 

MOV  A$XPT(R4),R2 

MOV  Z.DAT(R2),R2 

BEQ  20$ 


EXECUTOR  AREA 

CMP 

BNE 

CALL 

BCS 

MOV 

MOV 

BR 


A$NUM(R4),A$EXA(R4) 

17$ 

GETEXA 

20$ 

R1,R$R1(SP) 

R2,R$R2(SP) 

25i 


REMOTE  AREA 


17$: 


MAP 

BEQ 

MOV 

BIAS 

MOV 

ASL 


N$ROA2t2(R2) 

20$ 

N$ROA2t4(R2),R0 

RO 

A$NUM(R4),R1 

R1 


SAVE  R3-R5 

SAVE  OUTPUT  BUFFER  ADDRESS 

POINT  PAST  RETURN  CODE 

DONE  ? 

IF  EQ,  ALL  DONE 


KNOWN  AREAS  ? 
IF  EQ,  NO 

ELSE  ADVANCE  AREA  COUNT 

PAST  MAXIMUM  AREAS  FOR  SYSTEM 

IF  HI,  NO  INFORMATION 

NO  NEXT  NODE 
NO  CHANNEL 

ENTER  SYSTEM  STATE 

POINT  TO  XPT  PDV 

POINT  TO  PROCESS  DDB 

IN  CASE  SYSTEM  GOING  DOWN 


IS  THIS  THE  EXECUTOR  AREA  ? 

IF  NE,  NO 

GET  EXECUTOR  CHANNEL  AND  NODE 

IF  CS  ERROR 

ELSE  PASS  BACK  NODE  ADDRESS 

CHANNEL  NUMBER  QF  LINE 

SUCCESS 


MAP  TO  LEVEL  2  REACHABILITY  TABLES 

IF  EQ,  NOT  THERE 

POINT  TO  THEM 

BIAS  ADDRESS  FOR  APR  6 

GET  AREA  NUMBER 

MAKE  AREA  NUMBER  A  WORD  OFFSET 
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SF.LPB- 

OOOOOA 

S.LEN   000004 

ZF.DVP= 

100000 

ZF.X3P= 

000000 

Z.PC8 

000012 

SF .MFL= 

OOOOAO 

S.NMST  000002 

ZF.INI= 

040000 

ZS.ASN= 

100000 

Z.SCH 

000007 

SF.PAC= 

000020 

S.OUNR  000003 

ZF.KMX= 

000020 

ZS.BSY= 

140000 

lf§I^  = 

****** 

uX 

Sf .REA- 

000010 

TEMP    OOOOOOR 

ZF.LLC= 

000004 

Z.AVL 

000014 

$C5TA  = 

****** 

GX 

SF.SER= 

000001 

T$$KMG=  000000 

ZF.LMC= 

000100 

Z.DAT 

000016 

$HEADR= 

GX 

SF  .S\/C  = 

000002 

T$$M1N=  000000 

ZF.MAN= 

020000 

Z.DSP 

000000 

$SAVRG= 

GX 

SF .UNL= 

000040 

V$$CTR=  001000 

ZF.MFL= 

000010 

Z.FLG 

000010 

$SAVVR= 

****** 

GX 

SLTMA  = 

******  Gx 

X$$D8T=  000000 

ZF.MTM= 

000400 

Z.LEN  : 

000016 

$$$SYS= 

004374 

SStURG" 

000000 

ZF.COU=  001000 

ZF.MUX= 

000040 

Z.LLN 

000006 

$$$SYX= 

000000 

S$$YSZ= 

007600 

ZF.DDM=  000001 

ZF.PSE= 

002000 

Z.MAP 

8995^9 

.MBaD= 

****** 

GX 

S.COST 

000001 

ZF.DIA=  004000 

ZF.SLI== 

010000 

Z.NAH 

000004 

.HCODE= 

****** 

GX 

S.FLG 

000000 

ZF.DLC=  000002 

ZF.T1I*I= 

000200 

.  ASS. 

177776 
001530 

000 
001 

(RW.I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 

Errors 

detected: 

U 

•♦•  Assembler  statistics 


Work  file  reads:  231 

Work  file  writes:  162 

Size  of  work  file:  31975  Words  (  125  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 


Sy:ARREOp!v2!ci35??^4]ARREOP/CR/-SP=SV:C1,nRSXMCM.SML/ML,[13C-,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[135,10]ARREOP 
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BLNLST  -  BUILD  NODE  LIST 
BIT  DEFINITIONS 


000001 
000002 
OOOOOA 
000010 
000020 
000040 
000100 
000200 
000360 


89 
90 
91 
92 
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.SBTTL  BIT  DEFINITIONS 
PARSE  FLAG  DEFINITIONS  (L$PFG) 


000001 
000002 
000004 


000010 
000020 
000040 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000004 


LPSUNT  =  1 

LPSTRB  =  2 

LPSMUX  =  4 

LPSMPT  =  10 

LPSWDV  =  20 

LPSWCN  =  40 

LPSUUN  =  100 

LPSWTR  =  200  .  >. 

LPSWLD  =  LP$WDV!LP$WCNILP$UUNILP$WTR 


UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUND 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
WILD  CARD  DEVICE  NAME  FOUND 
WILD  CARD  CONTROLLER  NUMBER  FOUND 
WILD  CARD  UNIT  NUMBER  FOUND 
WILD  CARD  TRIBUTARY  NUMBER  FOUND 
WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA  =  1 

LFSZER  =  2 

LFSSKP  =  4 


LF$VR2  =  10 

LFSEND  =  20 

LFSSIG  =  40 

LFSMLT  =  40000 

LFSSEG  =  100000 

BIT  POSITION  DEFINITIONS 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFIGANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 


BITO  = 
BIT1  = 
BIT2  = 
BIT3  = 
BIT4  = 
BITS  = 
BIT6  = 
B1T7  = 
BITS  = 
BIT9  = 
BIT10 
B1T11 
BIT12 
BIT13 
BIT14 
BIT15 


1 
2 

4 

10 

20 

40 

100 

200 

400 

1000 
=  2000 
=  4000 
=  10000 
=  20000 
=  40000 
=  100000 


DEFINE  LOCAL  FLAGS  AND  OFFSETS 

NF.WLD  =  NF.LPB       ;  REUSE  FLAG  BIT 
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ATtACL  = 
AT$ADN= 
AT$AUP= 

AT$cyc= 

AT$LV1= 

ATtLV2= 

ATtNEX= 

ATSUP  = 

A$CIR 

ASLEN 

ASNID 

A$TM 

ASTMI 

A$TSZ 

A$TYP 

A$$CHK= 

A$tCPS= 

A$$PRI= 

A$$TRP= 

BITO  = 

BIT1   = 

BIT10  = 

BIT11  = 

BIT12  = 

BIT13  = 

BITU  = 

BIT15  = 

3IT2  = 

BIT3  = 

BIT4  = 

BIT5  = 

BIT6  = 

BIT7  = 

BITS  = 

BIT9  = 

BLNLST 

B$10 

B$11 

B$12 

B$5 

B$6 

B$7 

S$7S10 

CEACC  = 

CF.1NI= 

CF.NET= 

CF.NRT= 

CF.RSV= 

CF.RT1= 

CF.RT2= 

CF.TSTr 

CF.TrP= 

CF.VfV= 

C$$C<P= 

C$$ORE= 

C$$RSH= 

DECPT  = 


OOOlCo 

000040 

000020 

000004 

000002 

000001 

000200 

000010 

000003 

000004 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000001 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000054RG 

000003 

000004 

000005 

000000 

000001 

000002 

000006 

»*♦♦*»  GX 

000001 

000015 

000013 

000360 

000007 

00001 1 

000005 

000016 

000003 

000000 

000400 

177564 

»»♦••»  GX 


DISTBL 

OOOOOOR 

DSAMXC 

000072 

DSAMXH 

000074 

D$ANN 

000000 

DSBRPR 

000102 

DtBRTM 

000100 

DSDELF 

000045 

DSDELU 

000046 

D$END  = 

000104 

D$FNB 

000034 

DSHIOR 

000024 

DSHOST 

000022 

DSINAC 

000044 

DSINCT 

000042 

DSIPL 

000051 

D$LIO 

000020 

DSLNAM 

000006 

DSLNUM 

000014 

D$LST 

000047 

DSMAXC 

000064 

DSMAXH 

000066 

DSMAXV 

000070 

D$HLL 

000040 

DSMNOD 

000041 

0$NA 

000062 

DSNBEA 

000056 

DSNBRA 

000054 

D$NEND= 

000054 

DSNLN 

000030 

DSNN 

000060 

DSOUTT 

000043 

DSRETF 

000050 

DSRNN 

000002 

DSRTMR 

000076 

D$SEG 

000036 

D$SER 

000032 

DSSQRL 

000052 

D$$BUG= 

177514 

D$$I.K= 

000000 

D$$L11= 

000001 

D$$YNC= 

000000 

D$$YNM= 

000000 

D.DID 

000003 

D.FLG 

000000 

D.SID 

000013 

D.VIS 

000022 

ESNBR 

000014 

E$N8S 

000020 

ESNCR 

000034 

E$NCS 

000036 

E$NIC 

000044 

ESNLEN 

000050 

ESNLLA 

000012 

ESNLNK 

000000 

E$NML 

000040 

E$NMR 

000024 

ESNMS 

000030 

E$NN0D 

000002 

LF$MLT= 

040000 

MAPXPT= 

•♦**♦*  GX 

E$NRT 

000042 

LF$REA= 

000001 

MAXLEN= 

000006 

ESNRTP 

000005 

LF$SEG= 

100000 

MBSDIS 

000001 

ESNSEG 

000010 

LF$S1G= 

000040 

MBJENA 

898SS5 

ESNTIH 

000046 

LF$SKP= 

000004 

MBSFUL 

000002 

ESNUSE 

000004 

LF$VR2= 

000010 

MBSMIX 

000002 

ESSTRT 

000006 

LF$ZER= 

000002 

MBSONE 

000001 

E$$XPft= 

000000 

LP$MPT= 

000010 

MBSRXO 

000001 

FW.MAX= 

000040 

LP$MUX= 

000004 

HBSTXO 

000000 

FU.RSV= 

000300 

LP$TRB= 

000002 

HBSZER 

000000 

F$$LVL= 

000001 

LP$UNT= 

000001 

HCSBAB 

006073 

G$$TPP= 

000000 

LP$UCN= 

000040 

MCSBID 

001765 

G$$TSS= 

000000 

LP$WDV= 

000020 

MCSBMC 

001767 

G$$TTK= 

000000 

LP$ULD= 

000360 

MCSBSC 

001766 

GSSURD- 

000000 

LP$WTR= 

000200 

HCSCAC 

001442 

H.CSP 

000000 

LP$WUN= 

000100 

HCSCAP 

001440 

H.CUIC 

000010 

L$ADJ 

000110 

MCSCCL 

001445 

H.DSU 

000046 

LSBUF 

000060 

MCSCDC 

002045 

H.DUIC 

000012 

L$CHN 

000054 

MCSCDP 

001441 

H.EFLM 

000004 

L$C0U 

000114 

MCSCIF 

001465 

H.EFSV 

000040 

L$CTB 

000053 

HCSCLD 

001464 

H.FCS 

000050 

L$CTL 

000002 

MCSCOU 

100000 

H.FORT 

000052 

LSDDH 

000000 

HCSCTL 

001454 

H.FPSA 

000042 

LSFLG 

000064 

MCSCIR 

001452 

H.FPSL= 

000062 

L$FLX 

000070 

MCSCTS 

001453 

H.FPVA 

000034 

LSLEN 

000124 

HCSDOV 

002050 

H.GARD 

000072 

L$LTM 

000070 

MCSLBR 

001750 

H.HDLN 

000002 

L$MSG 

000056 

MCSLBS 

001751 

H.IPC 

000016 

LSMTYP 

000067 

HCSLDI 

001774 

H.IPS 

000014 

L$NAM 

000000 

MCSLDO 

001775 

H.ISP 

000020 

L$NLEN= 

000020 

HCSLDR 

W.IH 

H.LUN 

000076 

L$N0D 

000112 

MCSLDS 

001763 

H.NLUN 

000074 

L$NXT 

000044 

MCSLLB 

002021 

H.NML 

000061 

LSOPT 

000062 

MCSLLP 

002115 

H.ODVA 

000022 

L$PAR 

000120 

HCSLLR 

002007 

H.ODVL 

000024 

L$PDV 

000055 

MCSLOO 

000001 

H.OVLY 

000054 

L$PFG 

000041 

MCSLRB 

29???9 

H.PFVA 

000032 

LSPLB 

000116 

MCSLRP 

002114 

H.RCVA 

000036 

L$PRO 

000067 

HCfLRR 

002006 

H.RRVA 

000062 

LSPVC 

000004 

HCSLSI 

09?2I? 

H.SPRI 

000060 

L$SCN 

000020 

MCSLST 

002033 

H.TKVA 

000026 

L$SCR 

000072 

MCSLUP 

006072 

H.TKVL 

000030 

LSSLEN 

000066 

MCSMAP 

010000 

H.VEXT 

000056 

L$SLT 

000042 

MCSMBL 

001764 

H.UND 

000044 

L$SNM 

000046 

MCSMBX 

004420 

H.X25 

000064 

LSSYL 

000122 

MCSHBY 

001752 

I$$RAR= 

000000 

LSTNM 

000052 

MCSMPX 

004406 

I$$RDN= 

000000 

L$TPT 

000050 

MCSNAP 

001604 

KJSAR6= 

******  GX 

L$TRB 

000040 

MCSNBR 

001130 

K$$CNT= 

177546 

L$TSZ 

000070 

MCSNBS 

001131 

K$$CSR= 

177546 

LSTYP 

000063 

MCSNCR 

001154 

K$$LDC= 

000000 

L$UNT 

000003 

MCSNCS 

001155 

KS$TPS= 

000074 

L$$ASG= 

000000 

MCSNHL 

001274 

LCSEXT 

000000 

L$$DRV= 

000000 

MCSNMR 

001142 

LCSINT 

000001 

L$$P11= 

000001 

MCSNMS 

001143 

LDSLP  = 

000000 

L$$11R= 

000000 

MCSNNO 

001606 

LF$END= 

000020 

MAPECL= 

**««*»  GX 

MCSNNU 

001605 
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Table  ot  contents 
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MACRO  CROSS  REFERENCE 
MACRO  NAME  REFERENCES 
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PAGE   ? 

CREf        04.00 


CALL 

7-103 

C1RCX$ 

#5-59 

5-65 

^ANDF$ 

#5-59 

5-61 

RETURN 

7-109 

»«FILE«*ID**C1CHIN 
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CICHIN  -   CIRCUIT    CHANGE 
PARSf    SJB-EXPRESSIONS 

210 
211 
212 
213 
2U 

215  000000 

216  000000 
217 

218  000000 

219  000000 
220 
221 
222 
223 
224 

225  000000 

226  000000 

227  000000 

228  000000 

229  000000 
230 

231  000000 
232 

233  000000 
234 
235 
236 
237 

238  000000 

239  000000 

240  000000 

241  000000 
242 
243 
244 

245  000000 

246  000000 

247  000000 

248  000000 

249  000000 
250 
251 
252 

253  000000 

254  000000 

255  000000 

256  000000 

257  000000 
258 
259 
260 

261  000000 

262  000000 

263  000000 

264  000000 

265  000000 
266 
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.SBTTL     PARSE   SUB-EXPRESSIONS 


.IFT 

SET  ALL  SUB-EXPRESSION  -  INVALID  OPTION 

FIELDS  SALL 
$EOM   ,SALL1 

FIELDS  SALL1 
SERROR  ME. FUN 

.IFTF 

STATE  SUB-EXPRESSION 

FIELDS  SSTA 
SPARAM  MPSSTA, ,PAREND,MP$STA,+LSPAR 

FIELDS 
SBYTE  MSSON,SEXIT,,MSSON,+LSSTA 
SBYTE  MSSOFF,$EXIT,,MSSOFF,+LSSTA 


SBVTE  MS$SEft,SEXIT,,M$SSER,tLSSTA 
SNULL   ,,PVAERR 


.IFT 

.IFTF 

.IFT 

COST  SUe-EXPRESSION 

FIELDS  SCOS 

SPARAM  MPSCOS, ,PAREND,MPSCOS,+LSPAR 
FIELDS 

SSKIP  ,SEXIT,COSACT 

Seruice  subexpression 

FIELDS  SSER 
SPARAM  MPSSER , , PAREND ,MPSSER , +LSPAR 

FIELDS 
SBYTE  M6SENA,SEXIT.,MBSENA,+LSSER 
SBYTE  MBSDIS,SEXIT,,MB$DIS,+LSSER 

COUNTER  TIMER  SUB-EXPRESSION 

FIELDS  SLCT 

SPARAM  MPSLCT , , PAREND ,MPSLCT , +LSPAR 
FIELDS 

SMATCH  2,SE)(IT,LCTACT 

SNULL  ,,PVAERR 

HELLO  TIMER  SUB-EXPRESSION 


SPARAM  MPSHTM,, PAREND, MPSHTM,+LSPAR 
FIELDS 

SMATCH  2,SEXIT,HTMACT 

SNULL  ,,PVAERR 
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PARSE  SUB-EXPRESSIONS 


CICHIN  - 
PNAERR  - 

732 
733 
73^ 
735 
736 
737 
738 
739 
740 
7k\ 
7U2 
7A3 
7i,l, 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 


CIRCUIT  CHANGE  PARAMBT  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  15 
PARAMETER  NOT  APPLICABLE  ERROR  RETURN 


000462  012700  177752 

000466  000416 

000470  012700  177760 

000474  000413 

000476  012700  177767 

000502  012764  000003  000072 

000510  000405 


000512  012700  177765 

000516  012764  000003  000072 

000524  016706  OOOOOOG 

000530  012601 

000532  000261 
000534 


,IfT 


.SBTTL  PNAERR  -  PARAMETER  NOT  APPLICABLE  ERROR  RETURN 

.SBTTL  PVAERR  -  PARAMETER  VALUE  ERROR  RETURN 
.SBTTL  CIRERR  -  CIRCUIT-ID  FORMAT  ERROR 


.IfTF 

•  ♦•-PNAERR-PARAMETER  NOT  APPLICABLE  ERROR  RETURN 

.IFT 
;  **-PVAERR-PARAMETER  VAl UE  ERROR  RETURN 
;  ♦♦-CIRERR-CIRCUIT-ID  FORMAT  ERROR  RETURN 

.IFTF 

■  THESE  ROUTINES  TERMINATE  THE  PARSE  WITH  THE  APPROPRIATE 
;  ERROR  CODE  RETURNED  IN  RO. 


.ENA8L 
.IFT 
PNAERR:  MOV 
BR 
.IFTF 
PVAERR:  MOV 
.IFT 

BR 

CIRERR:  MOV 
MOV 
BR 
.IFTF 


CSTERR: 


10$: 


MOV 
MOV 

MOV 
MOV 
SEC 

RETURN 


.DSA8L   LS8 


LS8 

#ME.PNA,RO 
10$ 

#ME.PVA,RO 

10$ 

#ME.J1D,R0 

#ME$CIR,L$PAR(R4) 

10$ 


#ME.CST,RO 
#ME$CIR,L$PAR(R4) 

.MSGST.SP 
(SP)+,R1 


SET  PARAM  NOT  APPLICABLE  ERROR 
AND  TERMINATE  PARSE 

SET  PARAM  VALUE  ERROR 

AND  TERMINATE  PARSE 

SET  INVALID  CIRCUIT-ID  ERROR 

JOIn" COMMON  CODE 


COMPONENT  IN  WRONG  STATE 
CIRCUIT 

RESTORE  SAVED  SP 

RESTORE  R1 

SET  ERROR  RETURN 
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CICHIN  -  CIRCUIT  CHANGE  PARAMt '  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  16 
PAREND  -  END  OF  PARAMETER  PARSE 
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ClCHlN  -  CIRCUIT  CHANGE  PARAMEI  MACRO  V05.0?b  Saturday  29-Jun-85  12:10  Page  28 
PLTACT  -  POLL  TIMER  ACTION  ROUTINE 


1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
106A 
1065 
1066 
1067 
1068 
1069 

1070  001176 

1071  001202     01016A     000112 

1072  001206 


.SBTTL  PLTACT  -  POLL  TIMER  ACTION  ROUTINE 

PLTACT  -  POLL  TIMER  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POINTER  TO  2  BYTE  POLL  TIMER 
R4     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

LSPLTCRO  -  POLL  TIMER  VALUE 


krACT:  CALL    CHKDMP 

MOV     R1,L$PLT(RA) 
RETURN 


CHEC."  fOR  DMP 

SAVE  HOLL  TIMER  VALUE 


ClCHIN 
BBTACT 


CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85 
BABBLE  TIMER  ACTION  ROUTINE 


12:1 


0  Page  29 


CICHIN  - 
HXBACT  - 

1290 
1291 
1292 
1293 
129A 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
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CIRCUII  CHANGE  PARAMEI  MACRO  V05.03b  Saturday  29-Jun-85  12:10  Page  41 
MAXIMUM  BLOCKS  ACIION  ROUTINE 

.SBTIL  MX8ACT  -  MAXIMUM  BLOCKS  ACTION  ROUTINE 


MXBACT  -  MAXIMUM  BLOCKS  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POINTER  TO  1  BrTE  MAXIMUM  BLOCKS 
R4     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

L$MX8(R4J  -  MAXIMUM  BLOCKS  VALUE 


OOKOO 

001404      110164     000133 

001410 


ftxBACT:  CALL    CHKDMP 

M0V8    R1,L$MXB(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  MAXIMUM  BLOCKS  VALUE 


CICHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85 
MXBACT  -  MAXIMUM  BLOCKS  ACTION  ROUTINE 


\2lt 
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AlREIN  -  '..iaS  read  information  macro  VO5.03b  Saturday  29-Jun-85  12:05  Page  7-1 
SAvALl  -  SAVE  ALIAS  CONTEXT 

227  C003')2  026164  000010  000020        CMP  A.UCe(Rl )  ,A$SC0(R4)     ;;  ELSE,  IS  THIS  ONE  TO  BE  DISPLAYED 

229  000370  001363                     BNE  30$                 ;;  IF  NE,  NO 

230  000372  40$:    CALL  SAVCTX               ;;  ELSE,  SAVE  ALIAS  CONTEXT 
23'!  0005^6  103360                     BCC  30$                 ;;  IF  CC,  BR 
232 

233  C00400  80$:    RESMAP  ;;  RESTORE  MAPPING 

234  000404  90$:    RETURN  :•  BACK  TO  USER  STATE  AND  RETURN 


..  1 

AlREIN  -  ALUS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  12:05  Page  8 
SAVCTK  -  SAVE  AN  ALIAS  CONTEXT 
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MACRO  CALLS  AND  LOCAL  DATA 


78  .EVEN 

79  .LIST   BEX 
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ALREOP  -  ALIAS  READ  INFORMATION  OPERATE 
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ALREOP     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:06     PAGE  2 

MACRO  CROSS  REFERENCE  CREf   OA.OO 


MACRO  NAME 

REFERENCES 

ALRCXS 

#5-57 

5-64 

ANBDFS 

#5-56 

5-59 

CALL 

6-H2 

6-U7 

DHBDFS 

#5-57 

5-62 

HDRDFt 

#5-57 

5-61 

MANDFS 

#5-56 

5-60 

HAP 

#5-56 

RESMAP 

#5-56 

9-3C2 

RETC 

#5-56 

9-283 

RETURN 

6-163 

7-198 

SAVMAP 

#5-56 

9-278 

SWSTKS 

#5-56 

9-277 

•♦F!LE«MD**ALXXIN 


6-U8  8-239  9-277  9-281  9-289  9-290  9-300  10-341 


8-245  9-303  9-315  10-355 
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ALXXIN  -  ALIAS  INITIALIZATION  C  MACRO  V05.03b  Saturday  29-Jun-85  12:06 
Symbol  table 


MESEXA 

MESEXE 

MESLIN 

MESLOG 

MESMOD 

MESNOD 

MESNON 

ME $06 J 

ME$0B2 

MESPRC 

MESSVS 

ME.BLO 

ME. CON 

ME.CST 

ME.DIS 

ME . DON 

ME. FCC 

ME.FIO 

ME. FOP 

ME. FOR 

ME. FUN 

ME.GRO 

ME.HAR 

ME.IID 

ME.LCO 

ME.LPR 

ME.MPR 

ME.MVE 

ME. OPE 

ME.PLO 

ME.PMI 

ME . PNA 

ME.PRI 

ME.PTY 

ME.PVA 

ME. RES 

ME . ROO 

ME.SIZ 

ME. SYS 

ME.UCO 

MFSACT 

MFSADD 

MFSADJ 

MFSALL 

MFSBYE 

MFSCHA 

MFSDUM 

MFSEVT 

MFSFUP 

MFSKNO 

MFSLOA 

MFtLOO 

MFSREA 

MFSSIG 

MFSSPF 

MFSSYS 

MF$TES 


000000 

000200 

000001 

000002 

000004 

000000 

177777 

000007 

000004 

000005 

000006 

177744 

177753 

177765 

177755 

177600 

177762 

177756 

177763 

177776 

177777 

177745 

177750 

177767 

177766 

177757 

177773 

177771 

177747 

177751 

177743 

177752 

177775 

177772 

177760 

177761 

177754 

177774 

177746 

177770 

177776 

000000 

177774 

177775 

000300 

000023 

000020 

000001 

000264 

177777 

000017 

177775 

000024 

177773 

000302 

00002C 

000022 


MFSTRA 

MFSTRI 

MFSZER 

MLSALL 

MLSCLS 

MLSCON 

MLSEXT 

MLSFIL 

MLSFIR 

MLSINT 

MLSKNO 

HLSHON 

MLSSYS 

MLSTOP 

MNSUNL 

MOSACC 

MOSADD 

HOSALA 

MOSALI 

MOtCHA 

HOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

MOSLIN 

MOSLOG 

MOSMIR 

MOSNAM 

MOSNIC 

MOSNOD 

MOSOFF 

MO$ON 

MOSOPT 

MOSPER 

MOSPRO 

MO$PRS 

MOSREA 

MOSSET 

MOSSTA 

MOSSUM 

MOS^SK 

MOSVOL 

MOSZER 

MP$AC8 

MPtACC 

MPSACT 

MPSADD 

MPSADJ 

MPSADP 

MPSADS 

MPSALB 


000301 

000021 

000025 

100000 

000000 

000001 

000001 

000002 

000000 

000000 

140000 

000003 

000002 

000001 

000377 

000200 

000002 

000004 

000000 

000040 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

000000 

000001 

000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

000514 

004526 

000766 

001440 

006325 

004406 

000036 


MPSAMC 

HPSAMH 

MPSANS 

HPSASB 

MPSASC 

MP$AUS 

MPIBBT 

MPSBDF 

MPSBFQ 

MPSBLK 

MPSBLO 

MPSBMX 

HPSBNP 

HPSBRT 

MPSBSA 

MPSBSD 

HP$8S] 

MPSBSP 

MPSBUF 

MPSBUP 

HPSBUS 

MPSCAC 

MPSCAS 

MPSCAT 

MPSCCS 

HPSCHN 

MPSCIR 

MPSCLK 

HPSCLN 

MPSCLT 

MPJCMB 

MPSCMK 

MPSCMX 

MPSCND 

MPSCNU 

HPSCOB 

MPS CON 

MPSCOS 

MPSCPF 

HPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

MPSDAL 

MP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DHO= 

MPSDIA 

HPSDLB 

MPSDLG 

MP$DLI= 
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001640 

MPSDLT 

002200 

MPSMAV 

92$^l 

001641 

MPSDRO 

001441 

MPSMBN 

001636 

004420 

MPSDST 

000454 

HPSMBR 

001637 

000024 

MPIDTE 

002140 

MPSMBU 

001642 

004432 

MP$DTY= 

001452 

HPSHCB 

000156 

000512 

MPSDUA 

000207 

MPSHCO 

001632 

002165 

MPSDUC 

000210 

MPSHDE 

004421 

002164 

MP$DUM 

000202 

MPSMHO 

001633 

002121 

MPSDUP 

002127 

MPSHLB 

000202 

001616 

HPSDVC 

002114 

MPSMLK 

001306 

001452 

MPSDUE 

001321 

HPSMLN 

001631 

002176 

MPSELT 

000157 

MPSMLP 

006333 

006330 

MPSETY 

001605 

HPSHRB 

002171 

001620 

MPSEVE 

000311 

HP$MRO 

001605 

002176 

HPSFNC 

001752 

MPSMRP 

006322 

002203 

MPSGDT 

002222 

MPSMRT 

002153 

002200 

HPSGNM 

002223 

MPSMRV 

006320 

006331 

MPSGRO 

002115 

MPSMSB 

000170 

000170 

MPSGRP 

000541 

MPSHVE 

000145 

006324 

MPSGIY 

002224 

HPSMVI 

001634 

001643 

HPSHAD 

001757 

MPSHVR 

001751 

001750 

MP$HBT 

002142 

HPSMWN 

002154 

001762 

MPIHDD 

000162 

MPSMXB 

002172 

002210 

MPSHTH 

001612 

HPSMXC 

000466 

004406 

MPSHWA 

002210 

MPSMXR 

001630 

002141 

MPSIAI 

001322 

MPSMXW 

002143 

000144 

MPSIDE 

000144 

HPSNAA 

006335 

002131 

MPSIDP 

006327 

MPSNAC 

001130 

002126 

MPS I HO 

000215 

MPJNAP 

006326 

002211 

MPSINA 

002177 

HPSNCT 

000240 

002142 

MPSIND 

002204 

HPINET 

002114 

000537 

MPSINl 

002201 

MPSNLI 

000765 

002153 

MPSITI 

000776 

MPSNNA 

000764 

000310 

MPSLAA 

000231 

MPINOD 

000500 

001753 

MPSLAN 

000234 

HPSNRA 

006334 

000311 

MPSLAR 

000202 

MPSNRB 

000214 

002126 

HPSLAS 

000012 

MPSNSA 

001617 

001604 

HPSLBS 

000203 

HPSNTI 

002141 

000230 

MPSLCO 

000226 

HPSNUM 

001642 

000232 

MPJLCT 

000156 

MPSNVE 

001274 

000226 

HPSLHL 

000232 

MP$NXN= 

001476 

000161 

MPSLLE 

000227 

MPSOAC 

000632 

001755 

MPSLLO 

004432 

MPSOAN 

000620 

002127 

MPSLMB 

002152 

MP$OCO 

000776 

000540 

MPSLMX 

002200 

MPSOHO 

000214 

002570 

MPSLNA 

000144 

MPIONA 

000764 

001464 

MPSLNO 

000233 

MPSONR 

002114 

002177 

MPSLOA 

000170 

HPSOQL 

001453 

001131 

MPSLOG 

004514 

MPSOTI 

000777 

000156 

MPSLOO 

000620 

MPSOTY 

001022 

002114 

MPSLTM 

001613 

HPSOUS 

000777 

001320 

MPSLTY 

004533 

MPSOVE 

001010 

001465 

MPSLWI 

000230 

MPSOUN 

004374 

000173 

HPSMAC 

004420 

HPSPAR 

000036 

002571 

MPSMAD 

001630 

MPSPAS 

000513 

004521 

MPSHAP 

006323 

MPSPCH 

002152 

001466 

MPSMAR 

001635 

MPSPCO 

000024 
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AF.END= 

AF.IN1= 

AF.KNO= 

AF.LV2= 

AF.MUX= 

ARREIN 

A$BUF 

A$EXA 

ASFLG 

ASLENV 

ASMAX 

A$NAM 

ASNUH 

ASOPT 

A$PAR 

ASXPT 

AS$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

Ct$CKP= 

C$$ORE= 

C$$RSH= 

DECPT  = 

OV.CCL= 

DV.COM^ 

DV.DIR= 

DV.EXT= 

0V.F11= 

DV.ISP= 

DV.MBC= 

DV.MNT= 

DV.MSD= 

DV.OSP= 

DV.PSE= 

DV.REC= 

OV.SDI= 

DV.SQD= 

DV.SWL= 

OV.TTY= 

DV.UMD= 

DSAMXC 

DSAMXH 

D$ANN 

DSBRPR 

DSBRTM 

DSDELF 

D$DELW 

OSEND  = 

DSFNB 

DSHIOR 

DSHOST 

DSINAC 

OSINCT 

OSIPL 

DSLID 

DSLNAM 


OOOOAO 

000001 

000002 

000100 

000020 

OOOOOORG 

000002 

OOOOU 

000000 

000027 

000006 

000020 

OOOOO'!. 

000010 

000016 

000012 

000000 

000000 

000000 

000000 

000000 

OOOAOO 

177564 

»♦***♦  GX 

000002 

020000 

000010 

000400 

040000 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 


DSLNUM 

000014 

H.SPR] 

000060 

DSLST 

000047 

H.TKVA 

9999i6 

DSMAXC 

000064 

H.TKVL 

000030 

DSMAXH 

000066 

H.VEXT 

000056 

DSMAXV 

000070 

H.UND 

000044 

DSMLL 

000040 

H.X25 

99996^ 

DSMNOD 

000041 

I$$RAR= 

000000 

DSNA 

000062 

IS$RDN= 

000000 

DSNBEA 

000056 

K$$CNT= 

177546 

DSNBRA 

000054 

K$$CSR= 

177546 

D$NEND= 

000054 

K$$LDC= 

000000 

D$NLN 

000030 

K$$TPS= 

000074 

D$NN 

000060 

LCSEXT 

000000 

DSOUTT 

000043 

LCSINT 

000001 

DSRETF 

000050 

LD$LP  = 

000000 

OSRNN 

000002 

L$$ASG= 

000000 

DSRTMR 

000076 

LSSDRV^ 

000000 

DSSEG 

000036 

L$$P11= 

000001 

D$SER 

000032 

L$$11R= 

000000 

DSSQRL 

000052 

HBSDIS 

000001 

0$$BUG= 

177514 

MBSENA 

000000 

D$$ISK= 

000000 

MBSFUL 

000002 

D$$L11= 

000001 

MBSMJX 

000002 

D$$YNC= 

000000 

MBSONE 

000001 

D$$YNM= 

000000 

HBSRXO 

000001 

E$$XPR= 

000000 

HBSTXO 

000000 

F$$LVL= 

000001 

HBSZER 

000000 

G$$TPP= 

000000 

MCSBAB 

006073 

G$$TSS= 

000000 

MCSBID 

001765 

G$$TTK= 

000000 

MCSBMC 

001767 

G$$URD= 

000000 

MCSBSC 

001766 

HEADR  = 

♦**»*«  GX 

MCSCAC 

001442 

H.CSP 

000000 

MCSCAP 

001440 

H.CUIC 

000010 

MCSCCL 

001445 

H.DSW 

000046 

MCSCDC 

002045 

H.DUIC 

000012 

MCSCDP 

001441 

H.EFLM 

000004 

HCSCIF 

001465 

H.EFSV 

000040 

HCSCLD 

001464 

H.FCS 

000050 

MCSCOU 

100000 

H.FORT 

000052 

HCSCTL 

001454 

H.FPSA 

000042 

HCSCTR 

001452 

H.FPSL= 

000062 

MCSCTS 

001453 

H.FPVA 

000034 

MCSDOV 

002050 

H.GARD 

000072 

MCSLBR 

001750 

H.HDLN 

000002 

MCSLBS 

001751 

H.IPC 

000016 

MCSLDI 

001774 

H.IPS 

000014 

HCSLDO 

001775 

H.ISP 

000020 

MCSLDR 

001762 

H.LUN 

000076 

HCSLDS 

001763 

H.NLUN 

000074 

MCSLLB 

002021 

H.NML 

000061 

MCSLLP 

002115 

H.ODVA 

000022 

MCSLLR 

002007 

H.ODVL 

000024 

HCSLOO 

000001 

H.OVLY 

000054 

MCSLRB 

002020 

H.PFVA 

000032 

MCSLRP 

002114 

H.RCVA 

000036 

MCSLRR 

002006 

H.RRVA 

000062 

MCSLSl 

002032 

MCJLST 
HCSLUP 
MCSMAP 
HCSMBL 
MCSHBX 
MCSHBY 
MCSMPX 
HCSNAP 
MCSNBR 
HCSNBS 
HCSNCR 
HCSNCS 
MCSNML 
HCSNMR 
MCSNMS 
MCSNNO 
MCSNNU 
MCSNOP 
MCSNOR 
MCSNPF 
MCSNPR 
HCSNRE 
MCSNRT 
HCSNVR 
HC$P08 
MC$P11 
HCSRFL 
HCSSBU 
MCSSFL 
MCSSVC 
MCSS/L 
MCSSYR 
MCSSYS 
MCSSYZ 
MCSTBR 
HCSTBS 
MCSTDR 
HCSTIM 
MCSTYP 
MCSUBU 
MCSUFD 
MCSUMR 
MCSUMS 
MCSVAX 
HCSWID 
MCSWIH 
MCSWIL 
MC$W08 
MC$W16 
MC$U32 
HCSXBR 
MCSXBS 
MCSXCJ 
HCSXCR 
MCSXCS 
MCSXDR 
MC$XDS 


002033 
006072 
010000 
001764 
004420 
001752 
004406 
001604 
001130 
001131 
001154 
001155 
001274 
001142 
001143 
001606 
001605 
001607 
000000 
001616 
001630 
001200 
001166 
001642 
000000 
000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 


MCSXFR 

HCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXMC 

MCSXMS 

MCSXNR 

MCSXRC 

HC$XRR 

MC$XRS 

MC$020 

MD$CI 

MDICNA 

MDSCOU 

MD$DA 

MD$DL 

HDSDLV 

MDSDMC 

MD$DHF 

MD$DMP 

MDSOMR 

MDSDMV 

MD$DN 

MDSDP 

HDSDPV 

MDSDQ 

MDIDTE 

MDSDU 

MOSDUP 

MD$DV 

MDJDZ 

MDSFUL 

MDSHAL 

MDSHEL 

MD$KCP 

MDIKDP 

MDSKDZ 

HD$KL 

MDSKMX 

HDSKMY 

HDSLEN 

MDSPCL 

MDSQNA 

HDSUNA 

MDSUIT 

MD.ABO 

MD.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

HD.DOB 

MD.DUM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 


002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 
000036 
000040 
000054 
000052 
000050 
000011 
000005 
000001 
000002 
000017 
000010 
000016 
000011 
000007 
000015 
000002 
000014 
000001 
000006 
000001 
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132  000154 
153  000156 
13A  000160 

135  000162 

136  000170 

137  000200 

138  000206 

139  000210 
HO  000216 
U1  000224 
U2 

U3  000226 
144  000240 
145 

146  000242 

147  000244 

148  000252 

149  000254 

150  000260 
151 

152  000262 

153  000270 

154  000272 
155 

156 
157 

158  000300 

159  000304 

160  000310 


060100 
011000 
001422 


132760 
001407 
016066 
116066 
000405 


103007 
032764 
001264 
005054 
000443 

032764 
001003 
042764 


112723 
112723 
105023 


000010  000002 


000000 
000003 


000002 
000000 

000002 
000001 


M7777 
177777 


OOOOOOG 
OOOOOOG 


000000 

000000 
000000 


20$: 
25$: 

30$: 


32$: 


ADD  RI.RO 

HOV  (RO),RO 

BEQ  20$ 

MAP  N$ADJ1(R2) 

BIAS  RO 

BITS  #AT$UP,A$TYP(RO) 

BEQ  20$ 

MOV  A$NID(R0),R$R1(SP) 

MOVB  A$C1R(R0),R$R2{SP) 

BR  25$ 

RETC  RO 
RET'JRN 

BCC  32$ 

BIT  #AF.KN0,A$FLG(R4) 

BNE  10$ 

CLR  A$FLG(R4) 

BR  45$ 

BIT  #AF.KN0,A$FLG(R4) 

BNE  35$ 

BIC  #AF.INI,A$FLG(R4) 


BUILD  RESPONSE  MESSAGE 


55$: 


161  000312 

105023 

162  000314 

116423 

000004 

163  000320 

105023 

164 

165  000322 

112723 

000000 

166  000326 

112723 

000201 

167  000332 

112723 

000004 

168 

169  000336 

032764 

000020  OOC 

170  000344 

001402 

171  000346 

172  000352 

173  000356 

174  000362 

012700 

000001 

175  000366 

000402 

176 

177  000370 

012700 

177600 

178 

179  000374 

166403 

000002 

180  000400 

010302 

181  000402 

000241 

182  000404 

110074 

000002 

183  000410 

100001 

184  000412 

000261 

185 

186  000414 

187 

40$: 

45$: 
50$: 

55$: 


MOVB 
MOVB 
CLRB 
CLRB 
MOVB 
CLRB 

MOVB 
MOVB 
MOVB 

BIT 

BEQ 

CALL 

CALL 

CALL 

MOV 

BR 

MOV 

SUB 

MOV 

CLC 

MOVB 

BPL 

SEC 

RETURN 


*HD.N0N,(R3)t 
#MD.N0N,(R3)+ 
(R3)  + 
(R3)  + 

A$NUM(R4),(R3)+ 
(R3)  + 

#MP$STA,CR3)+ 

#MT$C0DI1,(R3)+ 

#MS$REA,(R3)t 

*M0$STA,A$0PT(R4) 

40$ 

GETMHC 

FMTCIR 

NXTNOD 

#MS.SUC,R0 

50$ 

#ME.DON,R0 

A$BUF(R4),R3 
R3,R2 

R0,aA$BUF(R4) 
55§ 


POINT  TO  REACHABILITY  INFORMATION 

PICK  UP  REACHABILITY  INFO 

IF  EQ,  NOT  REACHABLE 

MAP  TO  THE  ADJACENCY  DATABASE 

BIAS  ADJACENCY  ADDRESS 

IS  THIS  ADJACENCY  UP  ? 

IF  EQ,  NO 

PICK  UP  NEXT  NODE  IN  PATH 

...  CHANNEL  NUMBER 

DONE 

SET  USER  CARRY  -  AREA  NOT  KNOWN 
BACK  TO  USER  STATE 

IF  CC,  GOT  A  LIVE  ONE 

ELSE,  ARE  WE  PROCESSING  MULTI  AREAS 

IF  NE,  YES  -  KEEP  LOOKING 

END  MULTIPLE  RESPONSE  SEQUENCE 

JOIN  COMMON  CODE 

PLURAL  AREAS  ? 

YES  -  OK 

TERMINATE  MULTI-RESPONSE    SEQUENCE 


no  detail 

no'text 

numeric  format,  like  for  node 

stuff  area  into  response 


PARAMETER  =  STATE 
SINGLE  CODED  VALUE 
REACHABLE 

INFORMATION  TYPE  =  STATUS  ? 

IF  EQ,  NO 

GET  HOPS  AND  COST 

FORMAT  CIRCUIT  ID 

FORMAT  NEXT  NODE  INFO 

SUCCESS 

DONE 

ASSUME  WE'RE  ALL  DONE 

CALCULATE  LENGTH  OF  MESSAGE 

ASSUME  SUCCESS 

STUFF  RETURN  CODE  IN  RESPONSE 

IF  PL,  DONE 

PASS  BACK  ERROR 
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SYMBOL  VALUE 


AF.END 

AF.INl 

AF.KNO 

AF.LV2 

AF.MUX 

ARREOP 

ASCIMG 

AT$UP 

ASBUF 

ASCIR 

ASEXA 

ASFLG 

ASLENX 

A$MAX 

A$NAM 

A$NID 

ASNUM 

ASOPT 

ASPAR 

ASTYP 

ASXPT 

CODMUL 

CODSNG 

DECPT 

OECSIG 

DECUNS 

DSLNAM 

DSLNUM 

FMTCIR 

GETEXA 

GETMHC 

HEX 

HEXIMG 

I$$AS 

KISAR6 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.ClO 


OOOOAO 

000001 

000002 

000100 

000020 

000002  RG 

000100 

000010 

000002 

000003 

OOOOH 

000000 

000027 
000006 
000020 
000000 
OOOOOA 
000010 
000016 
000002 
000012 
000300 
000200 


-  ****** 
=  000020 
=  000000 

000006 
OOOOK 
001054  R 
000A16  R 
000650  R 
=  000010 

=  Mjyn 

-  ****** 
=  ****** 

=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 
=  000000 


GX 


GX 


REFERENCES 

#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#6-91 
#5-62 

6-137 
#5-67 

6-140 
#5-67 
#5-67 

8-276 
#5-67 
#5-67 
#5-67 

6-139 
#5-67 
#5-67 
#5-67 

6-137 
#5-67 
#5-62 
#5-62 

7-244 
#5-62 
#5-62 

11-446 

7-245 

6-172 

6-118 

6-171 
#5-62 
#5-62 

5-63 
»6-126 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 


7-207 

6-95 

6-100 

7-225 

9-361 

8-303 
7-217 

♦6-93 
7-220 
6-116 
6-95 

*9-361 

6-104 
11-442 
7-219 
•6-103 
6-169 

7-217 
6-110 
10-416 

11-443 

8-303 

11-444 
#9-329 
#7-201 
#8-266 


8-306 
*6-135 


9-384 


6-154 
6-147 
8-276 
9-364 

8-309 
7-236 
6-179 
7-239 

6-100 
•9-364 


7-238 
6-104 


236 
204 


8-309 


7-201 
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6-152 
9-376 
10-419 
6-182 


10-421 


6-147    •6-149 
9-376 


6-116 


8-270 


10-419 


6-130 


9-340 


10-421 


6-152    ^6-154 


6-162     8-283 


7-207 


7-225 


•7-212 


•7-228 


•7-235    ^7-249 


•8-287 
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94 

95 

96 

97 

98 

99 
100 
101 
102 
103 

104  000000 

105  000000 

106  000004 

107  000010 

108  OOOOU 

109  000020 

110  000024 

111  000030 
112 


.S8TTL  DISPATCH  TABLE  FOR  SAVE  ROUTINES 


DISPATCH  ROUTINE  FOR  SAVE  ROUTINES 


000444'  000001 

000250'  000002 

000542'  000004 

000770'  000010 

001200'  000020 

000626'  000040 
000000 


NOTE: 


DISTBL: 


SAVLOO  ALWAYS  HAS  TO  BE  THE  LAST  SAVE  ROUTINE  CALLED 
BECAUSE  OF  THE  WAY  IT  SAVES  NODE  ADDRESS  ENTRIES  IN 
THE  CONTEXT  AREA. 


SAVE  REMOTE  NODES 

SAVE  ROL  NODES 

SAVE  ECL  NODES 

SAVE  ADJACENT  NODES 

SAVE  SERVICE  NODES 

SAVE  LOOP  NODES 


.WORD 

SAVREM, 

NL 

REM 

.WORD 

SAVROL, 

NL 

ROL 

.WORD 

SAVECL, 

Nl 

k:l 

.WORD 

SAVADJ, 

Nl 

ADJ 

.WORD 

SAVSER, 

NL 

SbR 

.WORD 

SAVLOO, 

Nl 

100 

.WORD 

0 
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MCINOP 

MCtNOR 

MCSNPF 

MCSNPR 

MCSNRE 

MCSNRT 

MCSNVR 

MC$P08 

MC$P11 

MCSRFL 

MCSSBU 

MCSSFL 

MCSSYC 

MCSSYL 

MCSSYR 

MCSSYS 

MCISYZ 

MCSTBR 

MCSTBS 

HCSTDR 

MCSTIM 

MCSTYP 

MCSUBU 

MCSUFD 

MCSUMR 

MCSUMS 

HCSVAX 

MC$WID 

MCSWIH 

MCSWIL 

MC$W08 

MC$W16 

MC$W32 

MCSXBR 

MC$XBS 

MCSXCJ 

MCSXCR 

MCSXCS 

MCSXDR 

MCSXDS 

MCSXFR 

MCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXMC 

MCSXMS 

MCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

»1C$020 

MD$CI 

MDSCNA 

MDSCOU 

MDSDA 

HDSDL 


001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002016 

002051 

002011 

000012 

000036 

000050 

000021 

000000 

001110 

001111 

OCc053 

000000 

007777 

002052 

002017 

001132 

001133 

000003 

060000 

010000 

020000 

020000 

01OOOO 

060000 

001750 

001751 

000322 

002260 

002261 

001762 

001763 

002272 

002273 

000323 

002330 

000310 

002305 

002301 

002332 

002316 

002331 

002312 

000002 

000007 

000003 

000001 

000010 

000001 


MDSDLV 

MDSDMC 

MDSDHF 

MDSDMP 

MDSDMR 

MDSDMV 

MD$DN 

HD$DP 

MDSDPV 

MD$DQ 

MDtDTE 

HDSDU 

MDSOUP 

MDSDV 

HD$DZ 

MDSFUL 

MDSHAL 

HDSHEL 

MDSKCP 

HD$KDP 

MD$KD2 

HD$KL 

MDSKMX 

HDSKMY 

MDSLEN 

MDSPCL 

MOSQNA 

MDSUNA 

MDSWIT 

MD.ABO 

MO.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.NOB 

MD.NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSH 

MD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

m .  UNR 

m .  UOB 

MD.VOL 

MESALI 

ME$AL2 


000020 

000011 

000016 

000022 

000050 

000012 

000016 

000000 

000011 

000006 

000021 

000002 

000012 

000026 

000030 

000000 

000001 

000002 

000013 

000031 

000036 

000010 

000051 

000052 

000050 

000011 

000005 

000001 

000002 

000017 

000010 

000016 

0000^1 

000 

OOC  D 

000002 

000011 

000001 

000006 

000001 

000020 

000012 

177777 

000000 

000001 

000005 

000013 

000005 

000003 

000000 

000001 

000002 

000003 

000007 

000006 

000010 

000003 


MESARE 
MESCIR 
HESEXA 
ME$EXE 
MESLIN 
ME SLOG 
MESMOD 
MESNOD 
MESNON 
MESOBJ 
ME$0B2 
MESPRO 
MESSYS 
ME.BLO 
HE. CON 
ME.CST 
ME.DJS 
ME. DON 
ME.FCO 
ME.FIO 
ME. FOP 
ME. FOR 
ME. FUN 
ME.GRO 
HE.HAR 
ME.IID 
ME.LCO 
ME.LPR 
ME.MPR 
ME.MVE 
ME. OPE 
ME.PLO 
MF.PM] 
ME . PNA 
ME. PR] 
ME.PTY 
ME.PVA 
ME. RES 
ME.ROO 
ME.SIZ 
HE. SYS 
HE.UCO 
MFSACT 
MFSADD 
MFSADJ 
MFSALL 
HFSBYE 
HFSCHA 
MFSDUM 
MFSEVT 
MFSFUP 
HFSKNO 
HFSLOA 
MFSLOO 
MFSREA 
MFSSIG 
MFSSPF 


000005 

000003 

000000 

000200 

000001 

000002 

000001 

000000 

177777 

000007 

000001 

000005 

000006 

17771,1, 

177751 

177765 

177755 

177600 

177762 

177756 

177763 

17777b 

177777 

17771,'b 

177750 

1777k7 

1777b(i 

177757 

177771 

177771 

17771,7 

177751 

177713 

177752 

17777S 

177772 

177760 

177761 

177751 

177771, 

1777i,b 

17777Q 

17777 t 

000000 

177771 

177775 

000300 

000023 

000020 

000001 

000261 

177777 

000017 

177775 

000021 

177773 

000302 


HFSSYS 

MFSTES 

MFSTRA 

MFSTRI 

HF$2ER 

HLSALL 

HLSCLS 

HLSCON 

MLSEXT 

MLSFIL 

HLSFIR 

HLSINT 

HLSKNO 

HLSHON 

MLISYS 

MLSTOP 

HNSUNL 

HOSACC 

MOSADD 

MOSALA 

MOSALl 

MOSCHA 

HOSCIR 

HOSCLE 

MOSCOU 

MOSDAC 

HOSDEF 

MOSDPR 

HOSENT 

HOSEVE 

HOSINF 

MOSINS 

MOSLIN 

MOSLOG 

MOSMIR 

MOSNAM 

HOSNIC 

HOSNOD 

HOSOFF 

HOSON 

HOSOPT 

MOSPER 


000026 
000022 
000301 
000021 
000025 
100000 
000000 
000001 
000001 
000002 
000000 
000000 
110000 
000003 
000002 
000001 
000377 
000200 
000002 
000001 
000000 
000010 
000003 
000100 
000060 
000000 
000000 
000000 
000017 
000100 
000160 
000002 
000001 
000001 
000031 
000001 
000023 
000000 
000001 
000000 
000001 
000200 


HPSADS 
MPSALB 
MPSAMC 
MPSAHH 
MPSANB 
HPSASB 
HPSASC 
HPSAUS 
MPSBBT 
MP$BDF 
HPSBFQ 
HPIBLK 
MPSBLO 
HPJBHX 
HPSBNP 
MPSBRT 
MPSBSA 
HPSBSD 
HPSBSI 
HPSBSP 
HPSBUF 
HPSBUP 
MPSBUS 
HPSCAC 
HPSCAS 
HP$CAT 
HPSCCS 
HPSCHN 
HPSCIR 
HPSCLK 
MPSCLN 
MPICLT 
MP$CMB 
HPSCMK 
MPSCHX 
HPSCND 
MPSCNU 
HPSCOB 
HPSCON 
HPSCOS 
HPSCPF 
HPSCPL 


001106 
000036 
001610 
001611 
001120 
000021 
001132 
000512 
002165 
002161 
002121 
001616 
001152 
002176 
006330 
001620 
002176 
002203 
002200 
006331 
000170 
006321 
001613 
001750 
001762 
002210 
001106 
002111 
000111 
002131 
002126 
002211 
002112 
000537 
002153 
000310 
001753 
000311 
002126 
001601 
000230 
000232 


MOSPRO 

000002 

MPSCPT  000226 

MOSPRS 

000001 

MPSCPU  000161 

MOSREA 

000200 

MPSCSZ  001755 

HOSSET 

000000 

MPSCUS  002127 

HOSSTA 

000020 

MPSCVA  000510 

MOSSUM 

000000 

HPSDAL  002570 

MOSTSK 

000000 

HP$DC0=  001161 

MOSVOL 

000000 

HPSDDT  002177 

MOSZER 

000000 

HPSDEL  001131 

HPIACB 

000012 

MPSDES  000156 

HPSACC 

000511 

MPSDEV  002111 

HPSACT 

001526 

HPSDFA  001320 

MPSADD 

000766 

HP$DH0=  001165 

MPSADJ 

001110 

HPSOIA  000173 

MPIADP 

006325 

HPSDLB  002571 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  CHKCIR  -  CHECK  A  CIRCUIT-ID  FORMAT 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  198?,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  CHECK  A  CIRCUIT-ID  FORMAT 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  08-JUL-81 

DECNET-llM/S  V3.1 
DECNET-IIM-PLUS  VI. 1 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CHK-LIN  -  CHECK   ^  LlNF-ID   FORMAT  MACRO  V05.03b  Sa""  jrddy  29-Jun-85 

Table  ot  contents 

5-  SS    MACRO  CALLS  AND  LOCAL  DATA 

6-  63    BIT  DEFINITIONS 

7-  66    CHKLIN  -  CHECK  LINE  ID  FORMAT 


I,  11 

17:A2 
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L  12 


•F!LE"1D««C1CHIN 


cccccccc 

niiii 

cccccccc 

HH 

HH 

II 

III 

NN      NN 

cccccccc 

II  III 

cccccccc 

HH 

HH 

II 

III 

NN      NN 

cc 

1 

cc 

HH 

HH 

J 

NN     NN 

cc 

cc 

HH 

HH 

I 

NN      NN 

cc 

HH 

HH 

I 

NNNN    NN 

cc 

HH 

HH 

1 

NNNN    NN 

cc 

cc 

HHHHHHHHHH 

I 

NN  NN  NN 

cc 

cc 

HHHHHHHHHH 

NN  NN  NN 

cc 

cc 

HH 

HH 

NN    NNNN 

cc 

[I 

HH 

HH 

1 

NN    NNNN 

cc 

HH 

HH 

1 

NN      NN 

cc 

cc 

HH 

HH 

I 

NN      NN 

cccccccc 

II  III 

cccccccc 

HH 

HH 

II 

III 

NN      NN 

cccccccc 

III 

III 

cccccccc 

HH 

HH 

II 

nil 

NN      NN 

ssssssss 

TTTTT 

TTTTT 

SSSSS5SS 

TTTTT 

mil 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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CICHIN  -  CIRCUIT  CHANGE 
PARSE  SUB-EXPRESSIONS 

267 
268 

269  000000 

270  000000 

271  000000 

272  000000 
273 
27A 
275 

276  000000 

277  000000 

278  000000 

279  000000 

280  000000 

281  000000 

282  000000 

283  000000 
28A  000000 

285  000000 

286  000000 

287  000000 

288  000000 
289 
290 
291 

292  000000 

293  000000 
29^  000000 
295  000000 
296 
297 
298 

299  000000 

300  000000 

301  000000 

302  000000 
303 
304 
305 

306  000000 

307  000000 

308  000000 

309  000000 

310  000000 

311  000000 
312 
313 
3U 

315  000000 

316  000000 

317  000000 

318  000000 
319 
320 
321 

322  000000 

323  000000 
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LISTEN  TIMER  SUB-EXPRESSION 

FIELDS  SLTM 

SPARAM  HPSLTM, ,PAREND,MP$LTM,tL$PAR 
FIELDS 

SNULL   ,,PNAERR 

OWNER  SUB-EXPRESSION 

FIELDS  SOWN 

SPARAM  MPSONR,,PAREND,MPSONR,+LSPAR 
FIELDS 

SBYTE  MESNOD.NODOWN 

SBYTE  MESMOD 
FIELDS 

SIHAGE   3,$EXIT,0WNACT 

SNULL  ,,PVAERR 
FIELDS  NODOWN 

SNATCH  2,N0DNAM,N0DACT 

SNULL  ,,PVAERR 
FIELDS  NODNAM 

SBYTE  O.SEXIT 

TRIBUTARY  ADDRESS  SUB-EXPRESSION 

FIELDS  STAD 

SPARAM  MPSTfil , ,PAREND,MP$TRI ,+L$PAR 
FIELDS 

SSKIP  ,SEXJT,TADACT 

ACTIVE  POLLING  RATIO  SUB-EXPRESSION 

FIELDS  SACT 

SPARAM  MPSMAC , , PAREND ,MPSMAC , +LSPAR 
FIELDS 

SSKIP  ,SEXIT,ACTACT 

PROCESS  LOCATION  SUB-EXPRESSION 

FIELDS  SLOC 

SPARAM  MPSLLO, , PAREND, MPSLLO,+LSPAR 
FIELDS 

SBYTE  MLSFIR,SEXIT,,LS.LIN,+LSNTL+LR.STS 

SBYTE  ML$TOP,SEXIT,,LS.LINILS.TOP!LS.OPT,+L$NTL+LR.STS 

SNULL  ,,PVAERR 

POLL  TIMER  SUB-EXPRESSION 

FIELDS  SPLT 

SPARAM  MPSSCT,, PAREND, MPSSCT,+LSPAR 
FIELDS 

SMATCH  2,$EXIT,PLTACT 

BABBLE  TIMER  SUB-EXPRESSION 

.PAREND, MPSSCT, *L$PAR 


FIELDS  SB8T 
SPARAM  MPSBBT, 
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772 
773 
77A 
775 
776 
777 
778 
779 
780 
781 
782 
783 
78A 
785 
786 

787  000556 

788  000536  005064  000072 

789  0005A2 
790 

791 


.SSTTL  PAREND  -  END  Of  PARAMETER  PARSE 

•♦•-PAREND-END  OF  PARAMETER  PAR^E 

THIS  ROUTINE  CLEARS  THE  CURRENT  PARAMETER  CELL  IN  THE 
CONTEXT  BLOCK,  AND  RETURLSS 

INPUTS: 


RA  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

L$PAR(R';)  IS  CLEARED 


PAREND: 


CLR     L$PAR(RA) 
RETURN 


;  CLEAR  CURRENT  PARAMETER  CELL 


.IF- 
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CICHIN  - 
BBTACT  - 

107^ 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1085 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
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.SBTTL  B8TACT  -  BABBLE  TIMER  ACTION  ROUTINE 

BBTACT  -  BABBLE  TIMER  ACTION  ROUTINE 

INPUTS; 

.MSGPT  -  POINTER  TO  2  BYTE  BABBLE  TIMER 
Hi,  -   POINTER  TO  CONTEXT  AREA 

OUTPUTS; 

LSBBKR*;)  -  BABBLE  TIMER  VALUE 


001210 

001214     01016A     0001U 

001220 


3TACT:  CALL    CHKDMP 

MOV     R1,L$BBT(RA) 
RETURN 


;  CHECK  FOR  DMP 

:  SAVE  BABBLE  TIMER  VALUE 
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MXBACT  -  MAXIMUM  BLOCKS  ACTION  ROUTINE 

1308  .ENDC  ;  .If  NDf  R$$11S 

1310        000001  .END 
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?3t 
2V 

21& 
25? 
J'.O 
2^' 
242 
2A3 
244 

24"; 

246 

24' 

248 
24^ 
250 
25' 
252 
255 
rD4 
255 
256 
257 
258 
259 
260 
261 
262  000406 

265  000406 
264  000410 
2fc5  000414 

266  000420 

267  000422 

268  000424 

269  00C452 
2^0  000454 


.S8TTL   SAVCTX  -  SAVE  AN  ALIAS  CONTEXT 

•♦-SAVCTX-SAVE  AN  ALIA-  "ONTEXT 

THIS  ROUTINE  IS  CALLED  TO  SAVE  THE  NAME  AND  SCOPE  OF  AN  ALIAS. 

INPUTS: 

Rl  =  POINTER  TO  MAPPED  ALIAS  NAME  BLOCK  TO  BE  SAVED 
R4  =  ADDRESS  OF  CONTEXT  AREA  WITH  OFFSETS: 
-2    =  LENGTH  OF  CONTEXT  AREA 
ASNliM  =  NUMBER  OF  ALIASES  ALREADY  SAVED 
R5  =  POINTER  INTO  CONTEXT  AREA  FOR  SAVED  DATA 

OUTPUTS: 

IF  C-CLEAfi.  SUCCESS: 

R4  =  ADDRESS  OF  CONTEXT  AREA  WITH  OFFSET: 

A$NUM  =  INCREMENTED  BY  1 
R5  =  NEXT  FREE  WORD  IN  CONTEXT  AREA 
IF  C-SET,  ALLOCATION  FAILURE: 

R4  =  ADDRESS  OF  CONTEXT  AREA  WITH  OFFSET: 
A$FLG  =  AF.OVR  (BUFFER  OVERFLOW) 


REGISTERS: 

RO,  R1, 


27 
2/2 


900456 

:00442 

275  C00446 

274  000'.52 

275  000456 

276  000462 

277  00D464 
278 


010402 
066402 
162702 
020502 
101405 
052764 
000261 
000415 
016125 
016125 
016^25 
016125 
■■05264 
000241 


SAVCTX: 


177776 
000010 


000002  000000 


000O02 
000004 
000006 
000010 
000010 


10$: 


20$: 


MOV 

ADD 

SUB 

CMP 

BLOS 

BIS 

SEC 

BR 

MOV 

MOV 

MOV 

MOV 

INCe 

CLC 

RETURN 


R4  ARE  PRESERVED 


R4,R2 
-2(R4),R2 
#8.,R2 
R5,R2 

loi 

#AF.0VR,A$FLG(R4) 

20$ 

A.NAM(R1),(R5)+ 

A.NAM+2(R1),(R5)+ 

A.NAMt4(R1),(R5)+ 

A.UC8(R1),(R5)+ 

A$NUM(R4) 


COPY  CONTEXT  AREA  POINTER 

POINT  TO  END  OF  CONTEXT  AREA 

POINT  TO  BUFFER  FOR  "LAST"  ALIAS 

IS  THERE  ROOM  LEFT  FOR  1  MORE 

IF  LOS,  YES  -  SAVE  IT 

ELSE,  NO  -  SET  OVERFLOW  FLAG 

SET  ERROR  INDICATOR 

AND  RETURN 

SAVE  THE  ALIAS  NAME 


SAVE  THE  SCOPE  OF  THE  ALIAS 
INC  SAVED  ALIAS  COUNT 
SUCCESS  1 
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81 

6? 

a: 

8A 

85 

86 

87 

88 

89 

90 

91 

92 

91 

94 

95 

96 

97 

98 

99 
100 
101 

102  000060 

103  000060 

104  000064 

105  000070 

106  000074 

107  000102 
108 

109 
110 

111  000104 

112  000110 

113  000112 

114  000120 

115  000122 

116  000130 

117  000132 
118 

119 
120 

121  000134 

122  000140 

123  000142 

124  000146 

125  000150 

126  000152 
127 

128 

129 

130  000154 

131 

132 

133 

134  000156 

135  000164 

136  000166 

137  000170 


.SBTTL     ALREOP  -  ALIAS  READ   INFORMATION  OPERATE 

'♦♦-ALREOP-ALIAS  READ   INFORMATION  OPERATE  ROUTINE 

THIS   ROUTINE    IS   CALLED   TO  PREFORM    THE   READ  ALIAS    INFORMATION 
OPERATION. 

INPUTS: 

R3  =  ADDRESS  OF  INPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

RO  =  RETURN  CODE 

R2  =  LENGTH  OF  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDRESS  OF  OUTPUT  BUFFER 

C-BIT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 


REGISTERS: 

R3,  R4, 


004567  OOOOOOG 

010364  000006 

112723  177600 

032764  000001  000000 
001466 


105364  000010 

002022 

032764  000002  000000 

001457 

112763  177747  T77777 

105023 

105023 


012705  C00060 

110523 

012700  000000' 

112023 

005305 

001375 


000441 


112763  000001  177777 

105023 

105023 

105023 


ALREOP:: 


10$: 


JSR 

MOV 

MOVB 

BIT 

BEO 


R5  ARE  PRESERVED 


R5,$SAVRG 

R3,A$BUF{R4) 

#ME.D0N,(R3)t 

MF.]NI,A$FLG(R4) 

50$ 


SAVE  R3-R5 

SAVE  BUFFER  POINTER 

ASSUME  WE'RE  ALL  DONE 

ARE  WE  DONE  ? 

IF  EQ,  YES 


FORMAT  ERROR  RETURN  IF  NO  MORE  ALIASES  TO  DISPLAY 


DECB  A$NUM{R4) 

BGE  30$ 

BIT  #AF.0VR,A$FLGtR4) 

BEQ  50$ 

MOVB  #ME.0PE,-1(R3) 

CLRB  (R3)+ 

CLRB  (R3)+ 

.IF  NDF  R$$PfiO  ;  PRO/DECNET 


20$: 


MOV 

MOVB 

MOV 

MOVB 

DEC 

BNE 


#0VRL,R5 

R5,(R3)+ 

#OVR,RO 

(R0)+,(R3>+ 

R5 

20$ 


DEC  COUNT  OF  SAVED  ALIASES 

IF  GE,  MORE  TO  DISPLAY 

ELSE,  IS  THERE  AN  "OVERFLOW  TEXT" 

IF  EQ,  NO  -  JUST  RETURN  WITH  ERROR 

ELSE,  SAY  OPERATION  FAILED 

ELSE,  CLEAR  ERROR  DETAIL  BYTES 


GET  LENGTH  OF  MESSAGE  TEXT 
SET  SIZE  OF  MESSAGE  TEXT 
POINT  TO  MESSAGE 
SET  MESSAGE  INTO  BUFFER 
LOOP  TILL  DONE 


.ENDC  ;  NDF  R$$PRO 

BR  50$ 

FORMAT  INFORMATION  FOR  NEXT  ALIAS 

iO%:  MOVB  #MS.SUC,-1(R3) 

CLRB  (R3)+ 

CLRB  (R3)t 

CLRB  (R3)t 


;  RETURN  WITH  ERROR 


ASSUME  SUCCESSFUL  RETURN 
NO  ERROR  DETAIL 


NO  .luSAGE  TEXT 


ALREOP 
ALREOP 
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MPSPCT 

000H4 

MP$SWI 

002260 

MSSUNR 

000005 

MXSOWN 

9252^9 

S2.BEL= 

02f000 

MPSPDT 

0021 U 

MPSSYP 

002424 

MSSVHS 

000004 

MXSPAR 

000036 

S2.BRQ= 

00J020 

MPSPHA 

000170 

MP$TFL 

000156 

MS. DON 

177600 

MXSPAS 

000010 

S2.CR  = 

002000 

MPSPHY 

000012 

MPSTHI 

002206 

MS.MOR 

000002 

HXSRAC 

000047 

S2.CT0= 

040000 

MPSPLI 

000025 

MP$TH2 

002205 

MS. PAR 

000003 

MXSRID 

9222^^ 

S2.CTS= 

100000 

MPSPLN 

0021O 

MP$TH3 

002202 

MS. sue 

000001 

MXSRPS 

000047 

S2.ELF= 

001000 

MPSPLO 

000012 

MPSTLN 

000202 

MT$AR4 

000003 

MXSSID 

000040 

S2.FLF= 

000400 

MPSPMC 

00^374 

MPSTLO 

000172 

MTSASC 

000100 

MXSSNK 

000377 

S2.IRQ= 

000200 

MP$PNT 

002126 

MPSTPA 

004375 

MTSBIL 

000001 

HXSTYP 

000077 

S2.0PF= 

004000 

MPSPRI 

0OAA11 

MPSTRI 

002164 

MTSBYS 

000011 

MXSUID 

000020 

S2.0RQ= 

000100 

MPSPRO 

002130 

MPSTST 

000144 

MTSCl 

000007 

M$$CRB= 

000124 

S2.PCU= 

010000 

MPSPSS 

001763 

MPSTYP 

002130 

HTSCLE 

000077 

M$$CRX= 

000000 

S2.RCU= 

000001 

MPtPST 

001762 

MPSUCS 

004407 

MTSCOD 

000200 

M$$FCS= 

000000 

S2.SRQ= 

000040 

MPSRET 

001631 

MPSUSR 

001750 

MTSCON 

000001 

M$$MGE= 

000000 

S2.UAL^ 

000010 

MPSRFA 

iJ01323 

MPJVEC 

004410 

MTSDHC 

000004 

H$$NET= 

000000 

S2.URA= 

000006 

HPSRHX 

002201 

MPSVER 

004406 

MTJETH 

000006 

H$$OVR= 

000000 

S2.WRB= 

000002 

MPSRPA 

00A37A 

MPSWDF 

002165 

MTSHEX 

000040 

NM.CLN 

003400 

S3.ACR= 

299291 

MPSRPR 

001606 

MPSWMX 

002177 

MTSLPB 

000005 

NH.INI 

002400 

S3.CTC= 

000004 

MPSRRT 

002213 

MPSXMT 

002166 

HTSMAX 

000037 

NM.OPR 

003000 

S3.FDX= 

000200 

HPSRST 

002212 

MPSXPF 

000242 

MTSMUL 

000100 

NH.VR2 

002401 

S3.ICE= 

001000 

MPSRSV 

001 75A 

MPSXPL 

000244 

MTSNLE 

000017 

NM.VR3 

002402 

S3.MHE= 

000400 

MPSRSZ 

001756 

HPSXPT 

000240 

MTSNON 

000001 

N$$ACC= 

000001 

S3.NEC= 

000020 

MPSRTI 

001616 

MPSXXX 

\mn 

MT$NR4 

000005 

N$$BUFr 

000001 

S3.PPT= 

020000 

HP$RTM 

001611 

MP$5ST 

004406 

MTSNTY 

000060 

N$$LDV= 

000001 

S3.PTH= 

004000 

MPIRVE 

001 60A 

MSSACT 

000001 

MTIOCT 

000060 

N$$MCP= 

000001 

S3.RAL= 

000010 

MPSRVT 

000156 

MSSADU 

000010 

MTSPHA 

000002 

N$$MLL= 

000001 

S3.RES= 

010000 

HPSSAC 

000514 

MSSALO 

000007 

MTSPOI 

000000 

N$IHOV= 

222219 

Si.RUB= 

040000 

MPSSAD 

000543 

MSSASE 

000006 

MT$QP2 

000010 

N$$NCT= 

000001 

S3.TAB= 

000002 

l^PSSCA 

000310 

MSSATR 

000011 

MTSROU 

000000 

N$$PEM= 

000001 

S3.TME= 

002000 

MPSSCO 

000144 

MSSAUT 

000000 

MT$R04 

000004 

P$$P45= 

000000 

S3.TSV= 

000040 

MPSSCT 

002176 

MSSCLE 

000003 

MTSSEC 

000000 

P$$WRD= 

000000 

S3.8BC= 

000100 

MPSSDU 

000203 

MSSDED 

000004 

MTSSGD 

000020 

Q$$OPT= 

999919 

S4.ABD= 

100000 

MPSSDV 

000160 

MSSDIE 

000003 

HTSSYS 

000002 

R$$DER= 

000000 

S4.ANI= 

000400 

MPSSEH 

004401 

MSSDUM 

000004 

MTSTER 

000001 

R$$K11= 

000001 

S4.AV0= 

001000 

MPSSER 

000144 

MSSFAI 

000013 

MTSTRI 

000002 

R$$SND= 

000000 

S4.BLK= 

002000 

MPSSET 

000000 

MSSGLO 

000000 

MTSTYP 

007777 

R$$11M= 

000000 

S4.DEC= 

004000 

MPSSGZ 

00164'. 

MSSHOL 

000002 

MTSUSD 

000000 

SAVNAH= 

»*«•«*  GX 

S4.DL0= 

000100 

MPSSID 

0001 76 

MSSINA 

000002 

MT$X25 

000003 

SFSANM 

922221 

S4.EDT= 

010000 

HPSSIN 

000310 

MSSLOA 

000003 

MUSINC 

000001 

SFIDNM 

000002 

b4.HFF= 

000020 

MPSSLI 

000156 

MSSLOO 

000002 

HUSOUT 

000002 

S$$WRG= 

000000 

S4.HFL= 

000007 

MPSSLO 

000171 

HSSOFF 

000001 

MUSPER 

000000 

S$$YSZ= 

297629 

S4.HHT= 

000040 

MPSSMX 

002202 

MSSON 

000000 

MVSIII 

000000 

S1.DEC= 

001000 

S4.HSY= 

000200 

MPSSND 

000500 

MSSPRO 

000006 

MV$IV 

000001 

S1.DPR= 

000400 

S4.RGS= 

020000 

MP$SNP 

006332 

MSSREA 

000004 

MXSACT 

000020 

S1.DSI= 

99^992 

S4.SFC= 

040000 

MPSSNU 

000542 

MS$REF 

000001 

MXSCIR 

000020 

S1.ESC= 

000002 

S4.VFL= 

000010 

MPSSOB 

000524 

MSSRES 

000003 

MXSCLN 

000020 

S1.I8F= 

002000 

S5.ABP= 

100000 

MPSSPA 

000157 

MSSRST 

000001 

MXSCNM 

000006 

S1.IBY= 

999292 

S5.BCC= 

020000 

MPSSPR 

000536 

MSSRSX 

000002 

MXSCON 

000006 

S1.0BY= 

000100 

S5.DA0= 

040000 

MPSSPS 

000513 

MSSRT 

000005 

MXSDAC 

000020 

S1.PTH= 

000010 

S5.HPC= 

000014 

MPSSTA 

000000 

MSSSER 

000002 

MXSDTE 

000020 

S1.RES= 

919999 

S5.HP0= 

000020 

MPSSTI 

002140 

MSSSHU 

000002 

MXSFIL 

000034 

S1.RNE= 

000020 

S5.ITI= 

000100 

MPSSTT 

002201 

MSSSRV 

000007 

MXSLGC 

000777 

S1.RNF= 

020000 

S5.0XF= 

000040 

MPSSTY 

000175 

MSSSTA 

000000 

MXSLIN 

000020 

S1.RSP= 

000004 

S5.RP0= 

002000 

MPSSUB 

000001 

MSSSYN 

000012 

MXSLON 

000006 

S1.RST= 

000001 

S5.SW1= 

000001 

MPSSUR 

000156 

MSSTER 

000001 

MXSNMS 

000454 

S1.TNE= 

040000 

S5.TMM= 

000002 

MPSSUS 

000512 

MSSTOP 

000003 

MXSNOD 

000006 

S1.TSY= 

000040 

S5.VER= 

010000 

MPSSVR 

000163 

MSSTRI 

000005 

««v$OBJ 

000006 

S1.USI= 

100000 

S5.X0F= 

000004 
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MD.LSH 

MD.NOB 

MD . NON 

MD.PER 

MD.RES 

MD . ROB 

MD.RSH 

MD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

MD.UNR 

MD.UOB 

MD.VOL 

MESALI 

HESAi  2 

ME$ARE 

ME$CIR 

MESEXA 

MESEXE 

MESLIN 

ME SLOG 

MESMOD 

MESNOD 

MESNON 

ME $00 J 

ME$0B2 

MESPRO 

MESSYS 

HE.BLO 

ME. CON 

ME.CST 

ME.DIS 

ME . DON 

ME.FCO 

ME.FIO 

ME. FOP 

ME. FOR 

ME. FUN 

ME.GRO 

ME.HaR 

ME.IID 

ME.LCO 

ME.LPR 

ME.MPR 

ME.MVE 

ME. OPE 

ME . PLO 

ME.PMI 

HE . PNA 

ME.PRI 

ME.PTY 

ME.PVA 

ME..)ES 

ME. ROD 

ME . S I Z 


000020 

000012 

177777 

000000 

000004 

000005 

000013 

000005 

000003 

000000 

000004 

000002 

000003 

000007 

000006 

000010 

000003 

000005 

000003 

000000 

000200 

000001 

000002 

000004 

000000 

17777,-' 

000007 

000004 

000005 

000006 

177744 

177753 

177765 

177755 

177600 

1 77762 

177756 

177763 

177776 

177777 

177745 

177750 

177767 

177766 

177757 

177773 

177771 

177747 

177751 

177743 

177752 

177775 

177772 

177760 

177761 

177754 

177774 


ME. SYS 

ME.UCO 

MFSACT 

MFSADD 

MFSADJ 

MFSALL 

MFSBYE 

MFSCHA 

MFSDUM 

MFSEVT 

MFSFUP 

MFSKNO 

MFSLOA 

MFSLOO 

MFSREA 

MFSSIG 

MFSSPF 

MFSSYS 

MFtTES 

MFSTRA 

MFSTRI 

MFJZER 

MLSALL 

MLSCLS 

MLSCON 

MLSEXT 

MLSFI'. 

MLSFIR 

MLSINT 

MLSKNO 

MLSMON 

MLSSYS 

MLSTOP 

MNSUNL 

MOSACC 

MOSADD 

MOSALA 

MOSALI 

MOSCHA 

MOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

HOSENT 

HOJEVE 

MOSINF 

HOSINS 

MOSLIN 

HOSLQG 

HOSMIR 

HOSNAM 

MOSNIC 

HOSNOD 

HO$OFF 

MOSON 


177746 

177770 

177776 

000000 

177774 

177775 

000300 

000023 

000020 

000001 

000264 

1777"  7 

000017 

177775 

000024 

177773 

000302 

000026 

000022 

000301 

000021 

000025 

100000 

000000 

000001 

000001 

000002 

000000 

000000 

140000 

000003 

000002 

000001 

000377 

000200 

000002 

000004 

000000 

000040 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

000000 


MOSOPT 
HOSPER 
HOSPRO 
MOSPRS 
HOSREA 
MOSSET 
HOSSTA 
MOSSUM 
HOSTSK 
MOSVOL 
MOSZER 
MPtACB 
MPSACC 
MPSACT 
MPSADD 
MPtADJ 
MPSADP 
MPSADS 
HPSALB 
HPSAHC 
HPSAMH 
MPSANB 
MPSASB 
MPSASC 
MPSAUS 
HPSBBT 
MP$BDF 
HPSBFQ 
MPSBLK 
MPSBLO 
HPSBHX 
MPSBNP 
MPSBRT 
MPSBSA 
MPSBSD 
MP$BSI 
MPSBSP 
MPSBUF 
MPSBUP 
MPSBUS 
MPSCAC 
MPSCAS 
MPSCAT 
MPSCCS 
HPSCHN 
MPSCIR 
MPSCLK 
HPSCLN 
MPJCLT 
HPSCMB 
HPSCMK, 
MPSCMX 
HPSCND 
HP$CNU 
MPSCOB 
MPSCON 
MPSCOS 


000001 

000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

000514 

004526 

000766 

001440 

006325 

004406 

000036 

001640 

001641 

004420 

000024 

004432 

000512 

002165 

002164 

002121 

001616 

001452 

002176 

006330 

001620 

002176 

002203 

002200 

006331 

000170 

006324 

001643 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

0005^7 

002153 

000310 

001753 

000311 

002126 

001604 


MPSCPF 

MPSCPL 

HPSCPT 

MPSCPU 

HPSCSZ 

MPSCUS 

MPSCVA 

MPSDAL 

HP$DCO= 

HP$DOT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DH0= 

MPSDIA 

MPSDLB 

MPIDLG 

HP$DLI= 

MPSDLT 

MPSDRO 

HPSDST 

MPSDTE 

HP$DTy= 

MP$DUA 

MPSDUC 

MPSDUM 

MPSDUP 

MPSDVC 

MPSDWE 

MPSELT 

MPIETY 

MPSEVE 

HPSFNC 

HPSGDT 

MPSGNM 

MP$GR0 

HPSGRP 

MPSGTY 

MPSHAD 

MPSHBT 

MPSHDD 

MPJHTM 

MPSHWA 

MPSIAT 

MPSIDE 

MPSIOP 

MPSIHO 

MPSINA 

MPSIND 

MPS  I 'ill 

MP$!TI 

MP$LAA 

MPSLAN 

HPSLAR 

MPSLAS 

MPSLBS 


000230 
000232 
000226 
000161 
001755 
002127 
000540 
002570 
001464 
002177 
001131 
000156 
002114 
001320 
001465 
000173 
002571 
004521 
001466 
002200 
001441 
000454 
002140 
001452 
000207 
000210 
000202 
002127 
C02114 
001321 
000157 
001605 
000311 
001752 
002222 
002223 
002115 
000541 
002224 
001757 
002142 
000162 
001612 
002210 
001322 
000144 
006327 
000215 
002177 
002204 
002201 
000776 
000231 
000234 
000202 
000012 
000203 


MPSLCO 
MPSLCT 
MPILHL 
MPSLLE 
HPSLLO 
HPSLMB 
MPILMX 
MPSLNA 
MPSLNO 
MPSLOA 
MPSLOG 
MPSLOO 
MPSLTM 
HPSLTY 
MPSLWI 
MPSHAC 
MPJMAD 
MPSMAP 
MPSMAR 
MPSMAV 
MPSMBN 
MPSMBR 
MPJMBU 
MPSMCB 
MPSHCO 
MPSMDE 
MPSMHO 
MPSMLB 
MPSMLK 
MPSHLN 
MPSHLP 
MPSMRB 
MPSMRO 
MPSMRP 
MPIMRT 
MPSHRV 
HPSMSB 
MPSMVE 
MPSMVI 
MPSMVR 
MPSMUN 
MPSMXB 
MPSMXC 
MPSMXR 
MPSMXW 
MPSNAA 
MPSNAC 
MPSNAP 
MPSNCT 
MPSNET 
MPJNLI 
MPSNNA 
MPSNOD 
MPSNRA 
MPSNRB 
MPSNSA 
MPSNTI 


000226 
000156 
000232 
000227 
004432 
002152 
002200 
000144 
000233 
000170 
004514 
000620 
001613 
004533 
000230 
004420 
001630 
006323 
001635 
006321 
001636 
001637 
001642 
000156 
001632 
004421 
001633 
000202 
001306 
001631 
006333 
002171 
001605 
006322 
002153 
006320 
000170 
000145 
001634 
001751 
002154 
002172 
000466 
001630 
002143 
006335 
001130 
006r,' ,. 
000240 
002114 
000765 
000764 
000500 
006334 
000214 
001617 
002141 
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189 
190 
191 
192 
193 
19A 
195 
196 
197 
198 
199 
200 

201  00OA16 

202  000422 

203  000424 

204  000426 

205  000432 

206  000436 

207  000440 

208  000446 
209 

210 
211 

212  000450 

213  000456 

214  000462 

215  000466 

216  000470 

217  000500 

218  000506 

219  00051O 

220  00051m 

221  000520 
222 

223 
224 

225  000522 

226  000530 

227  000532 

228  000536 

229  000544 

230  000546 

231  000552 

232  000562 

233  000564 

234  000566 

235  000576 

236  000604 

237  000612 

238  000614 

239  000620 

240  000624 
241 

24  c 
243 

244  000626 

245  000632 


.SBTTL  GETEXA  -  GET  EXECUTOR  AREA  INFORMATION 
**  -  GETEXA  -  GET  EXECUTOR  AREA  INFO 
INPUTS:      R4      =  CONTEXT  AREA  ADDRESS 
OUTPUT: 


R1 
R2 


=  NODE  ID  (OR  0) 

=  CHANNEi  NUMBER  (OR  0) 


N.8. 


GETEXA: 


**  THIS  ROUTINE  MUST  BE  CALLED  FROM  SYSTEM  STATE  ** 


005001 
016402 
005762 
001477 
032764 
001425 


016202 
016202 
001463 

132762 
001453 
016201 
116202 
000447 


032764 
001036 
016202 

001434 
016200 

011000 
001424 


132760 
001411 
016001 
116002 
000403 


017701 
016101 


000012 
000000 

000040  000000 


000016 
000072 


000010  000002 

000000 
000003 


000100  000000 
000016 

000026 


000010  000002 

000000 
000003 


OOOOOOG 
000014 


SAVMAP 

SAVRG 

CLR 

MOV 

TST 

BEC 

BIT 

BEQ 


RO 

R1 

A$XPT(R4),R2 

Z.DSP(R2) 

45$ 

#AF.END,A$FLG(R4) 

30$ 


SAVE  APR  6  MAPPING 
SAVE  REGISTER 
NO  NODE-ID,  YET 
GET  XPT  PDV  ADDRESS 
PROCESS  LOADED  ? 
IF  EO,  NO  CHANNEL 
IS  THIS  AN  ENDNODE  ? 
IF  EQ,  NO 


;rik04 


ENDNODE  -  DESIGNATED  ROUTER  IS  NEXT  NODE 


MAP 

MOV 

MOV 

BEQ 

BIAS 

BITS 

BEQ 

MOV 

M0V8 

BR 


Z.DSP(R2) 

Z.DAT(R2),R2 

N$ADJ1(R2),R2 

45$ 

R2 

*AT$UP,A$TYP(R2) 

45$ 

A$NID(R2),R1 

A$CIR(R2),R2 

50$ 


MAP  TO  XPT  PROCESS 

POINT  TO  XPT  DDB 

POINT  TO  ADJ1 

IF  EQ,  NONE 

BIAS  ADDRESS  FOR  APR  6 

IS  IT  UP  ? 

IF  EQ,  NO  CHANNEL 

GET  DESIGNATED  ROUTER  NODE-ID 

ELSE  GET  CHANNEL  NUMBER 

GET  NODE  ID  AND  RETURN 


LEVEL  1  ROUTER:  RETURN  NEAREST  AREA  ROUTER  AND  CHANNEL 


50$:    BIT  *AF.LV2,A$FLG(P4) 

BNE  40$ 

MOV  Z.DAT(R2),R2 

MAP  N$ROA1+2(R2) 

BEQ  45$ 

MOV  N$ROAU4(R2),R0 

BIAS  RO 

MOV  (RO),RO 

BEQ  45$ 

BIAS  RO 

MAP  N$ADJ1(R2) 

BiTB  #AT$UP,A$TYP(RO) 

BEQ  45$ 

MOV  A$NID(R0),R1 

M0V8  A$CIR(R0),R2 

BR  50$ 


LEVEL  2  ROUTER  ? 

IF  NE,  YES 

POINT  TO  XPT  DDB 

MAP  TO  REACHABILITY  TABLES 

IF  EQ,  NO  INFORMATION 

GET  ADDRESS  OF  FIRST  ENTRY 

BIAS  IT  FOR  APR  6 

GET  ADDRESS  OF  ADJACENCY 

IF  EQ,  NO  INFORMATION 

BIAS  IT  FOR  APR  6 

MAP  TO  ADJACENCIES 

IS  THIS  ONE  UP  ? 

IF  EQ,  ALL  BETS  ARE  OFF 

PICK  UP  AREA  ROUTER  NODE-ID, 

CHANNEL  NUMBER  OF  OUTPUT  LINE 

DONE 


LEVEL  2  ROUTER:  EXEC  IS  THE  NEXT  NODE,  NO  CHANNEL 


40$: 


MOV 
MOV 


aDECPT,Rl 
D$LNUM(R1),R1 


POINT  TO  DECNET  HOME  BLOCK 
GET  NEXT  NODE 


RJK03 
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CREF   OA.OO 


SYMBOL  VALUE 


LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.C^F 

LN.Oiv; 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MAPADD 

MD.NON 

ME. DON 

MOSSTA 

MPSDCO 

HPSDHO 

MPSDLI 

MPSNXN 

MPSSTA 

HSSREA 

MS. sue 

MT$ASC 

HTSCOD 

MTSHUL 

HTSNLE 

MTSTYP 

MXAREA 

M$$MGE 

NODNAM 

NXTNOD 

NSADJl 

NSMHCI 

N$MHC? 


=  000005 

=  OOOOOA 

=  000003 

=  000003 

=  000001 

=  000000 

=  OOOOO'i 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

000014 

000021 

000013 

=   ****** 

177777 

177600 

000020 

=  00U64 

=  0OU65 

=  00U66 

=  00K76 

000000 

000004 

000001 

000100 

000200 

000100 

000017 

007777 

=  000077 

=  000000 

00K16 

001550 

000072 

000036 

000044 


GX 


REFERENCES 

#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 

11-455 

6-158 

6-177 

6-169 

8-303 

8-309 

9-333 

10-416 

6-165 

6-167 

6-174 

5-62 

5-62 

5-62 

8-303 

8-303 
#5-67 

6-129 

10-420 

6-173 

6-135 

8-278 

8-282 


9-373 
9-358 

9-384 

9-386 
9-380 
6-159 


8-303 
8-309 

10-416 


9-337 
5-62 

8-309 
8-309 

6-136 
#11-439 
#10-414 

7-214 


6-166 

10-419 
10-416 

7-216 
7-235 


8-303 


7-231 


-309 


7-234 


10-416 


8-291 


10-419 


10-421 
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BLNLST  - 
RBNL5I  - 

1U 
115 
116 
117 
118 
119 
120 
121 
122 
125 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
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.SBTTL  R8NLST  -  REBUILD  NODE  LIST  IN  CONTEXT  AREA 

'♦♦*  -  RBNLST  -  REBUILD  NODE  LIST  IN  CONTEXT  AREA 

INPUTS: 

RA  =  ADDRESS  OF  CONTEXT  AREA 

R5  =  ADDRESS  OF  STORAGE  FOR  NODE  ADDRESS 

OUTPUTS: 

R4  =  ADDRESS  Of  CONTEXT  AREA 
R5  -  UPDATED 

NOTE:  RBNLST  IS  CALLED  FROM  USER  STATE. 


000032 
000036 
000042 
0000A6 
000052 


RBNLST: :SWSTK$  10$ 

SAVMAP 

CALL    BLNLST 

RESMAP 
10$:    RETURN 


GO  TO  SYSTEM  STATE 

SAVE  APR  6 

BUILD  THE  NODE  LIST 

RESTORE  APR  6 

RETURN 


N  8 


BLNLST 
BLNLST 
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MPSDLG 

MP$DLI= 

HPSDLT 

MPSDRO 

MPSDST 

MPSDTE 

l«IP$DTY  = 

MPtDUA 

MPSDUC 

MPSDUM 

HPSDUP 

MPSDVC 

MPSDWE 

MPSELT 

MPSETV 

MPSEVE 

MPSFNC 

MPSGDT 

MPSGNH 

HPSGRO 

MPSGRP 

MPSGTY 

MPSHAD 

MPSHBT 

MPSHDD 

MPSHTM 

MPSHWA 

MPSIAT 

MPSIDE 

MPSIDP 

MPS I  HO 

MPSINA 

MPSIND 

HPSINI 

HPSITI 

MPSLAA 

MPSLAN 

MPSLAR 

MPSLAS 

MPSLBS 

HPSLCO 

HPSLCT 

MPSLHL 

MPSLLE 

MPSLLO 

MPSLMB 

MPSLMX 

MPSLNA 

MPSLNO 

MPSLOA 

MPSLOG 

MPSLOO 

MPSLTM 

MPSLTY 

MPSLUI 

MPSMAf 

MPSMAD 


00A521 

00H66 

002200 

00U41 

000^54 

002H0 

00U52 

000207 

000210 

000202 

002127 

0021U 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

0005^1 

00222A 

001757 

002142 

000162 

001612 

002210 

001322 

000U4 

006327 

000215 

002177 

002204 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 

000156 

000232 

000227 

004432 

002152 

002200 

000144 

000233 

000170 

004514 

000620 

001613 

004533 

000230 

004420 

001630 


MPSMAP 

MPSMAR 

MPSMAV 

MPtMBN 

MPSMBR 

MPSMBU 

MPSMCB 

MPIMCO 

MPSMDE 

MPSMHO 

MPIHLB 

MPSHLK 

MPSHLN 

MPSHLP 

MPSMRB 

MPSHRO 

HPSMRP 

MPSMRT 

MPSMRV 

MPSMSB 

MPtMVE 

MPSMVI 

MPSMVR 

MPSMWN 

MPSMXB 

MPSMXC 

MPSMXR 

KPSMXU 

MPSNAA 

MPSNAC 

MPSNAP 

MPSNCT 

MPSNET 

MPSNLI 

MPSNNA 

MPSNOD 

MPSNRA 

MPSNRF 

MPSN" 

MP$Ni. 

MPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

flPSONA 

MPSONR 

HPSOOL 

MPSOTI 

HPIOTY 

MPSOUS 

MPSOVE 

MPSOWN 

MPSPAR 

MPSPAS 


006323 

001635 

006321 

001636 

001637 

001642 

000156 

001632 

004421 

0C1633 

000202 

001306 

001631 

006333 

002171 

001605 

006322 

002153 

006320 

000170 

000145 

001634 

001751 

002154 

002172 

000466 

001630 

002143 

006335 

001130 

006326 

000240 

002114 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

OOIOIC 

004374 

00JO36 

000513 


MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MPSPLJ 

MPSPLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRl 

HPSPRO 

MPSPSS 

MPSPST 

HPSRET 

MPSRFA 

MPSRMX 

MPSRPA 

HPIRPR 

MPJRRT 

MPSRST 

HP$RSV 

MP$RS2 

MPSRTJ 

MPSRTM 

MPSRVE 

MPSRVI 

HPSSAC 

HPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MPSSDV 

MPSSEH 

HPSSER 

MPSSET 

MPSSGZ 

MPSSID 

MPSSIN 

MPSSLI 

MPSSLO 

MPSSHX 

MPSSND 

MPSSNP 

MPSSNU 

MPSSOB 

MPSSPA 

MPSSPR 

MPSSPS 

MPSSTA 

MPSSTI 

MPSSIT 

MPSSTY 

MPSSUB 

MPSSUR 


002152 
000024 
000144 
002114 
000170 
000012 
000025 
002140 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 
000144 
000000 
001644 
000176 
000310 
000156 
000171 
002202 
000500 
006332 
000542 
000524 
000157 
000536 
000513 
000000 
002140 
002201 
000175 
000001 
000156 


MPSSUS 

MPSSVR 

HPSSWI 

MPSSYP 

MP$TFL 

MPSTHI 

MP$TH2 

MP$TH3 

HPSTLN 

HPSTLO 

MPSTPA 

MPSTRI 

MPSTST 

MPSTYP 

MPSUCS 

MPSUSR 

MPSVEC 

MPSVER 

MPSWDF 

HPSWMX 

HPSXMT 

HP$XPF 

MPSXPL 

MPSXPT 

MPSXXX 

MP$5ST 

MSSACT 

MSSADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

'■3$DED 

MSSDIE 

HSSDUM 

HSSFAI 

MSSGLO 

MSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOFF 

HS$ON 

MSIPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

MSSRSX 

MSSRT 

HSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 


000512 
000163 
002260 
002424 
000156 
002206 
002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 

vini 

000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 


MSSTOP 

MSSTRI 

MS$UNR 

MSSVHS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MT$ASC 

HTSBIL 

MTSBYS 

MT$CI 

MTSCLE 

MT$COD 

MTSCON 

MTSDMC 

^  $ETH 

r,  "HEX 

h . »LPB 

MTSMAX 

MTSMUL 

MTSNLE 

MTSNON 

MT$NR4 

MT$NTY 

MTSOCT 

MTSPHA 

MTSPOI 

MT$QP2 

MTSROU 

MT$R04 

HTSSEC 

HTSSGD 

MTSSYS 

HTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

MT$X25 

MUSINC 

MUtOUT 

MUSPER 

MVSIII 

MV$IV 

MXSACT 

MXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

MX$DTE 

MXSFIL 

MXSLGC 

MXSLIN 

MXJLON 

MXSNMS 


000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
000001 
000004 
000006 
000040 
000005 
000037 
000100 
000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
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55 

56 

57 

58 

59 

60 

61  000000 

62 

63  000000 


000000 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
00006  ■ 
000066 
000067 
000067 
000070 
000070 
000070 
000072 

ooono 

000112 
000114 
000116 
000120 
000122 
000124 
000000 


000020 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 

.MCALL  MANDF$,CIRCX$ 

HANDFS  ;  DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

CIRCXS  LIST 
CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 

.  =  0 

LSNLEN  =  16. 


;  MAXIMUM  NAME  LENGTH 


The  offsets  L$NAM  to  LSPDV  inclusive  must  appear  in  the  same  order 
as  in  the  CJRCXS  and  LOCCXS  macros. 


L$NAM 
L$DDM 
L$CTL 
L$UNT 
L$PVC 

L$SCN 

L$TR8 

LSPFG 

L$SLT 

L$NXT 

LSSNM 

L$TPT 

L$TNM 

L$CTB 

LSCHN 

L$PDV 

L$MSG 

L$BUF 

LSOPT 

L$TYP 

L$FLG 

L$SLEN 

L$PRO: 

LSMTYP 

L$TSZ 

L$LTM 

L$FLX 

LSSCR 

L$ADJ 

L$NOD 

L$COU 

LSPLB 

L$PAR 

L$SYL 

L$LEN 


.BLKW   1  ;  DEVICE  NAME 

.BLKB   1  ;  CONTROLLER  NUMBER 

.BLKB   1  ;  UNIT  NUMBER 

.BLKW   1  ;  3RD  WORD  OF  PVC  NAME 

.  =  0+L$NLEN    ;  SPACE  FOR  EXPANDED  CIRCUIT  NAME 

.BLKB   LSNLEN         ;  CURRENT  NAME  IN  WILDCARD  SCAN 
-      -  TRIBUTARY  NUMBER 

PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. ..  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  Line  number 
LENGTH  OF  CONTEXT  AREA 


.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.8LK8 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKB 


.BLKB   1 


1 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.PSECT 


CHKCIR   -   CHECK    A   CIRCUIT-It/ 
MACRO   CALLS   AND   LOCAL   DATA 


N  10 

FOR  MACRO  V05.03b  Saturday  29-Jun-85  17:41  Page  5-1 


CHICLIN 


1 
2 
I 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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.TITLE  CHKLIN  -  CHECK  A  LINE-ID  FORMAT 
.IDENT  /V05.00/ 
.ENA8L  LC 


COPVRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  CHECK  A  LINE-ID  FORMAT 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     U-DEC-79 

DECNET-11M/S  V3.0 
DiZCNET-IIM-PLUS   VI. 0 

2.00     16-APR-82 

DECNET-HM  V3.1 
DECNET-11M-PLUS   Vl.1 

4.00     07-NOV-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-HM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Table  ot  contents 


5- 
6- 
7- 
8- 
9- 
10- 


53 
70 
7^ 
80 
210 
503 


11-  590 

12-  615 

13-  635 


14- 
15- 
15- 


704 
732 
734 


15-  735 

16-  772 

17-  793 

18-  818 

19-  837 

20-  871 


21- 
22- 
23- 


892 
910 
937 


Macro  calls  and  local  data 

Context  area 

Local  Symbols 

SET  CIRCUIT  PARSE  TABLE 

PARSE  SUB-EXPRESSIONS 

CICHIN  -  CIRCUIT  CHANGE  PARAMETERS  INITIALIZE 

COSAcT  -  LINE  COST  ACTION  ROUTINE 

LCTACT  -  COUNTER  TIMER  ACTION  ROUTINE 

OUNACT  -  CIRCUIT  OUNER  ACTION  ROUTINE 

TADACT  -  TRIBUTARY  ADDRESS  ACTION  ROUTINE 

PNAERR  -  PARAMETER  NOT  APPLICABLE  ERROR  RETURN 

PVAERR  -  PARAMETER  VALUE  ERROR  RETURN 

CIRERR  -  CIRCUIT-ID  fORMAT  ERROR 

PAREND  -  END  OF  PARAMETER  PARSE 

ACTACT  -  MULTIPOINT  ACTIVE  RATIO  ACTION  ROUTINE 

HTMACT  -  HELLO  TIMER  ACTION  ROUTINE 

CHKDMP  -  CHECK  FOR  DMP  DEVICE 

X.25  PVC  Channel  Number  action  routine 


CHNACT 
CMBACT 
DTEACT 
NUMACT 


24- 

963 

MXRACT 

25- 

980 

MXUACT 

26- 

997 

RETACT 

2/- 

1015 

PCKBCD 

28- 

1056 

PLTACT 

29- 

1074 

BBTACT 

^0- 

1092 

NMTACT 

31- 

1110 

XMTACT 

V- 

1128 

BSAACT 

',',- 

1146 

BSDACT 

S4- 

1164 

BSIACT 

35- 

1182 

INAACT 

^6- 

1200 

INDACT 

^Z- 

1218 

INIACT 

38- 

1236 

TH1ACT 

';9- 

1254 

TH2ACT 

40- 

1272 

TH3ACT 

41- 

;290 

MXBACT 

X.25  Circuit  maximum  data  action  routine 
X.25  Circuit  DTE  action  routine 
X.25  Circuit  DLM  number  action  routine 
X.25  Circuit  maximum  recalls  action  routine 
X.25  Circuit  maximum  window  action  routine 

X.25  Circuit  recall  timer  action  routine 

PCKBCD  -  Pack  string  of  digits  in  BCD  format 

POLL  TIMER  ACTION  ROUTINE 

BABBLE  TIMER  ACTION  ROUTINE 
TRANSMIT  TIMER  ACTION  ROUTINE 
TRANSMIT  TIMER  ACTION  ROUTINE 
ACTIVE  BASE  ACTION  ROUTINE 
DYING  BASE  ACTION  ROUTINE 
INACTIVE  BASE  ACTION  ROUTINE 
ACTIVE  INCREMENT  ACTION  ROUTINE 
DYING  INCREMENT  ACTION  ROUTINE 
INACTIVE  INCREMENT  ACTION  ROUTINE 
DEAD  THRESHOLD  ACTION  ROUTINE 
DYING  THRESHOLD  ACTION  ROUTINE 
INACTIVE  THRESHOLD  ACTION  ROUTINE 
MAXIMUM  BLOCKS  ACTION  ROUTINE 
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CICHIN  -  CIRCUIT  CHANGE 
PARSE  SUB-EXPRESSIONS 

324  000000 

325  000000 
326 
327 
328 

329  000000 

330  000000 

331  000000 

332  000000 
333 
33A 
335 

336  000000 

337  000000 

338  000000 

339  000000 
3A0 
3A1 
3A2 

343  000000 

344  000000 

345  000000 

346  000000 
347 
348 
349 

350  000000 

351  000000 

352  000000 

353  000000 
354 
355 
356 

357  000000 

358  000000 

359  000000 

360  000000 
361 
362 
363 

364  000000 

365  000000 

366  000000 

367  000000 
368 
369 
370 

371  000000 

372  000000 

373  000000 

374  000000 
375 
376 
377 

378  000000 

379  000000 

380  000000 
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FIELDS 
SNATCH  2,SEXIT,BBTACT 

NORMAL  TIMER  SUB-EXPRESSION 

FIELDS  SNMT 

SPARAM  MPSNT I , ,  PAREND  ,MP$NT1 ,  HSPAR 
FIELDS 

SMATCH  2,SEXIT,NMTACT 

TRANSMIT  TIMER  SUB-EXPRESSION 

FIELDS  SXMT 

SPARAM  MPSXMT,,PAREND,MPSXMT,+LSPAR 
FIELDS 

SMATCH  2,SEXIT,XMTACT 

ACTIVE  BASE  SUB-EXPRESSION 

FIELDS  SBSA 

SPARAM  MPS8SA , , PAREND ,MPSBSA , +L SPAR 
FIELDS 

SMATCH  1,$EXIT,BSAACT 

DYING  BASE  SUB-EXPRESSION 

FIELDS  SBSD 

SPARAM  MPSBSD , , PAREND ,MPSBSD , tLSPAR 
FIELDS 

SMATCH  1,SEXIT,BSDACT 

INACTIVE  BASE  SUB-EXPRESSION 

FIELDS  S8SI 

SPARAM  MPS8SI,, PAREND, MPSBSI.+LSPAR 
FIELDS 

SMATCH  1,SEXIT,BSIACT 

ACTIVE  INCREMENT  SUB-EXPRESSION 

FIELDS  SINA 

SPARAM  MPSJNA,, PAREND, MPSINA,+LSPAR 
FIELDS 

SMATCH  1,SEXIT,INAACT 

DYING  INCREMENT  SUB-IXPRESSION 

FIELDS  SIND 

SPARAM  MPSIND,, PAREND, MPSIND,*LSPAR 
FIELDS 

SMATCH  1,SEXIT,1NDACT 

INACTIVE  INCREMENT  SUB-EXPRESSION 


FIELDS 

SINI 

SPARAM 

MPSINl, 

, PAREND 

MPSINl 

tLSPAR 

FIELDS 

N  13 
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795 
79A 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
8U 
815 
816 


.S8TTL  ACTACT  -  MULTIPOINT  ACTIVE  RATIO  ACTION  ROUTINE 

'♦♦-ACTACT-MULTIPOINT  ACTIVE  RATIO  ACTION  ROUTINE 

THIS  ROUTINE  CHECKS  THAT  THE  ACTIVE  POLLING  RATIO  SPECIFIED  IS  WITHIN  RANGE, 
AND  SAVES  IT  IN  THE  CONTEXT  AREA. 


INPUTS; 

.MSGCN 
R4 


=  ACTIVE  POLLING  RATION 
=  POINTER  TO  CONTEXT  AREA 


OUTPUTS: 

IF  RATIO  IS  NON  ZERO, 

L$ACT(R4)  =  SAVED  ACTIVE  POLLING  RATIO 
ELSE,  THE  PARSE  IS  TERMINATED 


000544 

000544  132764  000002  000041 

000552  001743 

000554  116701  OOOOOOG 

000560  001743 

000562  110164  000104 

000566  000763 


ACTACT: 


BIT8 

*LP$TRB,LtPFG(R4) 

BEQ 

PNAERR 

M0V8 

.MSGNM.RI 

BEQ 

PVAERR 

M0V8 

R1,L$ACT(R4) 

BR 

PAREND 

TRIBUTARY  NUMBER  SPECIFIED  ? 

IF  EQ,  NO  -  PARAMETER  NOT  APPLICABLE 

GET  ACTIVE  POLLING  RATIO 

IF  EQ,  PARAMETER  VALUE  ERROR 

ELSE,  SAVE  IT  IN  CONTEXT  AREA 

END  OF  PARAMETER  PARSE 
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CICHIN  - 
NMTACT  - 

1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
110A 
1105 
1106 
1107 
1108 
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TRANSMIT  TIMER  ACTION  ROUTINE 

.SBTTL   NMTACT  -  TRANSMIT  TIMER  ACTION  ROUTINE 


NMTACT  -  TRANSMIT  TIMER  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POINTER  TO  2  BVTE  NORMAL  TIMER 
RA     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

L$NMT(R4)  -  NORMAL  TIMER  VALUE 


001222 

001226  0I016A  000116 

001232 


NMTAC:  CALL    CHKDMP 

MOV     R1,L$NMT(RA) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  NORMAL  TIMER  VALUE 
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ACTACT 

A$»CHK- 

A$$CPS= 

A$tPRl= 

A$$TRP= 

BBTALT 

BSAACT 

BSDACT 

BSIACT 

CALL 

CALLi 

CFtBLK.= 

CHKCIR= 

CHUDMP 

CHNACT 

CICHIN 

CIRERR 

CLCT 

CLECIR 

CMBACT 

COSACT 

CRET 

CSTERR 

CtDTE 

C$fLG 

CSGNAM 

C$LCN 

CtLEN 

C$LNK 

rtNAM 

CSNML 

C SPORT 

CS$CKP= 

Ct$ORE= 

C$$RSH= 

DTEACT 

DV.CCL= 

DV.COM= 

DV.DIR= 

DV.EXT: 

DV.flU 

OV.ISP= 

DV.MBC= 

DV.MNT= 

DV.MSD= 

DV.OSP= 

DV.PSE= 

DV.REC= 

DV.5DI= 

DV.SQD= 

DV.SWL= 

DV.TrY= 

DV.UMD= 

Dt$SUG= 

DS$I5<= 

DSSfl: 


00054<.R 

000000 

oocooo 

000000 

000000 

001210R 

001246R 

001260R 

001272R 

002024R 

0020?0R 

00010? 

«»•»««  GX 

000606R 

000662R 

OOOOOORG 

0004 76R 

002056R 

000A22R 

00071  OR 

0001 70R 

002044R 

000512R 

000012 

000015 

000016 

000010 

000016 

000000 

000002 

000002 

0000  U 

000000 

000400 

177564 

000726R 

000002 

020000 

000010 

000400 

040000 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

177514 

000000 

000001 

000000 


D$$VNM= 

END 

E$$XPR= 

Fi$LVL= 
GtSTPP-- 
G$$TSS= 
G$$T1K= 
Gt$WRD= 
002  HTMACT 
002  H.CSP 
H.CUIC 
H.DSW 
H.DUIC 
H.EFLM 
H.EFSV 
H.fCS 
002  H.FORT 
002  H.FPSA 
H.FPSL= 
H.FPVA 
002  H.GARD 
H.HDLN 
H.IPC 
H.IPS 
H.ISP 
H.LUN 
H.NLUN 
H.NML 
H.ODVA 
H.ODVL 
H.OVLY 
H.PFVA 
H.RCVA 
H.RRVA 
H.SPRI 
H.TKVA 
H.TKVL 
H.VEXT 
H.WND 
H.X25 
INAACT 
INDACT 
INIACT 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LCTACT 
LCSEXT 
LCSINT 
LC$NTL= 
LC$OWN= 
LD$LP  = 
LF$MLT= 


000000 

000450R 

000000 

177777 

000001 

000000 

000000 

000000 

000000 

000570R 

000000 

000010 

000046 

000012 

000004 

000040 

000050 

000052 

000042 

000062 

000034 

000072 

000002 

000016 

000014 

000020 

000076 

000074 

000061 

000022 

000024 

000054 

000032 

000036 

000062 

000060 

000026 

000030 

000056 

000044 

000064 

001304R 

001316R 

001330R 

000000 

000000 

177546 

177546 

000000 

000074 

00021 2R 

000000 

000001 

000200 

000400 

000000 

040000 


LF$REA= 
002  LF$3EG= 
LF$SKP= 
LF$VR2= 
LF$ZER= 
LF.ACT= 
LF.BR0= 
LF.8WT= 
LF.ENA= 
LF.LP8= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDy= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SU8= 
LN.TRI= 
LO.CON 
LO.CSR 
LO.CTL 
LO.LIN 
LO.PAR 
LO.PRI 
LO.SCR 
LO.STA 
LO.VCT 
LP$MPT= 
LP$MUX= 
LP$NXC= 
LP$TR8= 
LP$UNT= 
LP$UCN= 
LP$WDV= 
LPSULD: 
LP$WTR= 
LP$WUN= 
LR.AST 
LR.CIR 
LR.CTL 
LR.EFN 


000004 

LR.LIN 

LR.PRM 

LR.PRO 

100000 

LR.STS 

LR.TC8 

LR.UNT 

000400 

LS$ACT= 

000007 

LS$8BT= 

002000 

LS$BLK= 

001000 
000100 

LS$BSA= 

LS$BSD= 

004000 

LS$8SI= 

000020 

LS$CHN= 

000200 

LS$CMB= 

040000 

LS$C0S= 

010000 

LS$CUS= 

000040 

LS$DDT= 

000010 

LS$DEA= 

020000 

LS$DLM= 

000000 

LS$DLT=: 

000000 

LS$DTE= 

000005 

LS$H8T= 

000004 

LS$HrM= 

000003 

LS$INA= 

000003 

LS$IND= 

000001 

LS$INI= 

000000 

LS$LCT= 

000004 

LS$LMB= 

000001 

LS$L00= 

000002 

LS$MDT= 

000002 

LS$MRT= 

000017 

LSSMUNr 

000360 

LS$MX8= 

000006 

LS$MXR= 

000006 

LS$MXW= 

000006 

LS$NMT= 

000014 

LS$N0R= 

000004 

LS$NTI= 

000010 

LS$NTL= 

000010 

LS$NUM= 

000014 

LS$0WN= 

000015 

LS$PLT= 

000012 

LS$PRO= 

000010 

LS$PVC= 

000004 

LS$RET= 

100000 

LS$SER= 

000002 

LS$STA= 

000001 

LS$SVC= 

000040 

LS$TAD= 

000020 

LS$TH1= 

000360 

LS$TH2= 

000200 

LS$TH3= 

000100 

LS$XMT= 

000026 

LS.AST= 

000002 

LS.CEX= 

000004 

LS.CIR= 

000004 

LS.CXO= 

000002 
000030 
000002 
OOOOOO 
000002 
000005 
000040 
010000 
001000 
000001 
000002 
000004 
000001 
000002 
000004 
000004 
001000 
000100 
001004 
002000 
000010 
000400 
010000 
000010 
000020 
000040 
020000 
000002 
040000 
020000 
000020 
000040 
001000 
000020 
000040 
020000 
100000 
000200 
000001 
000100 
000010 
004000 
010000 
020053 
000200 
100000 
000002 
000362 
000020 
000100 
000200 
000400 
040000 
100000 
000001 
000010 
010000 


LS.CX5= 

000400 

LS.DLM= 

004000 

LS.ECH= 

001000 

LS.FDX= 

004000 

LS.HDX= 

010000 

LS.LIN= 

000UU3 

LS.LMC= 

000007 

LS.NTI= 

004000 

LS.ON  = 

000011 

LS.0PT= 

000400 

LS.PRO= 

000002 

LS.PWF= 

040000 

LS.TOP= 

002000 

LS.UNF= 

020000 

LS.X25= 

000012 

LS.11D= 

004000 

LX.CEX= 

000004 

LX.LIN= 

000006 

LX.PR0= 

000005 

LSACT 

000104 

L$88T 

000114 

L$8LK 

000262 

L$BSA 

000122 

LSBSP 

000123 

LSBSI 

000124 

LSBUF 

000060 

LSCHN 

000054 

LICMB 

000234 

LSCOS 

000101 

LSCTB 

000053 

LSCTL 

000002 

LSCUS 

000260 

LSDDM 

OOOOOO 

LSDDT 

000106 

LSDEA 

000105 

LSDLT 

000110 

LSDTE 

000240 

LSDTEL 

000236 

LSDTEP 

000250 

LSFLG 

000064 

LSFLX 

000076 

L$FL1 

000066 

L$FL2 

000070 

L$H8T 

000254 

LSHTM 

000226 

LSINA 

000' 25 

LUND 

000-  26 

LSINI 

000127 

LSLCT 

000224 

LSLEN 

000264 

LSLMB 

000234 

LSLTM 

000230 

LSMRT 

000253 

LSMSG 

000056 

LSMTYP 

000075 

LSMWN 

000252 

LSMXB 

000133 

B  1 


E  10 
F  in 


M  14 
N  14 


HNDA  - 

?8G 
281 
28? 
28! 
28A 
c8^ 
286 
287 
2S8 
28=» 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 

7'"  r 

35- 
30? 
308 
309 
310 
311 
312 
313 
31A 
315 
316 
317 
318 
319 
320 
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000466 
000470 
000472 
'00476 
J00500 
000502 
000504 
000512 
000514 
000522 
000524 
000532 
000534 
000542 


010001 
011146 

000261 
012601 
001421 
026461 
001366 
026461 
001362 
026461 
001356 
026461 
001352 


0C0544  000241 
000546 

000001 


000012  000002 

000014  000004 

000016  000006 

000020  000010 


.SBTTL   FINDA  -  FIND  A  MATCHING  ALIAS  BLOCK 

'♦*-FINDA-FIND  A  MATCHING  ALIAS  BLOCK 

THIS  ROUTINE  FINDS  A  BLOCK  WITH  A  MATCHING  ALIAS  NAME  AND  SCOPE. 

INPUTS: 

RO  =  LISTHEAD  ADDRESS 

R4  =  POINTER  TO  fONTEXl  AREA  WITH: 

ASALI  =  6  CHAR  ALIAS  NAME 

A$SCO  -  SLOPE  OF  ALIAS 

OUTPUTS: 

IF  CC: 

R1  =  MAPPED  ADDRESS  OF  BLOCK 
IF  CS: 

NO  MATCH  IN  LI'T 


REGISTERS: 

RO,  R2, 


FINDA; 
10$: 


40$: 


MOV 

MOV 

CALL 

SEC 

MOV 

BEQ 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CLC 
RETURN 

.END 


R3,  R4,  R5  iRE  PRESERVED 


R0,R1 

{R1),-(S:') 

aCEACC 

(SP)+,R1 

10$ 

A$ALI(R4),A.NAM(R1) 

10$ 

A$ALI+2(R«>,A.NAM+2(R1) 

10$ 

A$ALI+4(R4),A.NAM+4(R1) 

10$ 

A$SC0(R4),A.UCB(R1) 

10$ 


COPV  REGISTER  TO  OUTPUT  REGISTER 
SET  UP  FOR  MAPPING  OF  NEXT  ANB 
MAP  TO  ANB  ;  RJK03 

ASSUME  FAILURE  ;**-1 

GET  MAPPED  VIRTUAL  ADDRESS 
IF  EQ,  THERE  IS  NONE  (NO  MATCH) 
DOES  THIS  NAME  MATCH  ? 
F  NE,  NO 


DOES  THE  SCOPE  MATCH 
F  NOl  EQ,  NO  MATCH 


FOUND  r. 


ALREOP 
ALREOP 


ALIAS  READ  INFORMATION  MACRO  V05.03b  Saturday  29-Jun-85  12 
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138  000172 

139  000176 
UO  000202 
K1  000210 
U2  000216 
1^3  000222 
UA  000226 
U5  000232 
U6  000234 
U7  000240 
K8  000244 

149  000250 

150  000252 

151  000256 
152 

153 
154 

155  000260 

156  000262 

157  000266 

158  000270 

159  000272 
,60  000274 

161  000276 

162  000302 

163  000304 


016401  000022 

011164  000012 

016164  000002  000014 

016164  000004  000016 

022164  000020 

010164  000022 
001404 

014164  000020 


103003 

016403  000006 

000704 


010302 

016403  000006 

160302 

111300 

000241 

100003 

005064  000000 

000261 


40$: 


MOV  ASNEX(R4),R1 

MOV  (R1),A$ALI{R4) 

MOV  2(R1),A$ALIt2(R4) 

MOV  4(R1),A$ALI+4(R4J 

CALL  FMTNAM 

CMP  (R1)+,A$SC0(R4) 

MOV  R1,A$NEX(R4) 

BEQ  40$ 

MOV  -(R1),A$SC0(R4) 

CALL  FMTSCO 

CALL  FMTDES 

RCC  50$ 

MOV  A$eUF(R4),R3 

BR  10$ 


SET  UP  REGISTERS  FOR  RETURN 


^0$: 


60$: 


MOV 

MOV 

SUB 

M0V8 

CLC 

8PL 

CLR 

SEC 

RETURN 


R3,R2 

A$BUF(R4),R3 
R3,R2 
(R3),R0 

60$ 
A$FLG(R4) 


POINT  TO  THE  NEXT  SAVED  CONTEXT 
COPY  ALIAS  NAME  INTO  BUFFER 


FORMAT  THE  ALIAS  ID 

IS  THIS  THE  SAME  AS  THE  LAST  ? 

UPDATE  "NEXT"  POINTER 

IF  EQ,  SAME  SCOPE 

ELSE,  SET  NEW  SCOPZ 

AND  FORMAT  SCOPE  PARAMETER 

FIND  ALIAS  BLOCK  AND  FORMAT  DESTINATION 

IF  CC,  FOUND  IT  -  RETURN 

ELSE,  RESTORE  BUFFER  POINTER 

AND  LOOK  FOR  NEXT  ALIAS 


SAVE  CURRENT  POINTER  INTO  BUFFER 

RESTORE  BUFFER  POINTER 

CALC  I ENGTH  OF  MESSAGE 

SET  RETURN  CODE 

ASSUME  SUCCESS 

IF  PL,  SUCCESS  -  FINISHED 

ZERO  FLAGS  (AF.INI) 

SET  ERROR  RETURN 
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S5.X0N= 
56.EI0= 
S6.RDI= 
S6.RLU= 
TKTC8  = 
T$$<MG= 
T$$MIN= 
T.UCB  = 
UC.ALG= 
UC.ATT= 
UC.KIL= 
UC.LGH= 
UC.NPR= 
UC.PUF^ 
UC.QUE= 
UD.UNS= 
UD.160= 
U0.200= 
UD.556= 
UD.625= 
UD.8K  = 
U0.800= 
UM.CLI= 
UM.DSB= 
UM.NBR= 
UH.OVR= 
US.ABO= 
US.BSP= 
US.BSY= 
US.FOR=: 
U3.FRK= 
US.KPF= 
US.LAB= 

.  ABS. 


000010 

000400 

100000 

001000 

«»««*«  GX 

000000 

000000 

**»n»  GX 

000200 

000010 

OOOOOA 

000003 

000100 

000020 

000040 

000000 

000004 

000001 

000002 

000005 

000006 

000003 

000036 

000200 

000400 

000001 

000001 

00C002 

000200 

000040 

000002 

000001 

000004 


US.MDE= 

US.MDM= 

US.MNT= 

US.OFL= 

US.PUB= 

US.PWF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.WCK= 

UU.ABO= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO^ 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BFKT= 

U.BUF 

U.C8F  = 

U.CLI 

U.CNT 


000002 
000020 
000100 
000001 
000004 
000010 
000002 
000001 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
000062 
000032 
000066 
000064 
000022 
000044 
000024 
000032 
177772 
000030 


U.COTQ 

U.CTCB 

U.CTL 

U.CTYP 

U.CW1 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DC8 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MED1= 

U.HLUN= 

U.MUP 

U.OUN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SC8 

U.SHST= 

U.SWUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 


000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
177776 
000112 
000113 
000110 
000002 
000034 
000020 
000076 
000074 
000036 
000005 
000007 
000036 
000042 


U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.THTJ 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTA8 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VCB  = 

U.\/SER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJ1= 

U2.DZ1= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 


000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 
000056 
000050 
000046 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 
000034 
000120 
000070 
000020 
002000 
100000 
040000 
000100 
001000 
010000 
000040 
000400 


177776 
000574 
Errors  detected: 


000 

0^1 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


U2.LWC= 

U2.L3S= 

U2.L8S= 

U2.NEC= 

U2.PRV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR  = 

V$$CTR= 

U.BATT 

W.8FPD 

U.BHVR 

W.BLGH 

W.BLPD 

W.BLVR 

W.BNPD 

W.BOFF 

U.BPCB 

U.BSIZ 

X$$OBT= 

SCOTB  = 

$HEADR= 

$TMLUN= 

$$$SYS= 

$$$SYX= 


000001 

000004 

010000 

004000 

000010 

020000 

100000 

000004 

000200 

000002 

010000 

100000 

040000 

020000 

000100 

001000 

000006 

000014 

000004 

000020 

000016 

000002 

000015 

000012 

000000 

000010 

000000 

******  GX 

******  GX 

******  GX 

004374 

000000 


♦«♦  Assembler  statistics 

Work  file  reads:  213 

Work   file  writes:  148 

Size  of  work  file:  28752  Words  (  113  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 

SYfALXXIN!v2![:i35,134]ALXXIN/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[135,10]ALXXIN 
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Symbol  table 
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HPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MP$OHO 

MPSONA 

MP$ONR 

MPSOQL 

MP$OT! 

MPSOTY 

MPSOUS 

MPSOVE 

MPSOWN 

HPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MI^SPHA 

MPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

HPSPMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 

MPSRET 

MPSRFA 

MPSRMX 

MP$RPA 

MPSRPR 

MPSRRT 

HPSRST 

MPSRSV 

HPSRSZ 

MPSRTI 

HPSRTM 

MPSRVE 

MPSSVT 

MPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MP$SDV 

MPSSEH 

MPSSER 

MPSSET 

MPSSGZ 

MPSSID 


001642 

001274 

0OH76 

000632 

000620 

000776 

0002U 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 

000513 

002152 

000024 

000144 

002114 

000170 

000012 

000025 

002140 

000012 

004374 

002126 

004411 

002130 

001763 

001762 

001631 

001323 

002201 

004374 

001606 

002213 

002212 

001754 

001756 

001616 

001611 

001604 

000156 

000514 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

001644 

000176 


MPSSIN 

MPSSLI 

MPSSLO 

MPSSMX 

MPSSND 

HPSSNP 

MPSSNU 

HPtSOB 

HPSSPA 

HPSSPR 

HPSSPS 

MPSSTA 

HPSSTI 

MPSSTT 

MPSSTY 

MPSSUB 

HPSSUR 

MPSSUS 

MPSSVR 

MPSSWI 

MP$SYP 

MPtTFL 

MPSTHI 

MP$TH2 

HP$TH3 

HPtTLN 

HPSTLO 

MPSTPA 

MPSTRI 

HPSTST 

MPSTYP 

HPSUCS 

MPSUSR 

HPSVEC 

MPSVER 

KPSWDF 

HPSWMX 

MPSXMT 

HPSXPF 

HPSXPL 

MPSXPT 

HPSXXX 

MP$5ST 

MSSACT 

MS$ADU 

HSSALO 

MSSASE 

HSSA^R 

HSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 

MSSGLO 

MSSHOL 

HS$INA 


000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 

000000 

002140 

002201 

000175 

000001 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004375 

002164 

000144 

002130 

004407 

001750 

004410 

004406 

002165 

002177 

002166 

000242 

000244 

000240 

177777 

004406 

000001 

000010 

000007 

000006 

000011 

000000 

000003 

000004 

000003 

000004 

000013 

000000 

000002 

000002 


MSSLOA 

HSSLOO 

HSSOFF 

MS$ON 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRST 

HSSRSX 

MS$RT 

MSSSER 

HSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

HSSTOP 

MSJTRJ 

MSSUNR 

riS$VHS 

MS. DON 

MS.HCR 

MS. PAR 

MS. sue 

MT$AR4 

HTSASC 

MTSeiL 

MTSBYS 

MTJCI 

MTSCLE 

HTSCOD 

HTSCON 

MTSDMC 

MTSETH 

MTSHEX 

MTSLPB 

MTSMAX 

MTSHUL 

MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

M7$0CT 

MTSPHA 

MTSPOI 

MT$QP2 

MTSROU 

MT$R04 

MTSSEC 

HTSSGD 

MTSSYS 

MTSTER 

MT$TR] 

MTSTYP 

MTSUSD 

MT$X25 


000003 

000002 

000001 

000000 

000006 

000004 

000001 

000003 

000001 

000002 

000005 

000002 

000002 

000007 

000000 

000012 

000001 

000003 

000005 

000005 

000004 

177600 

000002 

000003 

000001 

000003 

000100 

000001 

000011 

000007 

000077 

000200 

000001 

000004 

000006 

000040 

000005 

000037 

000100 

000017 

000001 

000005 

000060 

000060 

000002 

000000 

000010 

000000 

000004 

000000 

000020 

000002 

000001 

000002 

007777 

000000 

000003 


NOSINC 

MUSOUT 

MUSPER 

MV$III 

«V$1V 

HXAREA= 

MXSACT 

MXSCIR 

MXSCLN 

K.^CNM 

MXSCON 

MXSDAC 

HXSDTE 

MXSFIL 

MX$LGC 

HXSLIN 

MXSLON 

MXSNMS 

HXSNOD 

HXSOBJ 

MX$OUN 

MXSPAR 

MXSPAS 

MXSRAC 

,1X$RJD 

HXSRPS 

MXSSID 

MXSSNK 

MXSTYP 

MXSUID 

M$$CRB= 

M$$CRX= 

H$$FCS= 

H$$MGE= 

H$$NET= 

M$$aVR= 

NF$ACC= 

NF$EVT= 

NF.ACC= 

NF.BCP= 

NF.END= 

NF.EVT= 

NF.LLI= 

NF.LV2= 

NF.SLI= 

NF.SMC= 

NF.SWP= 

NM.CLN 

NM.INI 

NM.OPR 

NM.VR2 

NH.VR3 

NSADJl 

N$ADJ2 

NSCACH 

N$CRC 

N$HC1 


000001 
000002 
000000 
000000 
000001 
000077 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
000040 
000036 
000010 
000047 
000047 
000047 
000040 
000377 
000077 
000020 
000124 

orcooo 

000000 
000000 
000000 
000000 
100000 
040000 
000001 
000040 
000200 
000002 
000004 
000100 
000400 
000020 
000010 
003400 
002400 
003000 
002401 
002402 
000072 
000074 
000062 
000120 
000052 


N$HC2 

N$LV1 

N$U2 

NSMHCI 

N$MHC2 

NIPLD 

NSPRl 

N$R0A1 

N$R0A2 

NSRTHX 

NSRTMI 

N$RTM2 

NSRTI 

N$RT2 

NSTCTL 

N$TLC 

NSTNC 

N$TRC 

NSTTCB 

NtVER 

NSXLEN 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$HCP= 

N$$MLL= 

N$$HOV= 

N$$NCT= 

N$$PEH= 

PDv'O  = 

PDVTA  = 

P$$P45= 

P$$URD= 

Q$$OPT= 

R$RO  = 

R$$DER= 

R$$K11= 

R$$SND= 

RI$11M= 

SFSANM 

SFSDNM 

SJ$WRG= 

S$$YSZ= 

S1.DEC= 

S1.DPR= 

S1.DSI= 

S1.ESC= 

S1.IBF= 

S1.IBY= 

S1.0BY= 

S1.PTH= 

S1.RES= 

S1.RNE= 

S1.RNF= 

S1.RSP= 

S1.RST= 

S1.TNE  = 


000056 

000002 

00C010 

000036 

000044 

000016 

000076 

000022 

000030 

000014 

000014 

000015 

000000 

000006 

000112 

000100 

000114 

000106 

000110 

000066 

000124 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

»♦**♦*  GX 

******  GX 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

000001 

000002 

000000 

007600 

001000 

000400 

004000 

000002 

002000 

000200 

000100 

000010 

010000 

000020 

020000 

000004 

000001 

040000 
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GETEXA  -  GET  EXECUTOR  AREA  INFORMATION 

2';6  000636  005002  A5$:    CLR     R2  ; ;  NO  CHANNEL 

247 

248  000640  50$:    RESRG   RO  ; ;  RESTORE  REGISTER 

249  000642  RESMAP  i)  RESTORE  APR  6  MAPPING 

250  000646  RETURN 


ARREOP     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:08 
SYMBOL  CROSS  REFERENCE 
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CREf   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

NSROAl 

000022 

7-228 

7-??2 

N$R0A2 

000030 

6-126 

6-128 

N$$VCT 

r     ****** 

6-126 
8-295 

6-135 

6-143 

7-201 

PDVTA 

=   ******      GX 

9-359 

R$R1 

=   ******      GX 

*6-120 

♦6-139 

*8-292 

R$R2 

=   ******      GX 

*6-121 

»6-140 

RtSEIS 

=   ****** 

8-306 

RSSRTR 

r     ****** 

9-349 

R$$11D 

=     ****** 

5-63 

8-306 

R$$11M 

=  000000 

5-63 

6-129 

6-136 

7-216 

R$$ns 

-    ****** 

5-63 

SF.ACT 

=  0002CO 

#5-64 

SF.ENA 

=  000100 

#5-64 

SF.LPB 

=  000004 

#5-64 

SF.MFL 

=  OOOOAO 

#5-64 

SF.PAC 

=  000020 

#5-64 

SF.REA 

=  000010 

#5-64 

SF.SER 

=  OOOOOl 

#5-64 

SF.SVC 

=  000002 

#5-64 

SF.UNL 

=  000040 

#5-64 

SLTMA 

=   ******     GX 

9-346 

S$$BAS 

=   ****** 

9-349 

S.COST 

OOOOOl 

#5-64 

S.FLG 

000000 

#5-64 

S.LEN 

000004 

#5-64 

S.NMST 

00C002 

#5-64 

S.OUNR 

000003 

#5-64 

TEMP 

000000  R 

#5-72 

8-299 

10-417 

X$$MCB 

-   ****** 

5-63 

5-63 

ZF.COU 

=  001000 

#5-63 

ZF.DDM 

=  OOOOOl 

#5-63 

ZF.DIA 

=  004000 

#5-63 

ZF.DLC 

=  000002 

#5-63 

ZF.DVP 

=  100000 

#5-63 

ZF.INl 

=  040000 

#5-63 

ZF.KMX 

=  000020 

#5-63 

ZF.LLC 

=  000004 

#5-63 

ZF.LMC 

=  000100 

#5-63 

ZF.MAN 

=  020000 

#5-63 

ZF.MFL 

=  000010 

#5-63 

ZF.MTM 

=  000400 

#5-63 

ZF.MUX 

=  000040 

#5-63 

9-362 

ZF.PSE 

=  002000 

#5-63 

ZF. SLI 

=  010000 

#5-63 

ZF.TIM 

=  000200 

#5-63 

ZF.X5P 

=  000000 

#5-63 

ZS.ASN 

=  100000 

#5-63 

ZS.BSY 

=  uoooo 

#5-63 

Z.AVL 

000014 

#5-63 

Z.DAT 

000016 

#5-63 

6-111 

7-213 

7-227 

Z.DSP 

000000 

#5-63 

5-63 

7-205 

7-212 

7-212 


7-231 


7-228 


7-234 


7-235 


8-291 


7-249 


8-287 


8-271 


137 

138 
139 
KO 
HI 

K3 
U4 
145 
1A6 
H7 
K8 
U9 
150 
151 
152 

153  000054 

154  000062 

155  000070 

156  000076 

157  000102 

158  000104 

159  000106 

160  000112 

161  000114 

162  000116 

163  000120 

164  000122 
165 

166  000124 

167  000130 

168  000134 

169  000140 

170  000142 

171  000150 

172  000154 

173  000156 

174  000164 

175  00017' 

176  000172 

177  000200 

178  000204 

179  000206 

180  000214 

181  000220 

182  000222 

183  000230 

184  000236 

185  000240 

186  000246 
187 


042764  000002  000000 

016464  000050  000046 

016464  000052  000054 

012703  000000' 

012301 

001407 

032364  000030 

001773 


000767 

010564 
016403 
020364 
103403 
042764 
020364 
103403 
042764 
020364 
103403 
042764 
020364 
103403 
042764 
020364 
103403 
042764 
026464 
103403 
042764 


000060 
000050 
000040 

000010 
000036 

000004 
000034 

000002 
000042 

000020 
000032 

000001 
000052 


000030 
000030 
000030 
000030 


000030 
000044 


000040  000030 
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BLNLST  -  BUILD  NODE  LIST  IN  CONTEXT  AREA 

•  + 

;  **»  - 

BLNLST 

-  BUILD  NODE  LIST  IN  CONTEXT  AREA 

;  INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA 

R5  =  ADDRESS  OF  STORAGE  FOR  NODE  ADDRESS 

;  OUTPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA 

R5  =  UPDATED 

)  NOTE: 

BLNLST 

IS  CALLED  FROM  SYSTEM  STATE. 

BLNLST: 

:81C 

#NF.0VR,N$FLAG(R4) 

;  CLEAR  CONTEXT  AREA  OVERFLOW  BIT 

MOV 

N$HCCX(R4),N$HLCXCR4) 

;  MOVE  CURRENl 

TO  LAST  HIGHEST  CONTEXT  ADDR 

MOV 

N$CLOO(R4),N$LLOO(R4) 

;  HOVE  CURRENl 

TO  LAST  HIGHEST  LOOP  ADDRESS 

MOV 

#DISTBL,R3 

;  GET  START  OF 

DISPATCH  TABLE 

10$: 

MOV 

(R3)t,Rl 

;  GET  ROUTINE 

ADDRESS 

BEQ 

20$ 

;  IF  EQ,  NO  MORE  ROUTINES  TO  CALL         | 

BIT 

{R3)+,N$LFLG(R4) 

;  DISPATCH  TO 

THIS  ROUTINE  ? 

BEO 

10$ 

;  IF  EQ,  NO  - 

TRY  THE  NEXT  ONE 

SAVR6 

<R3> 

;  SAVE  TABLE  POINTER 

CALL 

(R1) 

;  ELSE  CALL  THE  ROUTINE 

RESRG 

<R3> 

;  RESTORE  TABLE  POINTER 

BR 

10$ 

;  CONTINUE 

20$: 

MOV 

R5,N$BFL(R4) 

;  SAVE  BUFFER 

LIMIT 

MOV 

N$HCCX(r;4),R3 

;  GET  HIGHEST 

ADDRESS  IN  CURRENT  CONTEXT 

CMP 

R3,N$HADJ(R4) 

;  HIGHER  THAN 

HIGHEST  ADJACENT  NODE 

BLO 

30i 

;  IF  LO,  NO  - 

JUMP 

BIC 

#NL.ADJ,N$LFLG(R'f) 

;  ELSE,  CLEAR 

ADJACENT  LIST  BIT 

30$: 

CMP 

R3.N$HECL(R4) 

;  HIGHER  THAN 

HIGHEST  ECL  NODE 

BLO 

40i 

;  IF  LO,  NO  - 

JUMP 

BIC 

#NL.ECL,N$LFlG(R4) 

;  ELSE,  CLEAR 

ECL  LIST  BIT 

40$: 

CMP 

R3.N$HR0L(R4) 

;  HIGHER  THAN 

HIGHEST  ROL  NODE 

BLO 

5li 

;  IF  LO,  NO  - 

JUMP 

BIC 

#n: .rol,n$lflg(R4) 

;  ELSE,  CLEAR 

ROL  LIST  BIT 

50$: 

CMP 

R3,N$HSER(R4) 

;  HIGHER  THAN 

HIGHEST  SERVICE  NODE 

BLO 

60i 

;  IF  LO,  NO  - 

JUMP 

BIC 

*NL.SER,N$LFLG(KO 

;  ELSE,  CLEAR 

SERVICE  LIST  BIT 

60$: 

CMP 

R3.N$HREM(R4) 

;  HIGHER  THAN 

HIGHEST  REMOTE  NODE 

BLO 

70l 

;  IF  LO,  NO  - 

JUMP 

BIC 

#NL.REM,N$LFLGCR4) 

;  ELSE,  CLEAR 

REMOTE  LIST  BIT 

70$: 

CMP 

N$CL00(R4),M$HL00(R4) 

•;  COMPARE  CURRENT  HIGH  LOOP  NODE  TO  HIGHEST  | 

BLO 

80$ 

;  IF  LO,  MORE 

LOOP  NODES 

BIC 

*NL.L00,N$LFLG(R4) 

•;  ELSE,  CLEAR 

LOOP  LIST  BIT 

80$: 

RETURN 
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MXSNOD 

MXtOBJ 

MXSOUN 

MXIPAR 

MXtPAS 

MXSRAC 

MXSRID 

MXSRPS 

MXtSID 

MXSSNK 

MXSTYP 

MX$UID 

MSSCRB= 

M$$CRX= 

«$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NF$BLK= 

NF$DMO= 

NF$MOU= 

NF$RST= 

NF$SCN= 

NF$SHU= 

NF$TI,"1=: 

NF.ARE= 

NF.FPM= 

NF.EXN= 

NF.FTT= 

NF.1NI= 

NF.LPB= 

NF.LV1= 

NF.LV2= 

NF.LXX= 

NF.MUX= 

NF.OVR= 

NF.PA2= 

NF.REA= 

NF.VR2= 

NF.VR3= 

NF.WLD= 

NL.ADJ= 

"/  .£CL  = 

'4L.L00= 

NL.REM= 

NL.ROL= 

NL.SER= 

NH.CLN 

NM.INI 

NM.OPR 

NM.VR2 

NM.VRB 

NSACQ 

NSACTL 

NSADD 

NSADJl 

N$ADJ2 


000006 

N$ALN  = 

000002 

000006 

NSAMP 

000066 

0000^0 

NSAMX 

000056 

000036 

NSBFL 

000060 

000010 

N$BUF 

000056 

0000A7 

NSCACH 

O00062 

000047 

N$CAR 

O00062 

000047 

N$CHN 

000014 

000040 

N$CIR 

000034 

000377 

NSCLOO 

000052 

000077 

N$CNO 

000064 

000020 

NSCRC 

000120 

000124 

N$DLA 

000020 

000000 

NJDLY 

000014 

000000 

NSECL 

000010 

000000 

NSELEN 

000054 

000000 

NSENC 

000042 

000000 

NSERRC 

000022 

000100 

NSFLAG 

000000 

000010 

N$FLG 

000005 

000040 

NSFNC 

000006 

000002 

NSGENQ 

000052 

000020 

N$GTM 

000015 

000004 

NSHADJ 

000040 

000200 

NSHCCX 

000050 

000200 

N$HC1 

000052 

002000 

N$HC2 

000056 

020000 

NSHECL 

000036 

040000 

NSHIGH 

000033 

000001 

NSHLCX 

000046 

000004 

NSHLOO 

000044 

000040 

NSHREM 

000032 

000100 

NSHROL 

000034 

004000 

NSHSER 

00O042 

000010 

N$LEN 

000270 

000002 

NSLFLG 

OOC030 

010000 

NSLLOO 

000054 

000020 

N$LLT 

000026 

000400 

NSLLTM 

000024 

001000 

N$LOO 

000270 

000004 

N$LVC 

000036 

000010 

N$LV1 

000002 

000004 

N$LV2 

000010 

000040 

NSMBXO 

000050 

000001 

NSMHCI 

000036 

000002 

N$MHC2 

000044 

000020 

rjtNAM 

000020 

003400 

NiNEX 

000062 

002400 

NSNlEN 

000017 

003000 

N$NLN  = 

■  000200 

002401 

N$NMP 

000070 

002402 

NSNMX 

000060 

000000 

NSNSP 

000026 

000032 

N$OPT 

000002 

000004 

NSPLD 

000016 

000072 

NSPLLT 

000030 

000074 

N$PLU 

000015 

NSPRI 

NiOCH 

NSROAI 

N$R0A2 

NtRT.IX 

NSRTMI 

N$RTM2 

N$RT1 

N$RT2 

NSSAV 

NISLA 

NSSNOD 

NSTCTL 

N$T1M 

N$TLC 

NSTNC 

N$TRC 

NSTTCB 

NSUCB 

N$VCB 

NSVER 

NSXLEN 

N$XPT 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

OFFSET= 

P$$P45= 

P$$WRD^ 

Q$$OPT= 

RBNLST 

RF.INJ= 

RF.LDA= 

RF.LOO= 

RF.R',R= 

RF.RSV= 

RF.RTS= 

RH.CTF= 

RH.DTF= 

RH.MSF= 

RL.CKS= 

RL.CTL=: 

RL.DAH= 

RL.DK4= 

RL.SGH= 

RL.TYP= 

RL.VER= 

R$R5  = 

R$$DER= 

RSSKII^ 

R$$SND= 

R$$11M= 


000076 

000016 

000022 

000030 

000014 

000014 

000015 

000000 

000006 

000064 

000016 

000012 

000112 

000004 

000100 

000114 

000106 

000110 

000006 

000010 

000066 

000124 

000012 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000002 

000000 

000000 

000010 

000032RG 

000040 

000004 

100000 

000010 

000100 

000020 

000001 

000002 

000003 

000002 

000003 

000006 

000025 

000004 

000012 

000006 

******  GX 

000000 

000001 

000000 

000000 


R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

SAVADJ 

SAVCTX 

SAVECL 

SAVLOO 

SAVREM 

SAVROL 

SAVSER 

SFSANM 

SFSDNM 

SF.CIR= 

SF.DEV= 

SF.DIA= 

SF.DPA= 

SF.DPC= 

SF.DUM= 

SF.HAD= 

SF.HST= 

SF.LOA= 

SF.PH3= 

SF.PSS= 

SF.SEC= 

SF.TER= 

S$$WRG= 

S$$VSZ= 

S.ADD 

S.CIR 


DEV 

DIA 

DPA 

DPC 

DUM 

FLAG 
S.HAD 
S.HST 
S.LENG 
S.LNK 
S.LOA 
S.PSS 
S.SEC 
S.TER 
TI.END^ 
TI.RSV= 
TI.RT1= 
TI.RT2= 
TI.TYP= 
TI.VFY= 
TSFLAG 
T$LIF 
TSLIFL 
TSLIFO 
TSLIFS 
TSLIN 


000010 

000012 

000014 

000000 

000002 

000770R 

001262R 

000542R 

0n0626R 

000444R 

000250R 

001200R 

000001 

000002 

000010 

000020 

004000 

000100 

000200 

010000 

000004 

000002 

002000 

020000 

000040 

000400 

001000 

000000 

007600 

000004 

000016 

000020 

000046 

000032 

000036 

000050 

000002 

000010 

000006 

000052 

000000 

000044 

000022 

000040 

000042 

000003 

000370 

000002 

000001 

000003 

000004 

000044 

000013 

000013 

000013 

000013 

000000 


TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

T$LLDS 

TSLLEN 

TSLOPR 

T$LTCL 

TSLTIM 

T$LTPR 

TSLTPS 

TJNAPL 

T$NFE 

TSNLEN 

TSNNUL 

TSNOPL 

TJNRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 

TSSVC 

T$T5 

T$T6 

T$$KHG= 

T$$MIN= 

V$$CIR= 

U.BATT 

W.BFPD 

U.BHVR 

U.BLGH 

U.BLPD 

W.BLVR 

W.BNPD 

U.BOFF 

U.BPCB 

W.BSIZ 

X$$DBT= 

ZF.C0U= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.HFL= 

ZF.MTH= 

ZF.MUX- 

ZF.PSE= 

ZF.SLI= 

ZF.Tir,= 

ZF.X3P= 

ZS.ASN= 


000006 
000012 
000045 
000012 
000012 
000012 
000046 
000002 
000024 
000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000000 
000000 
001000 
000006 
000014 
OOOOOt 
000020 
000016 
000002 
000015 
000012 
000000 
000010 
000000 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
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MACRO  CALLS  AND  LOCAL  DATA 


Page  5-1 
;  OFFSETS  INTO  SCRATCH  BUFFER  (L$SCR)  FOR  DMC  BASE  TABLE  COUNTERS 


000124 
000000 

onoooi 

000002 
000003 
OOOOOA 
000005 
000006 

000000 


000000 


ASECT 

=0 

B$5: 

BLK8   1 

B$6: 

BLKB   1 

B$7: 

BLKB   1 

B$10: 

BLKB   1 

B$  1: 

BLKB   1 

8$- 2: 

BLKB   1 

B$7S10: 

BLKB   1 

EVEN 

PSECT 

RASE 

TABLE 

+ 

5 

RASE 

TABLE 

+ 

6 

RASE 

TABLE 

+ 

1 

RASE 

TABLE 

+ 

10 

RASE 

TABLE 

+ 

11 

BASE 

TABLE 

+ 

M 

SUM  OF  BASE  TABLE  7  AND  10 
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MACRO  CALLS  AND  LOCAL  DATA 


55 

56 

57 

58 

59 

60 

61  000000 

62 

65  000000 


000000 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000000 


000020 


.SBTTl  MACRO  CALLS  AND  LOCAL  DATA 
•  MACRO  LIBRARY  CALLS 

.MCALL  MANDF$,CIRCX$ 

MANDFS  ;  DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

CIRCXS  LIST 
;  CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 

=  0 

LiNLEN 


16. 


MAXIMUM  NAME  LENGTH 


The  offsets  LSNAM  to  L$PDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM 
LSDDM 
LSCTL 
LSUNT 
LSPVC 

LSSCN 

LSTRB 

LSPFG 

LSSLT 

LSNXT 

LSSNM 

LSTPT 

LSTNM 

LSCTB 

LSCHN 

LSPDV 

LSMSG 

LSBUF 

LSOPT 

LSTYP 

lSFLG 

LSSLEN 

LSPRO: 

LSMTYP 

LSTSZ 

LSLTM 

LSFLX 

LSSCR 

LSADJ 

LSNOD 

LSCOU 

LSPLB 

LSPAR 

LSSYL 

LSLEN 


.8LKW  1 
.BLKB  1 
.BLKB  1 
.8LKW  1 
.  =  O+LSNLEN 
.BLKB   LSNLEN 


.BLKB 
.BLKB 
.BLKW 
.BLKI. 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.8LKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKB 


.BLKB   1 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.PSECT 


DEVICE  NAME 

CONTROLLER  NUMBER 

UNIT  NUMBER 
,  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
...  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circu  ts 
listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  r'jmber 
LENGTH  OF  CONTEXT  AREA 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  CICHIN  -  CIRCUIT  CHANGE  PARAMETERS  INITIALIZE 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983.  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  6  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION; 

NETWORK  MANAGEMENT  -  CIRCUIT  CHANGE  PARAMETERS  INITIALIZE  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     22-JUN-81 

DECNET-llfVS   V3.1 
DECNET-11M-PLUS   VI. 1 

2.00  16-APR-82 

DELNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


CICHIN  -  CIRCUIT  CHANGE 
PARSE  SUB-EXPRESSIONS 


^fll 

000000 

>,?,? 

SH^ 

WA 

WS 

000000 

•.hh 

000000 

18/ 

000000 

^HH 

000000 

1H9 

WO 

W1 

Wr- 

000000 

W^ 

000000 

WA 

000000 

«S 

000000 

«fi 

"iy*- 

WH 

WV 

000000 

A  no 

000000 

A01 

000000 

AOr* 

000000 

AO^ 

AOA 

AOS 

A06 

000000 

AO/ 

000000 

AOK 

000000 

A09 

000000 

AH) 

All 

AV 

AH 

000000 

A1A 

000000 

AIS 

000000 

Alft 

000000 

AV 

000000 

A1H 

000000 

Aiy 

A^() 

A^l 

A?? 

000000 

Ar'^ 

000000 

A^A 

000000 

AP'S 

000000 

Ar'h 

a;^/ 

a;j'i 

APS 

000000 

AV) 

c.-^ooo 

Ail 

000000 

Ai? 

000000 

A-ii 

A-!A 

AiS 

Aifi 

000000 

Ai/ 

000000 
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SNATCH  1,$EXIT,INIACT 
DEAD  THRESHOLD  SUB-EXPRESSION 

FIELDS  STHI 

SPARAM  MPSTH1 , , PAREND  ,MPSTH1 ,  HSPAR 
FIELDS 

SMATCH  1,SEXIT,TH1ACT 

DYING  THRESHOLD  SUB-EXPRESSIOf: 

FIELDS  STH2 

SPARAM  MP$TH2 , , PAREND ,MPSTH2 , HSPAR 
FIELDS 

SMATCH  1,SEX1T,TH2ACT 

INACTIVE  THRESHOLD  SUB-EXPRESSION 

FIELDS  STH3 

SPARAM  MPSTH3, .PAREND, MPSTH3,+LSPAR 
FIELDS 

SMATCH  1,SEXIT,TH3ACT 

MAXIMUM  BLOCKS  SUB-EXPRESSION 

FIELDS  SMXB 

SPARAM  MPSMXB, .PAREND, MPSMXB.+LSPAR 
FIELDS 

SMATCH  1,$EXIT,MXBACT 

Blocking  subexpression 

FIELDS  S8LK 

SPARAM  MPS8LK, , PAREND, MPSBLK.+LSPAR 
FIELDS 

SBYTE  MBSENA,SEXIT,,MBSENA,+LSBLK 

SBYTE  HB$DIS,SEXIT,,MBSDIS,+LS8LK 

SNULL  .PVAERR 

Channel  subexpression 

FIELDS  SCHN 

SPARAM  MPSCHN.. PAREND, MPSCHN.+LSPAR 
FIEi.DS 

SMATCH  2,SEX1T,CHNACT 

Maximum  data  subexpression 

FIELDS  SCMB 

SPARAM  MPSCMB,, PAREND, MPSCMB.+LSPAR 
FIELDS 

SMATCH  2,SEXIT.CMBACT 

Usage  subexpression 

FIELDS  SCU5 
SPARAM  MPSCUS,, PAREND. MPSCUS,*L$PAR 
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Page  18 


818 
819 
820 
821 
822 
823 
82A 
825 
826 
827 
828 
829 
830 
851 
852 
855 
85-; 
855 


000570  016701  OOOOOOG 

000574  11216'.  000226 

000600  11116^;  000227 

00060A  000754 


.SBTTL  HTMACT  -  HELLO  TIMER  ACTION  ROUTINE 


HTMACT  -  HELLO  TIMER  ACTION  ROUTINE 

INPUTS: 

.MSGPT  =  POINTER  TO  HELLO  TIMER 
R4      =  POINTER  TO  CONTEXT  AREA 


OUTPUTS: 


L$HTM(R4)  ^  SAVED  HELLO  TIMER 


HTMACT;  MOV 
M0V8 
M0V8 
BR 


. MSGPT, Rl 
(R1)+,LtHTM(R4) 
(R1),L$HTMt1(R4) 
PAREND 


;  POINT  TO  HELLO  TIMER 
;  SAVE  LOW  BYTE 
;  AND  HIGH  BYTE 
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1110 
1111 
1112 
1113 
11K 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 

1124  001234 

1125  001240 

1126  001244 


.S8TTL  XMTACT  -  TRANSMIT  TIMER  ACTION  ROUTINE 

XMTACT  -  TRANSMIT  TIMER  ACTION  ROUTINE 

INPUTS: 

.MSGPT  -  POIN'CR  TO  2  BYTE  TRANSMIT  UMER 
R4     -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

L$XMT(R4)  -  TRANSMIT  TIMER  VALUE 


010164  000120 


XMTACT:  CALL    CHKDMP 

MOV     R1,L$XMT(R4) 
RETURN 


;  CHECK  FOR  DMP 

;  SAVE  TRANSMIT  TIMER  VALUE 
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L 
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7 
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2 

H 
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N 

2 

I 

7 
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B 

3 

J 

7 
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4 

L 

8 
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4 

M 

8 
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F 

4 

N 

8 
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G 

4 

B 

9 

J  13 

H 

4 

C 

9 
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I 

4 

D 

9 

L  13 

J 

4 

E 

9 

M  13 

K 

4 

F 

9 

N  13 

L 

4 

C 

9 

B  14 

M 

4 

H 

9 

C  14 

N 

4 

I 

9 

D  14 

B 

5 

J 

9 

E  14 

C 

5 

K 

9 

F  14 

D 

5 

L 

9 

G  14 

E 

5  ARREIN 

M 

9 

H  14 

F 

5 

N 

9 

I  14 

G 

5 

B 

TO 

J  14 

H 

5 

C 

10 

K  14 

I 

5 

D 

10 

L  14 

CHKCIR 


CHKLIN 


CJCHJN 


M 

14 

N 

14 

fl 

IS 

r 

IS 

D 

IS 

F 

IS 

F 

IS 

G 

IS 

H 

IS 

I 

IS 

J 

IS 

K 

IS 

1 

IS 

H 

IS 

N 

IS 

R 

1ft 

C 

1ft 

D 

16 

F 

1ft 

F 

1ft 

G 

1ft 

H 

1ft 

I 

1ft 

J 

1ft 

K 

1ft 

L 

16 

M  16 


CICHIN  -  CIRCI 
Symbol  table 
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L$HXR 

00025- 

MAXCHN= 

007777 

MCSNOR 

000000 

MDSDMC 

000014 

MESCIR 

000003 

$MXW 

000252 

MBSDIS 

000001 

HCSNPF 

001616 

MDSDMF 

000046 

MESEXA 

999999 

"$NAH 

OOOOCO 

MBS'^NA 

000000 

MCSNPR 

001630 

MDSDHP 

9995?^ 

MESEXE 

000200 

$NLEN= 

000020 

HBSFUL 

000002 

MCSNRE 

001200 

MDSDHR 

000050 

MESLIN 

000001 

L$NHT 

000116 

MB$niX 

000002 

MCSNRT 

001166 

MDSDMV 

000042 

HESLOG 

000002 

L$NT1 

000256 

MdSONE 

000001 

MCSNVR 

001642 

MD$DN 

000016 

ME SHOD 

000004 

LSNTL 

000134 

MBSRXO 

000001 

MC$P08 

OOOOCO 

MD$DP 

999999 

MESNOD 

000000 

LtNUM 

000240 

MBSTXO 

000000 

MC$P11 

000001 

MDSDPV 

000044 

MESNON 

177777 

LtNUML 

000236 

KBSZER 

000000 

HCSRFL 

002046 

MDSDO 

000006 

MESOBJ 

000007 

LSNXT 

000044 

MCSBAB 

006073 

MCSSBU 

002051 

MDSDTE 

000024 

ME$0B2 

000004 

L$OPT 

000062 

MCSBID 

001765 

MCSSFL 

002044 

MD$DU 

000002 

MESPRP 

000005 

LSOWN 

000102 

MCSBMC 

001767 

MCSSVC 

000012 

MDSDUP 

000012 

MESSYS 

000006 

LtPAR 

000072 

MCSBSC 

001766 

NCSSYL 

000036 

HDSDV 

000026 

HE.BLO 

177744 

LSPDV 

000055 

MCSCAC 

001442 

MCSSYR 

000050 

MDSDZ 

000030 

ME. CON 

17775? 

LSPFG 

000041 

HCSCAP 

001440 

MCSSYS 

000024 

MDSFUL 

000000 

ME.CST 

177765 

L$PLT 

000112 

HCSCCL 

001445 

MCSSYZ 

000000 

MDSHAL 

000001 

ME.DIS 

177755 

LIPRO 

0C0075 

MCSCDC 

002045 

MCSTBR 

001140 

MDSHEL 

000002 

ME . DON 

177600 

LSPVC 

000004 

MCSCDP 

001441 

MCSTBS 

001141 

MDSKCP 

09091? 

'•iE.FCO 

177762 

LSRET 

000256 

MCSC-'f 

001465 

MCSTDR 

002053 

MDSKDP 

000034 

ME.FIO 

177756 

LSSCN 

000020 

HCSCLD 

001464 

MCSTIH 

000000 

MDSKDZ 

000036 

:iE.FOP 

177763 

LISCR 

000165 

MCSCOU 

100000 

MCSTYP 

007777 

HDIKL 

000040 

ME. FOR 

177776 

LtSER 

000230 

MCSCTL 

001454 

MCSUBU 

002052 

HDSKHX 

000054 

ME. FUN 

177777 

LSSLEN 

000074 

MCSCTR 

001452 

MCSUFD 

002047 

MDSKMY 

000052 

ME . GRO 

177745 

LSSlT 

000042 

MCSCTS 

001453 

HCSUMR 

001132 

MDSLEN 

000050 

ME.HAR 

177750 

L$5NM 

000046 

HCSDOV 

002050 

MCSUMS 

001133 

HDSPCL 

000011 

ME.IID 

177767 

LtSTA 

000100 

MCSLBR 

001750 

MCSVAX 

000003 

MDSGNA 

000005 

ME.LCO 

177766 

LSTAD 

000103 

MCSLBS 

001751 

NCSUID 

060000 

MDSUNA 

000001 

ME.LPR 

177757 

LSTHl 

000130 

MCSLDI 

001774 

ncsuiH 

040000 

MDSUi: 

000002 

ME.MPR 

177773 

1  $TH2 

000131 

MCSLDO 

001775 

MCSWIL 

020000 

MD.ABO 

000017 

ME.MVE 

177>71 

L$TH3 

000132 

MCSLDR 

001762 

MC$W08 

020000 

MD.ACC 

000010 

ME. OPE 

177747 

L$TNH 

000052 

MCSLDS 

001763 

HC$W16 

040000 

HD.AOB 

000016 

ME.PLO 

177751 

LSTPT 

000050 

HCSLLB 

002021 

MC$W32 

06000C 

HD.BOB 

000011 

HE.PMI 

177743 

LSTRB 

000040 

MCSLLP 

002115 

MCSXBR 

00  750 

KD.DIA 

99999^ 

ME.PNA 

177752 

LlTYP 

000063 

MCSLLR 

002007 

MC$X8S 

001751 

MD.DOB 

000015 

HE.PRl 

177775 

LSUNT 

000003 

MCSLOO 

000001 

MCSXCJ 

000322 

MD.DUH 

000002 

ME.PTY 

177772 

LtXCH 

000232 

MCSLRB 

002020 

MCSXCK 

002260 

HD.FAI 

99991J 

ME . PVA 

177760 

tSXMT 

000120 

MCSLRP 

002114 

MCSXCS 

002261 

MD.FNA 

000001 

HE. RES 

177761 

L$$ASG= 

000000 

MCSLRR 

002006 

MCSXDR 

001762 

MD.FOB 

000006 

HE . ROO 

177754 

LS$DRV= 

OOOCOO 

MCSLSI 

002032 

MCSXDS 

001763 

MD.LOA 

000001 

ME.SIZ 

177774 

L$$P11= 

000001 

MCSLST 

002033 

HCSXFR 

002272 

MD.LSH 

000020 

ME. SYS 

177746 

L$t11R= 

000000 

MCSLUP 

006072 

MCSXFS 

002273 

MD.NOB 

000012 

ME.UCO 

177770 

L.COST 

000015 

MCSMAP 

0100C0 

MC$XLJ 

000323 

MD.NON 

]77777 

MFSACT 

177776 

L.CTL 

000012 

MCSMBL 

001764 

MCSXLR 

002330 

MD.PER 

000000 

MFSADD 

000000 

L.CVA 

177776 

HCSMBX 

004420 

MCSXMA 

000310 

HD.RES 

000004 

MFSADJ 

177774 

L.DDM 

000002 

MCtMBY 

001752 

MCSXMC 

002305 

MD.ROB 

999991 

MFSALL 

177775 

L.DDS 

000004 

MCSMPX 

004406 

MCSXMS 

002304 

MD.RSH 

000013 

MFSBYE 

999^99 

L.DLC 

000003 

MCtNAP 

001604 

MCSXNR 

002332 

MD.SDU 

000005 

MFSCHA 

000023 

L.DLM 

000006 

MC$NBR 

001130 

MCSXRC 

002316 

MD.SLO 

000003 

HFSDUM 

000020 

L.DLS 

000010 

MCSNBS 

0C1131 

HCSXRR 

002331 

WD . SNA 

000000 

MFSEVT 

000001 

L.fLG 

oooooc 

MCSNCR 

UC1154 

-  MCSXRS 

002342 

HD.TLO 

000004 

MFSFUP 

000264 

L.KRBA 

000016 

MCSNCS 

001155 

l«IC$020 

000002 

HD.UNA 

99999? 

MFSKNO 

177777 

L.LEN 

-  000022 

MCSNML 

001 27^ 

MD$CI 

000007 

HD.UNR 

000003 

MFSLOA 

9§9§i? 

L.MPf 

C  1022 

MCSNMR 

001142 

MDSCNA 

000003 

MD.UOB 

000007 

MFSLOO 

177775 

L.NMST 

0u0020 

MCtNMS 

001143 

MDSCOU 

000001 

MD.VOL 

000006  • 

MFSREA 

000024 

L.NSTA 

000014 

MCSNND 

001606 

MD$DA 

000010 

MESALI 

000010 

MFSSIG 

177773 

L.OWNR 

000021 

MCSNNU 

001605 

MD$DL 

000004 

ME$AL2 

000003 

HFSSPF 

000302 

L.uN' 

0000^3 

MCSNOP 

001607 

MDSDLV 

000020 

MESARE 

000005 

MFSSYS 

000026 
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CICHIN 

CREATED  BY 

MACRO     ON  29 

-JUN-95   AT 

12:11 

PAGE   9 

SYMBOL 

ROSS   REFERENCE 

CREF        04.00 

SYMBOL 

VALUE 

REFERENCES 

ZF.X3P 

=  000000 

#5-65 

ZS.ASN 

=   1C0000 

#5-65 

ZS.BSY 

=  KOOOO 

#5-65 

Z.AVL 

OOOGU 

#5-65 

Z.DAT 

000016 

#5-65 

Z.DSP 

000000 

#5-65 

5-65 

Z.FLG 

000010 

#5-65 

13-695 

Z.LEN 

=  000016 

#5-65 

Z.LLN 

000006 

#5-65 

Z.MAP 

000020 

#5-65 

Z.NAM 

000004 

#5-65 

Z.PCB 

000012 

#5-65 

Z.SCH 

00000" 

#5-65 

$CAT5 

r     ****** 

GX 

13-676 

SEXIT 

=  000000 

#8-82 

SHEADR 

-    ****** 

GX 

15-697 

SRONLY 

r     ****** 

8-82 

SSAVAL 

r     ****** 

GX 

13-653 

13-662 

22-925 

23-951 

SSAVRG 

r     ****** 

GX 

10-529 

.MSGCN 

-     ****** 

GX 

19-861 

.MSGNM 

-     ****** 

GX 

11-608 

14-721 

17-813 

.MSGPT 

r     ****** 

GX 

12-630 
24-976 

13-654 
25-993 

13-663 
26-1010 

18-832 

.MSGST 

=      **»:*** 

GX 

15-765 

.NPAR5 

-      ****** 

GX 

10-565 

• 

19-860 


20-885 


21-905 


22-926 


23-952 


CKHIN 
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130 
131 
152 
133 
13A 
135 
136 
137 
138 
139 
UO 
K1 
1A2 
U3 
H4 
H5 
K6 
K7 
U8 
1A9 
150 

151  000134 

152  000134 

153  000140 

154  000144 

155  00^^150 

156  00  54 

157  00.160 
158 

159  000166 

160  000170 

161  000174 
162 

163 

164 

165  000176 

166 

167 

168 

169 

170  000202 

171 

172 

173 

174  000204 

175 

176  000204 

177  000212 

178  000214 

179  00022C 

180  000222 

181  000226 

182  000230 
183 

184  000230 

185  000234 

186  000236 


004567 
010364 
005064 
005064 
012700 
016464 

001006 
005764 
001003 


OOOOOOG 

000060 

000072 

000056 

177600 

000064  000070 


000066 


.SBTTL   CICHOP  -  CIRCUIT  CHANGE  PARAMETERS  OPERATE 

••-CICHOP-CIRCUJT  CHANGE  PARAMETERS  OPERATE  ROUTINE 

THIS  ROUTINE  IS  CALLED  '0  PERFORM  THE  CHANGE  CIRCUIT  PARAMETERS 
OPERATIONS  (SET  AND  CLEAR). 

INPUTS: 

R3  =  ADDRESS  OF  INPUT/OUTPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA  (WITH  DATA  SET  UP  FROM  LICHIN) 

OUTPUTS: 

RO  =  NICE  RETURN  CODE 

R2  =  LENGTH  OF  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDRESS  OF  OUTPUT  BUFFER 

C-BIT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 


SAVE  R3-R5 

SAVE  BUFFER  POINTER 

CLEAR  PARAMETER  lYPE 

CLEAR  ERROR  MESSAGE  POINTER 

ASSUME  WE'RE  ALL  DONE 

ANY  WORK  TO  DO? 

BR  IF  YES 

ANY  WORK  TO  DO? 

BR  if  yes 


005764  000076 


001444 


REGISTERS: 

R3,  R4, 

R5  ARE  PRESERVED 

CHOP:: 

JSR 

R5,$SAVRG 

MOV 

R3,L$BUF(R4) 

CLR 

L$PAfi(R4) 

CLR 

L$MSG(R4) 

MOV 

#ME.DON,R0 

MOV 

L$FLG(R4),L$FL2(R4) 

.IF  NDF 

R$$11S 

BNE 

10$ 

TST 

L$FL1(R4) 

BNE 

10$ 

.IF  NDF 

R$$PR0   ;  PRO/DECNET 

TST 

L$FLX(R4) 

.ENDC 

;  NDF  R$$PRO 

.ENDC 

•  NDF  R$$11S 

026427 
001006 
005764 
001003 

103432 


103427 


000050  mm 

000042 


BEQ 

FIND  THE  NEXT 

iO$: 

.IF  NDF 

CMP 

BNE 

TST 

BNE 

CALL 

BCS 


11$: 


12$: 


.ENDC 
CALL 
BCS 
CALL 


^0$ 

CIRCUIT  TO  OPERATE  ON 


R$$11S  %   R$$PRO 

L$TPT(R4),*-1 

11$ 

L$SLI(R4) 

11$ 

$ADPVC 

20$ 


NXTCIR 

20$ 

SETUP 


Any  PSI  work? 


;  BR  IF  NO 


Is  this  a  PVC? 

Branch  if  not  PVC 

Check  this  is  first  time  through 

If  not,  will  not  be  new  circuit 

Create  new  X.25  PVC 

Exit  if  error 


Find  the  next  circuit 

If  carry,  no  mo'-e  circuit:  -  finished 

Setup  for  the  cueration 


C  3 

CICHQP  -  Circuit  Change  Paramet  MACRO  V05.03b  Saturday  29-Jun-85  12:12  Page  9-1 
rirnnp  -  riRfillT  CHAnSf  PARAMETERS  OPERATE  


lICHOP     created  BV  macro  on  29-JUN-85  AT  12:13 
SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CICHOP 

0001 34  RG 

#9-151 

CICHPX 

=  «»*•.*  GX 

9-211 

CLENTL 

=  **»*♦*  GX 

8-98 

12-363 

CLNUP 

000552  R 

10-288 

#12-355 

DISTBL 

000000  R 

#8-83 

9-197 

OISTBl 

000056  R 

#8-111 

9-203 

DSPTCH 

000440  R 

9-198 

9-204 

ESNBR 

000014 

#6-64 

ESNBS 

000020 

#6-64 

E$NCR 

000034 

#6-64 

EtNCS 

000036 

#6-64 

ESNIC 

000044 

#6-64 

ESNLEN 

000050 

#6-64 

ESNLLA 

000012 

#6-64 

ESNLNK 

000000 

#6-64 

ESNML 

000040 

#6-64 

ESNMR 

000024 

#6-64 

ESNMS 

000030 

#6-64 

ESNNOD 

000002 

#6-64 

EINRT 

000042 

#6-64 

ESNRTP 

000005 

#f-64 

ESNSEG 

000010 

#6-64 

ESNTIM 

000046 

#6-64 

ESNUSE 

000004 

#6-64 

ESSTRT 

000006 

#6-6'. 

FMTLIN 

=  ♦♦***»  GX 

9-254 

FNDCTR 

000622  RG 

#13-390 

I$$AS 

r  ****** 

6-67 

KI5AR6 

=  ,**»**  GX 

•13-409 

•13-415 

LCSNTL 

=  000200 

#7-73 

8-98 

LCSOWN 

=  000400 

#7-73 

LFSMLT 

=  040000 

#7-73 

LFSREA 

=  OOOCO'i 

#7-73 

LFSSEG 

=  lOwOOO 

#7-73 

LFSSKF 

=  000004 

#7-73 

LF$VR2 

=   000010 

#7-73 

LFSZER 

=  000002 

#7-73 

LF.ACT 

=  10000C 

#6-68 

LF.BRO 

=  000400 

#6-68 

LF.BWT 

=  000007 

#6-68 

LF.ENA 

=  002000 

#6-68 

LF.LPB 

=  001000 

#6-63 

LF.MDC 

=  000100 

#6-68 

LF.MFL 

=  004000 

#6-68 

LF.MTP 

=  000020 

#6-68 

LF.PAC 

=  oooiuo 

#6-68 

LF.RDY 

=  040000 

#6-68 

11-325 

LF.RE^ 

=  010000 

#6-68 

LF.SER 

=  OOOC40 

#6-68 

LF.TIM 

=  000010 

#6-68 

LF.UNL 

=  020000 

#0-68 

L-.X2P 

=  000000 

#6-68 

#10-277 


10-284 


10-286 


CICHOP 
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8A 
85 
86  000000 


000004 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

croo2C 
OOOOAO 
0000A1 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000070 
000072 
000074 
000075 
000075 
000076 
000100 
000101 
000102 
0C0103 
000104 
000105 
000106 
000110 
000112 
000114 
000116 
000120 
000122 
COG'23 
000124 


000020 


.SBTTL  Context  area  def 

CICCXS  LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 

.M.ECT 

.  =  0 

LSNLEN  =  16. 


MAXIMUM  NAME  LENGTH 


The  offsets  LjNAM  to  L$PDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


L$NAM 
LSDDM 
LSCTL 
LSIJNT 
LSPVC 

L$s.;;j 

LSTRB 

LSPFG 

LSSLT 

L$NXT 

L$SNM 

LSTPT 

L$TNM 

L$CTB 

L$CHN 

LSPDV 

L$MSG 

L$BUF 

L$0PT 

L$TYP 

LSFLG 

L$FL1 

L$FL2 

L$FAR 

LSSLEN 

LSPRO: 

LSMTYP 

LSFLX 

LSSTA 

LSCOS 

L$OWN 

L$TAD 

L$ACT 

LSDEA 

L$DDT 

L$DLT 

L$PLT 

L$BBT 

LINMT 

L$XMT 

LSBSA 

L$BSD 

L$BSI 


.BLKW 

.BLKB 

.BLK8 

.BLKW 

.  =  0+L 

.BLKB 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLK8 

.BLKB 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.81  KB 
.OLKW 
.SlKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.SLK8 
.BLKB 
.8LK8 


$NL 


EN 
LSNLEN 


SPACE 


DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 
3RD  WORD  OF  PVC  NAME 
OR  EXPANDED  CIRCUIT  NAME 
CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. . .  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
CIRCUIT-ID  FORMAT  TYPE 
FLAG  WORD  (FOR  COMMAND) 
FLAG  WORD  (FOR  COMMAND) 
FLAG  WORD  (FOR  CURRENT  CIRCUIT) 
CURRENT  PARAMETER  TYPE 
Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Flags  word  for  X.25  circuit  commands 
CIRCUIT  STATE 
CIRCUIT  COST 

CIRCUIT  OWNER  (PDV  INDEX) 
TRIBUTARY  ADDRESS 
MULTIPOINT  ACTIVE  RATIO 
MULTIPOINT  DEAD  RATIO 
T'MP  DEAD  TIMFR 
DMP  DELAY  TIMER 
DMP  POLL  TIMER 
DMP  BABBLE  TIMER 
DMP  NORMAL  TIMER 
DMP  TRANSMII  TIMER 
DMP  ACTIVE  BASE 
DMP  DYING  BASE 
DMP  INACTIVE  BASE 
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SETSTA  -   SET    A  NEW  CIRCUIT   STATE 


'.3C   001322 

A31   001326 

432  001 53u 

A33 

43A  001332 

43?  001334 

436  001340 

437  001342 

438  001346 

439  001350 
4^  001356 
4' '    001360 

442  001366 

443  001370 

444  001374 

445  001376 

446  001402 

447  00;h04 
4-.?  001406 
44-  001410 

450  001416 

451  001420 
4>2  001422 
453 

454  001424 

455 

456 

457  001424 

458 

459 

460 

461  001432 

462  001436 
463 

464 
'•65 
'•'■'. 
ko7 

468  001440 

469  001444 
4  70 

471 
472 
473 
474 
475 
476 

477  001446 

478  001450 

479  001454 

480  001456 

481  001460 

482  001464 
483 

484 
485 
486 


000443 

005005 
156305 
006305 
067705 
011505 
032765 
001761 
032765 
001414 
062705 
005046 
156316 
006316 
006316 
062605 
132765 
001741 

000442 


177776 
OOOOOOG 

100000  000000 
000420  000000 
000022 
M7777 

000200  000000 


95$: 


100$: 


012764  000074'  000056 


0127j0 
000434 


103010 


\777k7 


105$: 

110$: 

120$: 


SOB 

R1,90$ 

RESRG 

R5 

BR 

130$ 

CLR 

R5 

BISB 

-2(R3),R5 

ASL 

R5 

ADD 

aSLTMA,R5 

MOV 

(R5),R5 

sr 

#LP.ACr,L.FLG(R5) 

BEQ 

95$ 

BIT 

#LF.6R01LF.MTP,L.FLG(R5), 

BEQ 

105* 

ADD 

*L.MPF,R5 

CLR 

-(SP) 

BISB 

-1(R3),(SP) 

ASL 

(SP) 

ASL 

(SP) 

ADD 

(SP)+,R5 

BITS 

*SF.ACT,S.FLG(R5) 

BEQ 

95$ 

RESRG 

R5 

BR 

170$ 

.IF  '\iDF  R$$PRO  ;  PRO/DECN'LT 
MOV     #N0DMSG,L$MSG(R4) 
.ENDC   ;  NDF  R$$PR0 


MOV 
BR 


#ME.0PE,R0 
170$ 


.IF  NDF  R$$115 
TRY  TO  ASSIGN  LUN  TO  DLX 


130$: 


CALL 

BCC 

.ENDC 


DLXLUN 
140$ 


IF  ASSIGN  FAILED,  NO  DLX  IN  SYSTEM  - 
.IF  DF  R$$11S 


130$: 


103425 
1'6412 
000422 


000100 


.ENDC 

SAVRG 

<R2> 

CALL 

TWKLIN 

RESRG 

<R2> 

BCS 

180$ 

M0V8 

LiSTA;R4),(R?) 

BR 

180$ 

.IF  NDF  R$$11S 
DISPATCH  BASED  ON  FUNCTION  REQUESTS 


Else,  continue  to  check  remaining  channels 

Restore  R5  and 

Ok  to  turn  circuit  on 

Clear  register 

Get  system  line  number 

Get  word  offset 

Get  address  of  SLT  pointer    ;  RJK08 

Point  to  SLT 

Is  line  active  ? 

If  EQ,  no  -  continue  searching  list 

Is  this  multipoint  or  broadcast? 

BR  if  yes  -  error 

Point  to  station  table 

Get  station  number 

(jet  station  number 

Multiply  station  number  by  4  (S.LEN) 

index  into  station  tables 
Is  circuit  active? 
BR  if  no  -  continue 
Else,  restore  R5  and 
return  with  error 


ELSE,  SET  ERROR  MESSAGE 


SAY  OPERATION  FAILED 
AND  RETURN 


;  ASSIGN  A  LUN  TO  NX: 

;  IF  CC,  DLX  FOUND,  USE  QIC  TO  CHANGE  STATE 

TRY  TO  SET  STATE  BY  POKING 


SAVE  R2 

ELSE,  "TWEAK"  THE  STATE  OURSELVES 

RESTORE  R2 

IF  CS,  ERROR 

SET  NEW  MANAGEMENT  STATE 

AND  RETURN 
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SETCOS  -   SET    COST   TOR    A   CIRCUIT 


890  OO;.    70 

891  002^72 

892  002776 

893  003002 

894  003006 

895  003012 

896  003016 
897 

898  003020 

899  003022 
900 

901  003024 

902  003030 

903  003032 
904 

905 
906 

907  003036 

908  0030A2 
909 

910  003046 

911  003050 

912  003054 

913  003056 

914  003062 
915 

916 
917 

918  003064 

919  003072 

920  003100 

921  003104 

922  003106 

923  003-:i2 

924  003116 

925  003120 

926  003124 
927 

928  003126 

929  003130 


001457 
116401 
116403 


000054 
000055 


012702  114224 
103442 


120203 
001040 

067702 
011202 
016202 


016204 
016205 

012500 
126001 
001403 

000420 


152760 
152760 
016200 
001402 

016200 
001402 


000261 


OOOOOOG 
000016 


000016 
000020 


000004 


BEQ 

wove 
Move 

SWSTKl 
MOV 
CALL 
BCS 

CMPB 
BNE 

ADD 
MOV 
MOV 


IOCS 

L$CHN(R4),R1 

L$PDV(R4),H3 

100$ 

#»RXPT,R2 

aPDVlD 

70$ 

R2,R3 
70$ 

aPDVTA.R2 

(R2),r5 

2.DAT(R2),R2 


RJK08 


LOCATE  PLD  FOR  LINE 


40$: 


MOV 
MOV 

MOV 

CMPB 

BEQ 

SOB 

BR 


N$PLD(h"' ,R4 
N$PLD+2(R2),R5 

(R5)+,R0 

P$CHN(R0),R1 

50$ 

R4,40$ 

70$ 


IF  EQ,  YES  -  DONE 

GET  THE  CHANNEL  NUMBER 

GET  THE  PDV  ASSIGNED 

ENTER  SYSTEM  STATE 

GET  XPT'S  PDV 

ifcS,  NOT  THERE  -  RETURN 


ELSE  IS  CIRCUIT  ASSIGNED  TO  XPT  ? 
IF  NE,  NO  -  SKIP  TASK  ACMVATION 

POINT  TO  XPT  DD8  ADDRESS     ;  RJK08 
POINT  TO  XPT  DDB 
POINT  TO  DDB 


GET  COUNT  OF  PLDS 

POINT  TO  ADDRESS  Of  FIRST  ONE 

POINT  TO  NEXT  PLB 

IS  THIS  THE  CORRECT  PLD  ? 

IF  EQ.  FOUND  IT 

ELSE  KEEP  LOOKING 

RESTORE  MAPPING,  BACK  TO  USER  STATE 


000010  000022 
000010  000023 
000000 


C0C006 


SET  THE  PLD  COST  BIT  AND  START  THE  ROUTING  TASK  AS  NEEDED 


50$: 

60$: 
70$: 


BISB 

BISB 

MOV 

BEQ 

CALL 

MOV 

BEQ 

CALL 

RETURN 


#PR$LCC,P$STA1(R0) 

#PR$LCC,P$STA2(R0) 

N$RT1(R2),R0 

60$ 

aEXRQN 

N$hI2(R2),R0 

70$ 

aEXRQN 


90$:     SEC 

100$:    RETURN 


LEVEL  1  LINE  COST  CHANGED 
DITTO  FOR  LEVEL  2 
POINT  TO  LEVEL  1  ROUTER  TCB 
IF  EQ,  TASK  NOT  PRESENT 
ELSE  UNSTOP  AND  ACTIVATE  IT 
POINT  TO  LEVEL  2  ROUTER  TCB 
IF  EQ,  NO  LEVEL  2  ROUTING  TASK 
ELSE  UNSTO°  AND  ACTIVATE  IT 
BACK  TO  USER  STATE  AND  RETURN 

RETURN  FAILURE 
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SVUBOL  CROSS  REFERENCE 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

BBTT8L 

000120 

R 

#8-130 

22-1018 

BSATBL 

000156 

R 

#8-133 

22-1027 

BSD^BL 

000170 

R 

#8-134 

22-1030 

BSITBL 

000202 

R 

#8-135 

22-1033 

CCBGT 

-   *♦*■*** 

GX 

18-742 

19-793 

CLENTL 

000A10 

RG 

#10-198 

C.FNC 

000010 

•18-748 

•19-799 

C.LiN 

000006 

♦18-745 

•19-796 

C.NSP 

000004 

•18-746 

•19-797 

C.STA 

000007 

*18-744 

■19-795 

C.ST5 

000012 

•18-747 

•19-798 

DEALUN 

r  ****** 

6X 

13-387 

DECPT 

::  ****** 

GX 

20-888 

DLXLUN 

=  ****** 

6X 

13-468 

21-968 

DLXQIO 

=  ****** 

GX 

14-558 

14-564     15-626     15-632     16-667 

21-993 

DMPSET 

000424 

R 

22-1019 
22-1046 

22-1022    22-1025    22-1028    22-1031 
22-1049    22-1052    22-1055   #23-1076 

22-1034 

DSNM 

000060 

20-889 

EXRQN 

~      ir  ***** 

GX 

20-922 

20-925 

ESNBR 

000014 

#5-68 

ESNBS 

000020 

#5-68 

'iSNCR 

000034 

#5-68 

ESNCS 

000036 

#5-68 

ESNIC 

000044 

#5-6S 

ESNLEN 

000050 

#■^-68 

ESNLLA 

000012 

#5-68 

ESI^LNK 

OOOCjO 

#5-68 

ESNML 

000040 

#5-68 

E$NMR 

000024 

#5-68 

E$NMS 

000030 

#5-68 

ESNNOD 

000002 

#5-68 

E$NRl 

000042 

#5-68 

ESNRTP 

000005 

#5-68 

ESNSEG 

000010 

#5-68 

EINTIM 

000046 

#5-68 

ESN'JSE 

00C004 

#5-68 

ESSTRT 

000006 

#5-68 

FC.CTL 

=  000006 

18-748 

19-799 

FNDCTR 

-   ****** 

GX 

12-299 

FS.STP 

=  002000 

19-799 

FS.STR 

=  001000 

18-748 

HEADR 

-   ****** 

GX 

13-403 

H.LUN 

000076 

13-404 

INATBl 

000214 

R 

#8-136 

22-1036 

INDTBL 

000226 

R 

#8-137 

22-1039 

INITBL 

000240 

R 

#8-138 

22-1042 

INSMSG 

000000 

R 

#7-98 

11-244 

I$$AS 

-  ****** 

5-72 

<ISAR6 

r  ****** 

GX 

12-298 

•12-304 

LC$NTL 

r  000200 

#6-86 

LCSOWN 

=  000400 

#6-86 

LFSMLT 

=  040000 

#6-86 

22-1037 


22-1040    22-1043 


CICHPD 
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5^ 

SA 

SS 

Sft 

S/ 

SH 

S9 

60 

M 

h? 

f,', 

M 

6S 

ft6 

ft/ 

000000 

68 

000000 

69 

ooooco 

(-0 

000000 

n 

oooooc 

/? 

000000 

n 

000000 

/I, 

000000 

/S 

/6 

// 

7H 

n 

«0 

81 

H^ 

H'i 

84 

S-) 

86 

8/ 

88 

89 

000000 

90 

91 

•^? 

9^; 

94 

000002 

9S 

OOOOOA 

96 

000006 

97 

000010 

98 

000012 

99 

oooou 

100 

000016 

B  9 

v05.03b  Saturday  29-Jun-85  12:U  Page  5 

.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
;  MACRO  LIBRARV  CALLS 


.MCALL 
.MCALL 
■.MCALL 
.MCALL 
.MCALL 
.MCALL 


BFFDFS 
CDBDFS 
CTRDFS 
MANDFS 
PHBDFS 
PLBDFI 
PVCDFS 
SLTDFS 
SVCDFS 
XCBDFS 

.MACRO 

.IF  N8 

.WORD 

.WORD 

.WORD 

.IFF 

.WORD 

.ENDC 

.ENDH 


SAVRG.RESRG 
BFFDFS, CDBDFS 

CEACCS,CTRDF$,MANDFS, PHBDFS 
PLBDFS, PVCDFS. SLTDFS, SVCDFS, XCBDFS 
MAP,BIAS,RETC,SAVMAP,RESmP 
CICCX$,CALL,CALLR,CALLX 


PSV  buffer  definitions 

PSV  Circuit  Database  definitions 

Define  counter  block  offsets 

Define  network  management  symbols 

Define  PSI  home  block  offsets 

Define  PLB  symbols  (DIM  flags) 

Define  PVC  offsets  and  rymbols 

Def  ;ne  SLT  offsets 

Define  SVC  offsets 

Define  XCB  offsets  and  symbols 

PARMAP  FLAG,SOURC',SLEN,SCALC,CBOFF,CBLEN,CBCALC 

FLAG 

FLAG 

SLEN.CBLEN 

SCALCCBCALC, SOURCE, CBOFF 

-1 


Buffer  allocation  overhead  (for  SXLDBGT,  SXLDBRT  routines) 
SXLBOV  =  0 

Offsets  for  registers  saued  by  SSAVAL 


RSRO 

=  d 

RSR1 

=  4 

RSR2 

=  6 

R$R3 

=  10 

RSR'; 

=  12 

RSR5 

=  ]4 

RSPC 

=  16 
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SETLCT   -   SET    COUNTER    TIMER 


373 
374 
375 
376 
377 
378 
379 
380 
381 
332 
383 
38A 
385 

386  001070 

387  001076 

388  001100 
389 

390  001102 

391  001106 

392  001112 
593  001124 

394  0G1126 

395  001132 

396  001134 

397  001140 

398  001144 

399  001146 

400  001150 

401  001160 

402  001170 

403  001176 

404  001202 
405 

406  001204 

407  001210 

408  001216 

409  001220 


022764 
001042 
000241 


005001 
156001 
010100 
017701 
016101 
006300 
060001 


177777  000050 


000014 


.S8TTL      SETLCT   -   SET   C0Ur>ITER    TIMER 


SETLCT   -   SET    COUNTER   TIMER 
CLELCT   -   CLEAR   COUNTER    TIMER 

INPUTS: 

R4  -  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

COUNTER  TIMER  UPDATED 


SETLCT:  CMP 
BNE 
CLC 


OOOOOOG 
000020 


016461   000224  000060 


01270C 
012764 
000261 


177752         10$: 
000156  000072 

20$: 


SWSTKS 

SAVMAP 

CEACC$ 

CLR 

BIS8 

MOV 

MOV 

MOV 

A3L 

ADD 

CEACC$ 

CEACC$ 

MOV 

RESMAP 

RETURN 

MOV 
MOV 
SEC 
RETURN 


#-1,L$TPT(R4) 
10$ 


20$ 


L$SLT(R4),R0 

R1 

C$P0RT(R0),R1 

Rl.RO 

aPSIPT,R1 

H$PT8(R1),R1 

RO 

R0,R1 

R1 

(R1),R1 

L$LCT(R4),X$CTIM(R1) 


#ME.PNA,RO 
#MP$LCT,L$PAR(R4) 


IS  THIS  A  PVC? 
BR  IF  NO 
INDICATE  SUCCESS 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  MAPPED  ADDRESS  OF  PVC  NAME  BLOCK 

Get  port  number  (NO  sign  extension) 

GET  ADDRESS  OF  PSI  HOME  BLOCK;  RJKOl 

GET  ADDRESS  OF  PORT  TABLE    ;**-1 

CONVERT  TO  WORD  INDEX 

INDEX  INTO  PORT  TABLE 

GET  MAPPED  ADDRESS  OF  ENTRY 

GET  MAPPED  ADDRESS  OF  XCB 

STORE  COUNTER  TIMER  VALUE 

RESTORE  PREVIOUS  MAPPING 


INDICATE  INVALID  PARAMETER 
SET  PARAMETER  NUMBER 
INDICATE  ERROR 
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CKHPX 

CREATED  BY      MAC 

^0     ON  29- 

■JUN-85  AT   12 

15           F 

MACRO  CROSS 

REFERENCE 

( 

MACRO  NAME 

REFERENCES 

BIAS 

#5-61 

CALL 

#5-62 

8-152 

9-195 

10-217 

U-363 

15-390 

15-392 

15-400 

CALLR 

#5-62 

8-150 

8-162 

CALLX 

#5-62 

CEACCS 

#5-59 

15-392 

15-400 

15-401 

CICCXS 

#5-62 

6-104 

CTRDFS 

#5-59 

5-67 

MANDFS 

#5-59 

5-68 

MAP 

#5-61 

10-227 

PARMAP 

#5-76 
7-132 

7-123 

7-124 

7-125 

PHBDFS 

#5-59 

5-69 

PLBDFS 

#5-60 

5-70 

PVCDFS 

#5-60 

5-71 

RESHAP 

#5-61 

10-238 

14-370 

15-403 

RESRG 

#5-57 

RE1C 

#5-61 

14-369 

RETURN 

8-1 7A 
15-409 

'■/-196 
16-421 

9-200 

10-239 

SAVMAP 

#5-61 

10-218 

14-362 

15-391 

SAVRG 

#5-57 

SLTDFS 

#5-60 

5-72 

SVCDFS 

#5-60 

5-73 

SUSTKS 

10-217 

14-361 

15-390 

16-419 

XCBDF$ 

#5-60 

5-74 

B  11 

PAGE   7 

CREF       04.00 


10-220  10-223  10-225  10-228  10-231  14-361 

15-401  16-419 


7-126  7-127  7-128  7-129  7-130  7-131 


10-244  11-298  12-319  13-346  14-371  15-404 


♦*F!LE**ID*»C1RECH 
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336 
337 
338 
339 
340 
341 
3A^ 
343 
34A 
3A5 
346 
347 

348  001064 

349  001064 

350  001070 

351  001074 

352  001100 

353  001102 

354  001106 

355  001110 

356  001114 

357  001116 

358  001122 

359  001126 

360  001130 

361  001134 

362  001136 

363  001142 

364  001146 
3o5 

366  001150 

367  001162 
368 

369 


.SBTTL  FNDPLD  -  Find  physical  link  data  base 

h 

«*-FNDPLD-FIND  PHYSICAL  LINK  DATA  BASE  FOR  A  LINE 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

R2   =   ADDfiESS   OF    PLD   FOR    THE   LINE 

IF    CS,    LINE    IN  NOT   OWNED  BY    TRANSPORT 


FNDPLD; 


012702  114224 


103423 
120264 
001020 
067702 
011202 
016205 
005765 
001410 
116401 
006301 
066501 
011166 
000405 


000055 

OOOOOOG 

000016 
00002C 

000054 

000020 
OOOOOOG 


10$: 
20$: 


SWSTK$ 

MOV 

CALL 

BCS 

CMPB 

BNE 

ADD 

MOV 

MOV 

TST 

BEQ 

Move 

ASL 
ADD 
MOV 

BR 

RETC 
RETURN 


20$ 

#*RXPT,R2 

SPDVID 

10$ 

R2,L$PDV(R4) 

loi 

aPDVTA,R2 

(R2),R2 

Z.DAT(R2),R5 

N$PLDt2(R5) 

10$ 

L$CHN(R4),R1 

R1 

N$PLD+2(R5),R1 

(R1),R$R2(SP) 

20$ 

RO 


.IF  NDF  S$$6AS  &   R$$STR  &  R} '.PRO 


ENTER  SYSTEM  STATE 

SET  XPT'S  NAME  IN  RAD50 

GET  IT'S  PDV  INDEX  ;  RJKIO 

IF  CS,  XPT  NOT  IN  SYSTEM 

OWNED  Bv  XPT  ? 

IF  NE,  NO 

POINT  INTO  PDV  TABLE        ;  Rjy^O 

GET  PDV  ADDRESS 

POINT  TO  XPT'S  DATA  BASE 

HAS  THE  PLB  BEEN  ASSIGNED  YET  ;09 

IF  EQ,  NO.  ;09 

GET  THE  CHANNEL  NUMBER  ASSIGNED 

MAKE  IT  A  WORD  INDEX 

POINT  TO  ADDRESS  OF  PLB 

RETURN  OLB  ADDRESS  IN  SAVED  R2 

RETURN 

SET  USER  C-BIT 
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12:15  Page  21 


919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
93^. 
935 
936 

937  003320 

938  003320 

939  003322 

940  003326 

941  003330 

942  003332 

943  003334 

944  003336 

945  003340 

946  003342 

947  003344 

948  003350 

949  003352 

950  003354 
951 

952 


.S8TTL  SETNAM  -  Set  an  image  name  field 

•♦-SETNAM-SET  AN  IMAGE  NAME  FIELD 

IJIS  ROUTINE  BUILDS  AN  IMAGE  NAME  FIELD,  DELETING  TRAILING 
SPACES. 

INPUTS: 

RO  =  POINTER  TO  6  CHAR  SPACE-FILLED  NAME 
R3  =  ADDRESS  OF  NEXT  BVTE  IN  OUTPUT  BUFFER 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  BYTE  IN  OMTPi'T  BUFFER 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


010302 
112723 
112023 
112023 
112023 
112023 
112023 
112023 
105312 
124327 
001774 
005203 


000001 


SETNAM: 


000007 


000040 


10$: 


MOV 

R3,R2 

Move 

#7,(R3)*- 

M0V8 

(ROU 

(R3)t 

MDV8 

(RO)t 

(R3)t 

M0V8 

(R0)  + 

(R3)t 

M0V6 

(R0)  + 

(R3)  + 

MOVB 

(RO)t 

(R3)t 

M0V8 

(R0)  + 

(R3)  + 

DEC8 

(R2) 

CMPB 

-(R3) 

#' 

BEQ 

10$ 

INC 

R3 

RETURN 
.END 


COPY  BUFFER  POINTER 
ASSUME  NAME  IS  6  CHARS 
SET  NAME  IN  BUFFER 


DEC  FIELD  COUNT 
IS  THE  LAST  CHARACTER  A  SPACE 
IF  EQ,  YES  -  DELETE  IT 
ELSE,  SKIP  OVER  IT 
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SYMBOL 

VALUE 

REFERENCES 

13-^80 


17-773 


17-775 


T$LIN 

000000 

#6-63 

17-768 

TSLIPS 

000006 

#6-63 

TSLLD 

000012 

#6-63 

TSLLDC 

000045 

#6-63 

TSLLDL 

000012 

#6-63 

TtLLDO 

000012 

#6-63 

TSLLDS 

000012 

#6-63 

TSLLEN 

000046 

#6-63 

17-770 

TSLOPR 

000002 

#6-63 

TSLTCL 

000024 

#6-63 

TSLTIM 

000026 

#6-63 

TSLTPR 

000014 

#6-63 

TSLTPS 

000020 

#6-63 

:$NAPL 

000004 

#6-63 

TSNFE 

000000 

#6-63 

T$NLEN 

000010 

#6-63 

TSNNUL 

000002 

#6-63 

Tir.'CDL 

000006 

#6-63 

T$NRN1 

000042 

#6-63 

TSNRPL 

000005 

#6-63 

CIRFCH 
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115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

ISO 

131 

132 

133  000002 

134 

135 

136 

137 

138  000002 

139 

KO 

K1 

■il,?   •300006 

K3  OOOOK 

144  000016 

145  000022 
146 

147 
148 

149  000024 

150  000032 

151  000034 

152  000040 

153  000044 

154  000046 

155  000054 

156  000056 

157  000062 

158  000066 

159  000070 

160  000072 

161  000074 

162  000C76 

163  000100 

164  000102 

165  000110 

166  000112 

167  000116 

168  000122 

169  000126 

170  000132 


022764 
001003 

ooi;'';4 


032760 
001440 
116002 
067702 
011202 
03276? 
001427 
012705 
026225 
001002 

000420 
005725 
005715 
001370 
032762 
001402 

016403 
112723 
112723 
105023 


.SBTTL   CiRECO  -  READ/ZERO  LINE  COUNTERS 

•*-ClRECO-READ/ZERO  LINE  COUNTERS 

THIS  ROUTINE  DISPATCHES  TO  A  ROUTINE  TO  READ  OR  ZERO  A  LINE'S 
lOUNTERS  BASED  ON  THE  LINE'S  DLC. 

INPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 


CIRECO:: 

LOOK  FOR  LINE'S  DLC  IN  THE  DLC  TABLE  AND  DISPATCH  TO  THE 
COUNTER  ROUTINE  FOR  THE  DLC. 


016400  000042 


MOV 


L$SLT(R4),R0 


177777  000050 


040000  000000  5$: 

000003 
0"0000G 

001000  000010 

000000' 

000004         10$: 


20$: 


020000  000010 


000060 
177770 
000003 


25$: 


.IF  NDF  R$$11S  8  R$$PRO 


CMP 
BNE 
CALL 
BR 


#-l,L$TPT(R4) 

5$ 

PVCCOU 

30$ 


.ENDC  ;  NDF  R$$11S  &  R$$PRO 

BIT  #LF.RDY,L.FLG(RO) 

BEQ  30$ 

MOVB  L.DLC(R0),R2 

ADD  aPDVTA,R2 

MOV  (R2),R2 

BIT  *ZF.C0U,Z.FLG(R2) 

BEQ  30$ 

MOV  #DLCTBL,R5 

CMP  Z.NAM(R2),(R5)+ 

BNE  20$ 

CALL  a(fi5)t 

BR  30$ 

TST  (R5)+ 

TST  (R5) 

BNE  10$ 

BIT  *ZF.MAN,Z.FLG(R2) 

BEQ  25$ 

CALLR  $PRCCO 

MOV  L$8UF(R4),R3 

MOVB  *ME.UC0,(R3)t 

MOVB  #ME$CIR,(R3)t 

CLR8  (R3)t 


GET  SLT  ADDRESS 


IS  IT  A  PVC  CIRCUIT? 
BR  IF  NO 

READ  PVC  COUNTERS 
AND  EXIT 


IS  THE  LINE  LOADCD  ? 

IF  EQ,  NO  -  SKIP  COUNTERS 

GET  THE  DLC  PDV  INDEX 

POINT  TO  THE  PDV  ADDRESS      ;  R.'<02 

GET  THE  PDV  ADDRESS  ;**■  I 

DOES  THE  DLC  SUPPORT  COUNTERS  ? 

IF  EQ,  NO  -  SKIP  LOOKING 

POINT  TO  START  OF  DLC  TABLE 

IS  THIS  THE  DLC  FOR  THE  LINE  ? 

IF  NE,  NO  -  KEEP  LOOKING 

ELSE,  CALL  DLC  LINE  COUNTER  ROUT'NE 

AND  RETURN 

SKIP  OVER  ADDRESS 

END  OF  TABLE  ? 

IF  NE,  NO 

SUPPORT  FOR  PROCESS  LEVEL  COUNTERS  ? 

IF  EQ,  NO 

ELSE  GET  COUNTERS  FROM  PROCESS 

RESTORE  BUFFER  POINTER 

INDICATE  UNRECOGNIZED  COMPONENT 

STORE  ERROR  DETAIL 

STORE  HIGH  BYTE 
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.IDENT  /V05.00/ 

.ENA8L  LC 

.NLIST  CND 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNAfi. ,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COP'PD 
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MODULE  DESCRIPTION: 
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DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
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2.00  16-APR-82 
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CIRFIN 
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Symbol  table 


MFSTES 

000022 

MPSALB 

000036 

MP$DLI= 

001466 

MFSTRA 

000301 

MPtAMC 

0016A0 

MPSDLT 

002200 

MF$TRI 

000021 

MPSAMH 

001 6A1 

MPSDRO 

001441 

MFtZER 

000025 

MPSANB 

00AA20 

MPSDST 

000454 

MLSALL 

100000 

MPSASB 

00002A 

MPSDTE 

002140 

MLSCLS 

000000 

MPSASC 

00A432 

riP$DTY= 

001452 

MLSCON 

000001 

MPSAUS 

000512 

MPSDUA 

000207 

MLSEXT 

000001 

MPSBBT 

002165 

MPSDUC 

000210 

mlsfil 

000002 

MPSBDF 

00216A 

HPSDUM 

000202 

ML$F1R 

000000 

MPSBFQ 

002121 

MPSDUP 

W.W, 

ML$1NT 

000000 

MPSBLK 

001616 

MP$DVC 

002114 

MLSKNO 

uoooo 

MPSBLO 

001A52 

MPSDWE 

001321 

MLSMON 

000003 

MPSBMX 

002176 

MPSELT 

000157 

MLSSYS 

000002 

MP$8NP 

006330 

MPSETY 

001605 

MLtTOP 

000001 

MPSBRT 

001620 

MPSEVE 

000511 

MNSUNL 

000377 

HPSBSA 

002176 

MPSFNC 

001752 

MOSACC 

000200 

MPSBSD 

002203 

MPSGDT 

'^Hlll 

MOSADD 

000002 

MPSBSI 

002200 

MPSGNM 

002225 

MOSALA 

OOOOOA 

MPSBSP 

006331 

HPSGRO 

002115 

MOSALI 

000000 

MPSBUF 

000170 

MPSGRP 

000541 

MOSCHA 

OOOOAO 

MPSBUP 

00632A 

«P$GTY 

002224 

MOSCIR 

000003 

MPSBUS 

0016A3 

MPSHAD 

001757 

MOSCLE 

000100 

MPSCAC 

001750 

MPSHBT 

002142 

WOSCOU 

000060 

MPSCAS 

001762 

MPSHDD 

000162 

MOSDAC 

000000 

MPICAT 

002210 

MPSHTM 

001612 

MOSDEF 

000000 

MPSCCS 

00A'.O6 

MPSHWA 

002210 

MOSDPR 

cooooo 

MPSCKN 

002141 

MPtlAT 

001322 

MOSEN" 

000017 

MPSCIR 

OOOUA 

WPSIDE 

000144 

MOSEVE 

000100 

MPSCLK 

002131 

MPSIOP 

006527 

MOSINF 

000160 

MPSCLN 

002126 

MP<;iHO 

000215 

MOSINS 

000002 

MPSCLT 

002211 

MPSINA 

002177 

MOtLIN 

000001 

MPSCMB 

002142 

MPSIND 

002204 

MOSlOG 

000001 

MPSCMK 

000537 

MPSINI 

002201 

MOSMIR 

000051 

MPSCMX 

002153 

MPSITl 

000776 

MOSNaM 

000001 

MPSCND 

000310 

HPSLAA 

000231 

MO$MC 

000023 

MPSCNU 

001753 

HPSLAN 

000234 

MOSNOD 

000000 

MPSCOB 

000311 

MPSLAR 

000202 

MOSOFF 

000001 

MPSCON 

002126 

MPSLAS 

000012 

MOSON 

000000 

MPSCOS 

001604 

MP$L8S 

000203 

;',0$OPT 

000001 

MPSCPF 

000230 

MPSLCO 

000226 

rOSPER 

000200 

MPSCPL 

000232 

MPSLCT 

000156 

iHOSPRO 

000002 

MPSCPT 

000226 

MPSLHL 

000232 

»10$PRS 

000001 

MPSCPU 

000161 

MPSLLE 

000227 

MOSREA 

U00200 

MPSCSZ 

001755 

MPSLLO 

004452 

MOSSET 

000000 

MPSCllS 

002127 

MPSLMB 

002152 

MOSSTA 

000020 

MP$CVA 

000540 

MPSLMX 

002200 

"IOSSlIW 

000000 

MPSDAL 

002570 

MPSLNA 

000144 

»1Q$TS»; 

000000 

MP$DCO= 

001464 

MPSLNO 

000233 

MO$;OL 

000000 

MPSDDT 

002177 

NPtLOA 

000170 

MOSZER 

000000 

MPSDEL 

0O1131 

IPSLuG 

004514 

MPSACB 

000012 

MPSDES 

Gi.0:56 

MPSLOO 

000620 

«D$ACC 

00C5K 

MPSDFV 

002^4 

MPSLTM 

001613 

»1P$AC^ 

0OA^26 

MPJOFA 

001320 

MPSLTY 

004553 

»1P$ADD 

000766 

MPSDHO 

001465 

MPSLWI 

00C230 

MPSADj 

00  HAG 

MPSDIA 

000175 

flPSMAC 

004420 

•1P$AD  = 

006325 

MPSDLB 

002571 

MPSMAD 

001630 

MPJACS 

00'.AC6 

MPSDLG 

004521 

MPSMAP 

006325 
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MPSMAR  001635 

MPSPCO 

000024 

MPSHAV  006321 

MPSPCT 

000144 

MPSHBN  001636 

MP$PDT 

002114 

MPSMBR  001637 

MP$PH/ 

000170 

HPSMBU  001642 

MPSPHY 

000012 

MPSMCB  000156 

MP$PLI 

000025 

MPSMCO  001632 

MP$PLN 

00^1^5 

MPSMDE  004421 

HPSPLO 

000012 

HPSMHO  001633 

MP$PMC 

004374 

MPSMLB  000202 

MPSPNT 

002126 

MPSMLK  001306 

MPSPRI 

004411 

MPSMLN  001651 

MPSPRO 

002130 

MPSMLP  006333 

MPSPSS 

001763 

MP$MRB  002171 

MPSPST 

001762 

MPSMRO  001605 

MPSRET 

001631 

MPSMRP  006522 

MPSRFA 

C01323 

MPSMRT  002153 

MPSRMX 

002201 

MPSMRV  006520 

MP$RPA 

004374 

MPSMSB  000170 

MPSRPR 

001606 

MPSMVE  000  r.  5 

HP$RRT 

002213 

MPSMVI  001654 

MPSRST 

002212 

MPSMVR  001751 

MPSRSV 

001754 

MPSMWN  002154 

MPSRSZ 

001756 

MPSMXB  002172 

MPSRTI 

001616 

MP$MXC  000466 

MPSRTM 

001611 

MPSHXR  001650 

HPSRVF 

001604 

MP$MXW  002143 

MPSRVT 

000156 

MPSNAA  006335 

MPSSAC 

000514 

MPSNAC  001130 

MPSSAD 

000543 

MPSNAP  006326 

MPSSCA 

000310 

MPSNCT  000240 

MPSsro 

000144 

MPSNET  002114 

MPSSCT 

002176 

MPSNLI  000765 

MPSSDU 

000203 

MPSNNA  000764 

MPSSDV 

000160 

MPSNOD  000500 

MPSSEH 

004401 

MPSNRA  006334 

MPSSER 

000144 

MPSNRB  000214 

HPSSET 

000000 

MPSNSA  001617 

MPSSGZ 

001644 

MPSNTI  002141 

MPSSID 

000176 

MPSNUM  001642 

HPSSIN 

0005r 

MPSNVE  001274  - 

HPSSLI 

00015b 

MP$NXN=  001476 

HPSSLO 

000171 

MPSOAC  000652 

MPSSMX 

002202 

MPSOAN  000620 

MPSSND 

000500 

MPSOCO  000776 

MPSSNP 

006552 

MPSOHO  000214 

MPSSNU 

000542 

MPSONA  000764 

MPSSOB 

000524 

MPSONR  002114 

MPSSPA 

000157 

MPSOOL  001453 

MP$S"R 

000536 

MPIOTI  000777 

MPSSPS 

000513 

MP.OTY  001022 

MPSSTA 

000000 

MPtOUS  000777 

MPSSTI 

002140 

MPSOVE  001010 

MPJSTT 

002201 

MPtOUN  0C4374 

rtPtSTY 

000175 

MPSPAR  000036 

WPSSUB 

000001 

MPSPAS  00')515 

MPSSUR 

000156 

MPSFCH  002152 

MPSSUS 

000512 
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MACRO   CROSS   REFERENCE  CREF        0^.00 

MACRO  NAME  REFERENCES 

CALL  *10-546  10-565^  13-653  13-662  13-676  13-688^         13-689  22-925  22-932  23-951 

23-958  28-1070  29-1088  30-1106  31-1124         32-1U2         33-1160         34-1178  35-1196         36-121A 

J7-1232  33-1250  39-1268  AO-1286  41-1304 

DBGT°$  #8-82  8-88  *8-90  *8-92  8-9^  #8-95  8-97  #8-98  8-100  #8-101 

8-18  #8-119  8-121  #8-121  8-124  #8-125  8-127  #8-128  8-30  #8-31 

8-133  #8-134  8-136  #8-137  8-139  #8-140  8-142  #8-143  8-45  #8-46 

8-48  #8-149  8-151  #8-152  8-154  #8-155  8-157  #8-158  8-160  #8-161 

8-63  #8-64  8-166  #8-167  8-169  #8-170  8-172  #8-173  8-175  #8-76 

8-78  #8--'79  8-181  #8-182  8-184  #8-185  8-187  #8-188  8-189  8-194 

#|.  9?  8-, 97  #8-198  8-200  #8-201  8-207  #8-208  9-216  9-2  9  9-226 

9-228  #9-229  #9-231  #9-233  9-259  9-241  9-246  9-248  #9-249  9-254 

9-256  #9-257  9-262  9-264  #9-265  9-270  9-272  9-277  9-279  #9-280 

9-282  #9-283  9-285  #9-286  9-288  9-293  9-295  9-300  9-302  9-307 

9-309  #9-310  #9-311  9-316  9-318  9-323  9-325  9-330  9-332  9-337 

9-339  9-344  9-346  9-351  9-353  9-358  9-360  9-365  9-367  9-372 

9-374  9-379  9-381  9-386  9-388  9-393  9-395  9-400  9-402  9-407 

9-A09  9-414  9-416  #9-417  #9-418  9-423  9-425  9-430  9-432  9-457 

9-A39  #9-440  #9-441  #9-442  9-447  9-449  #9-450  9-455  9-457  9-462 

9-464  9-469  9-471  #9-472  9-477  9-479  9-484  9-487  9-492  9-497 

EXT$I,$  #8-88  #8-90  #8-04  #8-97  #8-100  #8-105  #8-106  #8-109  #8-2  #8-5 

#8-118  #8-121  #8-124  #8-127  #8-150  #8-135  #8-156  #8-159  #8-42  #8-45 

#8-148  #8-151  #8-154  #8-157  #8-160  #8-163  #8-166  #8-169  #8-172  #8-175 

#8-178  #8-181  #8-184  #8-187  #8-194  #8-197  #8-200  #8-208  #9-219  #9-226 

#9-228  #9-229  #9-231  #"-239  #9-246  #9-248  #9-249  #9-254  #9-256  #9-262 

#9-264  #9-270  #9-277  #9-279  #9-280  #9-282  #9-285  #9-288  #9-295  #9-500 

y^4?,j  #9-309  #9-510  #9-316  #9-318  #9-325  #9-525  #9-550  #9-552  #9-557 

(,9-539  /,9-3/;4  #9-345  #9-551  #9-355  #9-358  #9-360  #9-365  #9-367  #9-372 

#9-37/  #9-379  #9-381  #9-586  #9-588  #9-595  #9-595  #9-400  #9-402  #9-407 

#9-^09  #9-414  #9-416  #9-417  #9-425  #9-425  #9-450  #9-452  #9-457  #9-459 

#9-440  #9-441  #9-447  #9-449  #9-455  #9-45?  #9-462  #9-464  #9-4(0  #9-471 

#9-477  #9-479  #9-487  #9-492  #9-497  „     „„  „   ,,,  „   ,,, 

FIELDS  #8-82  8-86  8-95  8-96  8-99  8-102  8-105  8-108  8-  8-4 

8-i;7  8-120  8-125  8-126  8-129  8-152  8-155  8-58  8-4  8-44 

8-147  8-150  8-155  8-156  8-159  8-162  8-165  8-168  8-171  8-174 

8-77  8-180  8-185  8-186  8-195  8-196  8-199  8-206  9-2  5  9-218 

9-225  9-227  9-258  9-240  9-245  9-247  9-255  9-255  9-261  9-265 

9-269  9-271  9-276  9-278  9-281  9-284  9-287  9-292  9-294  9-299 

9-501  9-506  9-5C8  9-315  9-517  9-522  9-524  9-329  9-551  9-556 

9-338  9-345  9-345  9-550  9-552  9-557  9-559  9-564  9-566  °-371 

9.373  9-378  9-380  9-585  9-587  9-592  9-594  9-599  9-401  .-406 

9-408  9-413  9-415  9-422  9-424  9-429  9-431  9-436  9-458  9-446 

9-448  9-45^  9-456  9-461  9-465  9-468  9-470  9-476  9-478  9-483 

9-486  9-491  9-496  9-501 

HDRL-F$         #5-59       5-61 

ITRANS  #8-82  8-^8  S-90  8-94  8-97  8-1   0  8-103  8-106  8-109  8-112 

llH/y^JJ,  »o_o^  ^_^0g  ^_^v,_^  c_^^^  ^_^^^  g_^^^  g_^^^  g_^^^  g_^,,j  g_^^^ 

8--'--.5  8-148  8-131  8-154  8-157  8-160  8-163  8-166  3-169  8-17c 

8-175  8-178  8-1S1  8-18(  8-187  8-189  8-194  3-197  8-200  8-207 
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187 

188 

189 

190 

191 

192 

193 

}% 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20^, 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22'; 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23A 

235 

236 

237 

238 

239 

2';0 

2A1 

24  3 


0002^.2  103421; 


000244 
000250 


000252 
C00256 
000262 

000262 
000270 
000272 
000276 
0003C2 


000302 
000306 
000310 


000314 
000520 
000322 


000326  005064 


Paramet 
PARAMET 


000070 
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ERS  OPERATE 

BCS     20$  ; 

;  DISPATCH  TO  SET  OR  CLEAR  ROUTINES 


005764 
001404 


012705  000000' 


016464 
001404 
012705 


005764 
001402 


000066 
000056' 


000076 


000070 


020027 
001006 
005064 


177600 
000064 
000066 


000332  005064  000076 


000336 
000342 
000344 
00C346 
000352 
000356 
00C362 


000364 
000370 


016403 
110023 
100402 
005064 
116423 
116423 
105023 


016405 
0C14O5 


000060 


000072 
000072 
000073 


000056 


15$: 


18$: 


TST 

.IF  NDF 

BES 

.IFF 

BEQ 

.IFTF 

MOV 

CALL 

l:'L2(R4) 

R$$i1S 

15$ 

;  NDF  R$$11S 

20$ 

;  NDF  R$$11S 

#DISTBL,R5            ; 

DSPTCH 

.IFT 

MOV 

BEQ 

MOV 
CALL 

;  NDF  R$$11S 

L$FL1(R4),L$FL2(R4; 

18$ 

#DISTB1,R5 

DSPTCH 

.IF  NDF 

R$$PRO   ;  FRO/DECNET 

TST 
BEQ 
CALL 

L$FLX(R4) 

20$ 

CICHPX 

.ENDC 

;  NDF  R$$PRO 

.ENDC 

;  NDF  R$$11S 

BR  if  not  valid  operation 

ANY  WORK  TO  DO? 

BR  IF  NO 

BR  IF  NO 

POINT  TO  START  OF  TABLE 
DISPATCH  TO  PROPER  ROUTINE 


Get  second  flags  woru 
BR  if  no  work  to  do 
Point  to  start  of  table 
Dispatch  to  proper  routine 


Check  X.25  circuit  flags 

Branch  if  no  X.25  parameters 

Change  other  X.25  circuit  parameters 


USE  THE  STATUS  IN  RO  TO  BUILD  RETURN  MESSAGE  AND  C-BIT  RETURN 


^0$: 


CMP     R0,*Mr.DON 
BNE     25i 
CLR     L$FLG(R4) 
.IF  NDF  R$$11S 
CLR     L$FL1(R4) 

.IF  NDF  R$$PR0   ;  PRO/DECNET 

CLR     L$FLX(R4) 

NDF  R$$PRO 


25$: 


271: 


.ENDC 

.ENDC 

MOV 

M0V6 

BMI 

CLR 

Move 
Mova 

CLRB 


;  NDF  R$$11S 
L$8UF(R4;,°3 
R0,(R3)- 

L$PAR(R4) 
L$PAR(R4),fR3)t 
L$PARt1{R4),(R3)* 
(R3-  + 


.IF  NDF  RJ'SPRO 


PRO/DECNET 


MOV 
.^EC 


L$MSG(R4),R5 
40$ 


ARE  WE  DONE  ? 

I.'^  NE,  NO 

ClEAR  INIT  flag  in  flags  WORD 


...  (X.25) 


GET  BUFFER  POINTER 

SET  THE  RETURN  CODE 

IF  MI,  L$PAR  CONTAINS  DETAIL 

ELSE,  NO  DETAIL  TO  RETURN 

SET  THE  ERROR  DETAIL  B^ES 

ASSUME  NO  ERROR  MESSAGl  TEXT 


GET  MESSAGE  kOINTER 
IF  EQ,  NONE 
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rtTLinn     _     ^T^r.ilT     ruAMrc:     DAD  A'Jir  T  CD  C     nDTDATF 


CKHOP 

CREATED   BV 

MACRO     ON  29 

-JUN-85 

SVMBDL 

IROSS  REFEREMCE 

SYMBOL 

VALUE 

REFERENCES 

LM.CLO 

=   000000 

#6-63 

LM.DUM 

=  C00005 

#6-68 

LN.LOA 

=  000004 

#6-68 

LN.LOO 

=  000003 

#6-68 

LN.OAU 

=  000003 

#6-68 

LN.OFF 

=  OOOCOl 

#6-68 

LN.ON 

=  000000 

#6-68 

LN.OOP 

=  OOOOOA 

#6-68 

LN.OPE 

=  000001 

#6-68 

LN.REF 

=  000002 

#6-68 

LN.SER 

=  000002 

#6-68 

LN.STA 

=  OC0017 

#6-68 

LN.SUB 

=  000360 

#6-68 

LN.TRI 

=  000006 

#6-68 

LO.CON 

00C006 

#6-66 

LO.CSR 

000006 

#6-66 

LO.CTL 

OOOOK 

#6-66 

LO.LIN 

000004 

#6-66 

LO.PAR 

000010 

#6-66 

LO.PRI 

000010 

#6-66 

LO.SCR 

oooou 

#6-66 

LO.STA 

000015 

#6-66 

LO.VCT 

000012 

#6-66 

LPSMPT 

=  000010 

#7-73 

LPSMUX 

=  000004 

#7-73 

LPSNXC 

=   100000 

#7-73 

LPSTRB 

=  000002 

#7-73 

LPSUNT 

=  000001 

#7-73 

LPSWCN 

=   000040 

#7-73 

7-73 

LPSWDV 

=  000020 

#7-73 

7-73 

LPSWLD 

:=  000360 

#7-73 

9-252 

LPSWTR 

=  000200 

#7-73 

7-73 

LPSWUN 

=  000100 

#7-73 

7-73 

LR.AST 

000026 

#6-66 

LR.CIR 

000002 

#6-66 

LR.CTL 

000004 

#6-66 

LR.EFN 

000004 

#6-66 

LR.LIN 

000002 

#6-66 

LR.PRM 

000030 

#6-66 

LR.PRO 

000002 

#6-66" 

LR.STS 

000000 

#6-66 

LR.TCB 

000002 

#6-66 

LR.UNT 

000005 

#6-66 

LSSACT 

=  000040 

#7-73 

8-92 

LSSBBT 

=  010000 

#7-73 

8-99 

uSSBLK 

=   001000 

#7-73 

7-73 

LSSBSA 

=   000001 

#7-73 

S-ll'' 

LSSBSD 

=  000002 

#7-73 

8-113 

LSSBSI 

=  000004 

#7-73 

£-11'^ 

LSSCHN 

-  000001 

#7-73 

7-73 

LS$CI«B 

=   00C002 

#7-73 

7-73 

LSSCOS 

-  .00004 

#7-75 

8-85 

C     A 

PAGE   2 

CREF        04.00 


7-73 


7-73 


CICHOP 
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000001 
000002 
000004 


000010 
040000 
1000C0 


000001 
000002 
000004 
000010 
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Context  area  definition 

000125 
000126 
000127 
000130 
000131 
000132 
000133 
000134 
000166 
000224 
000226 
000230 
000230 
000232 
000234 
000234 
000236 
000236 
0OC240 
000240 
000250 
000252 
000252 
000253 
000253 
000254 
C00256 
000256 
000260 
000262 


000<;64 
000000 


LSINA 

.BLKB 

DMP  ACTIVE  INCREMENT 

LtlND 

.BLKB 

DMP  DYING  INCREMENT 

LSINI 

.bLKB 

DMP  INACTIVE  INCREMENT 

L$TH1 

.BLKB 

DMP  DEAD  THRESHOLD 

L$TH2 

.BLKB 

DMP  DYING  THRESHOLD 

L$TH3 

.BLKB 

DMP  INACTIVE  THRESHOLD 

LSMXe 

.BLKB 

DMP  MAXIMUM  BLOCKS 

LSNTL 

.BLKW 

13.              ; 

NTL  MESSAGE  BUFFER 

L$SCR 

.BLKW 

15. 

SCRATCH  BUFFER 

LSLCT 

.BLKW 

COUNTER  TIMER 

LSHTM 

.BLKW 

HELLO  TIMER 

L$SER 

SERVICE 

L$LTM 

.BLKW 

LISTEN  TIMER 

LSXC'i 

.BLKW 

X25  Logical  Channel  Number  (LCN) 

L$LMB 

X25  Max  Block  (Line) 

L$CMB 

.BLKW 

X25  Max  Data  (Circuit) 

LSNUML: 

DLM  ^'Jmbe^  length 

LSDTE 

:  .BLKW 

X25  DTE  length  (Circuit) 

LSNUM 

DLM  Number 

L$DTE 

.BLKB 

X25  DTE  (Circuit) 

LSDTEP:  .BLKW 

X25  Pointer  to  DTE  descriptor  (Circuit) 

L$MWN 

X25  Max  Window  (Line) 

L$MXW 

.BLKB 

X25  Max  Window  (Circuit) 

LSMRT 

X25  Max  Retransmits  (Line) 

LSMXR 

.8LK8 

DLM  Max  Recalls  (Circuit) 

L$HBT 

.BLKW 

X25  Holdback  Timer  (Line) 

L$NTI 

X25  Retransmit  Timer  (Line) 

LSRET 

.BLKW 

DLM  Recall  Timer  (Circuit) 

LSCUS 

•   .BLKW 

DLM  Usage 

L$BLK 

■   .8LKW 

DLM  blocking  state 

.IF  DF 

R$$PRO  ;PRO/DEC 

let 

LSLTY 

•   .BLKW 

Loopback  Type 

L$MDT 

:   .BLKW 

Modem  Test 

.ENDC 

;  DF  R$$PRO 

.EVEN 

LSLEM 

.P<"ECT 

LENGTH  OF  CONTEXT  AREA 

;  FLA 

GS  WORD  BIT  DEFIMITIONS  (L$FLG) 

' 

LFSREA 

=  1 

READ  COUNTERS  OPERATION 

LF$ZER 

=  2 

ZERO  COUNTERS  OPERATION 

LF$SK° 

=  4 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  U;;D  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 

LF$VR2 

^  10 

CONNECTED  TO  VERSION  2.0  NCF 

lF$I»ILT 

=  40000 

MULTIPLE  ADJACENCY  FLAG 

LF$SE3 

=  100000 

SEGMENTED  RESPONSE  IN  PROGRESS 

;  P«RSE  FlACj  DEFIMITIONS  (LSPFG) 

' 

LPIUNT 

=  1 

•  UNIT  NUMBER  FOUND 

LPiTRB 

=  2 

•  TRIBUTARY  NUMBER  FOUND 

!  P$HUX 

=  4 

•  DEVICE  IS  Mi.X 

LPSMPT 

-  10 

•  LINE  IS  MULTIPOINT 
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SETSTA  -  SET  A  NEW  CIRCUIT  STATE 


"age 


13-3 


48' 

488  00K66 

489  001474 

490  001476 

491  001502 

492  001504 
495  001512 


494 
495 
496 
497 
498 
499 
500 
501 
502 
503 


001514 
001520 
001522 
001526 


001530 
001532 


126'.27 
001003 

000413 
126427 
001003 

000404 

000401 


000261 


000100  000000 


000100  000002 


140$: 

CMPB 

L$STA(R4) 

*MS$-0N 

IS  IT  "ON"  ? 

BNE 

150$ 

IF  NE,  NO 

CALL 

ST  AON 

ELSE,  SET  STATE  ON 

BR 

180$ 

AND  RETURN 

150$: 

CMPB 

L$STA(R4) 

,#MS$SER 

IS  IT  SERVICE  ? 

BNE 

160$ 

IF  NE,  NO 

CALL 

STASER 

ELSE  ,  SET  STATE  TO  SERVICE 

BR 

180$ 

AND  RETURN 

160$: 

CALL 

BR 

.ENDC 

STAOFF 
180$ 

ELSF,  MUST  BE  OFF 

170$: 

SEC 

RETURN  WHH  EhhOR 

180$: 

RETURN 

.I'i    NDF  R$I11S 
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ETOWN  -   SET    ClRCl^IT   OWNER 


Page  21 


951 

932 

933 

93^ 

93S 

936 

937 

938 

939 

9^0 

941 

942 

943 

944 

945 

946 

947 

948 

949 

930  COCOOO 

951 

952 

953 

954  000000 

955  000000 

956  000004 

957  000012 

958  000014 

959  000020 

960  C00026 

961  000034 

962  000036 

963  000044 
964 

965 
966 

967  000046 

968  000052 

969  000056 
970 

971 
972 

973  000060 

974  000064 

975  000070 

976  000074 

977  000102 

978  000104 

979  000110 

980  0OOM2 
081  000120 

982  000122 

983  000124 

984  000132 
985 

9S6 
987 


012700 
022764 
001502 
012700 
012764 
132764 
001404 
132764 
001465 


012700 
103457 


016402 
016403 
012700 
032762 
001445 
105762 
0G1005 
032762 
C01036 
000 '.04 
132763 
001031 


.SBTTL   SETOWN  -  SET  CIRCUIT  OWNER 

■♦-SETOUN-SET  CIRCUIT  OWNER 

THIS  ROUTINE  IS  CALLED  TO  SET  THE  OWNER  FOR  A  CIRCUIT. 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA  WITH: 

L$0WN(R4)  ^  NEW  OWNER'S  PDV  INDEX  (IF  ENTRY  AT  SETOWN) 

OUTPUTS: 


IHF  OWNER  IS  SET 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


.IF  NDF  R$$11S 
.PSECT  $$$UNM,RO,I 
NDF  R$$11S 


177752 
177777 

177767 
000003 
000010 


SETOWN: 


000050 


000072 
000041 


000002  000041 


177777 


.ENDC 


MOV 

CMP 

BEQ 

MOV 

MOV 

BITS 

BEQ 

BITS 

BEQ 


*ME.PNA,RO 

#-1,L$TPT(R4) 

70$ 

*ME.IID,R0 

#ME$CIR,LSPAR''R4) 

#LP$MPT,L$PFG(R4) 

10$ 

#LP$TRB,L$PFG(R4) 

70$ 


TRY  TO  ASSIGN  LUN  ^0  NX: 

10$:    MOV     #ME.FUN,RO 
CALL    DLXLUN 
BCS     60$ 


FORCE  TO  APR  6 


ASSUME  PVC 

IS  THIS  A  PVC? 

BR  IF  YES  -  ERROR 

ASSUME  INVALID  CIRCUIT-ID 

IS'tHIS  a  MULTI-POINi  CIRCUIT 
IF  EQ,  NO 

ELSE,  WAS  A  TRIB  NUMBER  GIVEN 
IF  EO,  NO  -  ERROR 


ASSUME  ILLEGAL  FUNCTION 

TRY  TO  ASSIGN  LUN 

IF  CS,  NO  DLX  -  ERROR 


000042 
000050 
177765 
040000 

000014 

100000 

000200 


MAKE  SURE  THE  CIRCUIT  IS  LOADED,  BUT  OFF 


000000 

000000 
000000 


20$: 


MOV  L$SLI(R4).R2 

MOV  L$TPT(R4),R3 

MOV  #ME.CST,RO 

BIT  #LF.RDY,L.FLG(R2) 

BEQ  60$ 

TSI8  L.NSIA(R2) 

BNE  20$ 

BIT  #LF.ACT,L.FLG(R2) 

BNE  .:u: 

BR  Ji/J> 

BITS  «(SF.ACT,S.FLG(R3) 

BNE  60$ 


GET  THE  SLT  ADDRESS 

POINT  TO  TRIB  FLAGS 

ASSUME  CIRCUIT  IS  IN  WRONG  STATE 

IS  THE  CIRCUIT  LOADED  ? 

IF  EQ,  NO  -  IN  WRONG  STATE 

MULTIPOINT  CIRCUIT  ? 

IF  NE,  YES 

ELSE,  IS  THE  CIRCUIT  ON  ? 

IF  NE  YES  -  IN  WRONG  STATE 

ELSE,  CONTINUE 

ELSE,  IS  THE  STATION  ON  -^ 

IF  NE,  YES  -  CIRCUIT  IS  IN  WRONG  STATE 


ISSUE  REASSIGN  REQUEST  TO  DLX 
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CICHPD     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:K 
SYMBOL  lROSS  REFERENCE 


C  8 

PAGE  2 

CREF   OA.OO 


SYMBOL   VALUE 


LFSREA 

LFSSEG 

LFSSKP 

LF$VR2 

LFSZER 

LF.ACT 

LF.BRO 

LF.BUT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.3ER 

LF.TIM 

LF.UML 

LF.X2P 

LINOFF 

LINON 

LLCRf, 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.5TA 

LN.SUB 

LN.TRI 

LO.CON 

LO.CSR 

LO.CTL 

LO.LIN 

LO.PAR 

LO.PRI 

LO.SCR 

LO.STA 

LO.VCT 

LPSMPT 

LP$MUX 

LPSNXC 

LPSTRB 

LPSUNT 

LPSWCN 


=  000001 
=  100000 
=  OOOOOA 
=  000010 
=  000002 
=  100000 
=  000^00 
=  000007 
=  002000 
=  001000 
=  000100 
--  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  OOOOAO 
=  000010 
=  020000 
=  000000 
0024K  R 
002174  R 

-  ****** 

=  000000 

=  000005 

=  C00004 

=  000003 

=  000003 

=  000001 

=  000000 

=  C00004 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000006 

000006 

000014 

000004 

000010 

000010 

000014 

000015 

000012 

=  000010 

=  C0C004 

^  100000 

^  000002 

=  ooooc 

=  000040 


ex 


REFERENrES 

#6-86 
#6-86 
#6-86 
#6-86 
#6-86 
#5-7? 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 

17-705 

17-698 

18-749 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-71 
#5-71 
#5-71 
#5-71 
#5-/1 
#5-71 
#5-71 
#5-71 
#5-71 
#6-86 
#6-86 
t6-86 
#6-86 
#6-86 
#6-86 


13-358 

13-366 


13-441 
9-172 


13-459 
13-441 


19-810 
12-291 


24-1130         24-1133 


#19-789 

#18-722 

19-800 


18-735 


18-766 
15-596 


13-348 


19-825 


20-877 


21-980 


20-869 


21-976 


14-538 


14-540 


15-616 


10-199 


13-568 
6-86 


20-863 


20-865 


21-960 


21-962 


23-1093 

23-1084    23-1089 


CICHPD 


CREATED  BY  MACRO  ON  29-JUN-85  AT  12:14 
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Context  area  definition 


102 
103 
10^  000000 


COOOOA 


OOOOOC 
000020 


000000 
000000 
000002 
000003 
000004 

000020 

OOOOAO 

000041 

000042 

000044 

000046 

000050 

000052 

000053 

000054 

000055 

000056 

000060 

000062 

000063 

000064 

000066 

000070 

000072 

000074 

000075 

000075 

000076 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000110 

0001V 

000114 

00C116 

000120 

000122 

000123 

000124 


000020 


.S8TTL  Context  area  definition 
CICCXS  LIST 
■  CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 

.  =  0 

LSNLEN  =  16. 


MAXIMUM  NAME  LENGTH 


The  offsets  LSNAM  to  LSPDV  inclusiue  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM 
LSDDM 
LSCTL 
LSUNT 
LSPVC 

LSSCN 

LSTRB 

LSPFG 

LSSLT 

LSNXT 

L$SNM 

LSTPT 

LSTNM 

LSCTB 

LSCHN 

LSPDV 

LSMSG 

LS8UF 

LSOPT 

LSTYP 

LSFLG 

LSFL1 

LSFL2 

LSPAR 

LSSLEN 

LSPRO: 

LSMTYP 

LSFLX 

LSSTA 

LSCOS 

LSOWN 

LSTAD 

LSACT 

LSDiA 

LSDDT 

LSDLT 

LSPLT 

LSB8T 

LSNMT 

LSXMT 

LS8SA 

LSBSD 

LSBSI 


.BLKW 

.8LK8 

.BLKB 

.BLKW 

.  =  0+L 

.BLKB 

.B.KB 

.BLKB 

.BLKW 

.BLKW 

.BLKU 

.BLKW 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKU 

.BLKW 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKU 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 


SNL 


EN 
SNLEN 


SPACE 


DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 
3RD  WORD  OF  PVC  NAME 
OR  EXPANDED  CIRCUIT  NAME 
CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVr  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  {-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. . .  PDV  assianed 
ERROR  MESSAGt  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
CIRCUIT-ID  FORMAT  TYPE 
FLAG  UORD  (FOR  COMMAND) 
FLAG  UORD  (FOR  COMMAND) 
FLAG  UORD  (FOR  CURRENT  CIRCUIT) 
CURRENT  PARAMETER  TYPE 
Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Flags  word  for  X.25  circuit  commands 
CIRCUIT  STATE 
CIRCUIT  COST 

CIRCUIT  OWNER  (PDV  INDEX) 
TRIBUTARY  ADDRESS 
MULTIPOINT  ACTIVE  RATIO 
MULTIPOINT  DEAD  RATIO 
DMP  DEAD  TIMER 
DMP  DELAY  TIMER 
DMP  POLL  TIMER 
DMP  BABBLE  TIMER 
DMP  NORMAL  TIMER 
DMP  TRANSMIT  TIMER 
DMP  ACTIVE  BASE 
DMP  DYING  BASE 
DMP  INACTIVE  BASE 
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$ADPVC  -  Create  a  new  PVC 


All 
412 
A',  3 
4U 
415 
416 
417 

418  001222 

419  001222 

420  001226  000003 

421  001230 
422 

423 

424        000001 


.S8TTL  SADPVC  -  Create  a  new  PVC 

^ 
♦♦«  SADPVC  -  Create  a  new  PVC 

•«'  Dummy  routine  for  PSI  V2.0  reteabe  -  trap  if  logic  error    forces  call. 


IaDPVC:: 


10$: 


SWSTKS  10$ 

BPT 

RETURN 


; ;  [his  routine  should  never  be  called 


.ENDC 
.END 


NDF  R$$11S 
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*F!LE*«1D"C1RECH 


C  11 


cccccrcc 

imii 

RRRRRRf>R 

EEFEtEEEEE 

■ccccccc 

HH      HH 

CCCCrccC 

nun 

RRRRRRRR 

EEEEEEEEEE 

■ccccccc 

HH      HH 

cc 

u 

RR      RR 

EE 

LL 

HH      HH 

cc 

H 

RR      RR 

EE 

CC 

HH      HH 

cc 

RR      RR 

Ef 

CC 

HH      HH 

cc 

RR      RR 

EE 

cc 

HH      HH 

cc 

RRRRRRRR 

EEEEEEEE 

cc 

HHHHHHHHHH 

cc 

RRRRRRRR 

EEEEEEEE 

cc 

HHHHHHHHHH 

cc 

RR   RR 

EE 

cc 

HH      HH 

cc 

RR  RR 

EE 

cc 

HH      HH 

cc 

n 

RR    RR 

EE 

cc 

HH      HH 

cc 

n 

RR    RR 

EE 

cc 

HH      HH 

cccccccc 

nnn 

RR      RR 

EEEEEEEEEE 

:ccccccc 

HH      HH 

cccccccc 

nun 

RR      RR 

EEEEEEEEEE 

:ccccccc 

HH      HH 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

.L 

ss 

-L 

ss 

LL 

ss 

.L 

ssssss 

-L 

ssssss 

LL 

ss 

LL 

ss 

_L 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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MTPCHA  -  Get  muUpoint  charac  ten  st  us 

?71 
372 
373 
37^ 
375 
376 
377 
3^8 
579 
380 
381 
382 

383  001164 

384  001164 

385  001170 

386  001174 

387  001200  103404 

388  001202  116166  000034  000002G 

389  001210  000417 

390  001212 

391  001216  103404 
592  001220  116166  000005  000002G 
595  001226  000410 

594  001230 

595  001254  105005 
396  001256 

597  001250 

598  001254 
599 

400  001256  105406 

401  001260  004567  OOOOOOG 

402  001264  002164 
405  001266  000001 

404  001270  iri^i 

405  001272  000421 
406 
407 
408 

409  001274 

410  001500 

411  001504 

412  001510     105406 
415 

414  001512     004567     OOOOOOG 

415  001316     004420 

416  001520     000001 

417  001322     116^25     000010 

418  001526 

419  001552  010566  OOOOOOG 

420  001336 
421 
422 


.S8TTL  MTPCHA  -  Get  multpoint  characteristics 

*»-MTPCHA-  Get  multipoint  characteristics 

INPUTS       RO  =  SET  pointer 

R1  =  trib  flags  pointer 

R3  =  address  of  next  byte  in  message 

R4  =  context  area  pointer 


OUTPUT 


MTPCHA: 


R3  =  address  of  next  byte  in  message 


SWSTK$ 

30$ 

SAVMAP 

CALL 

F^.DDCP 

BCS 

IPS 

M0V8 

S.STPN(R1),2+R$R2(SP^ 

BR 

25$ 

10$: 

CALL 

FNDPCL               ;; 

BCS 

15$ 

M0V8 

S.PSA(R1),?+R$R2(SP)    ;; 

BR 

25$                ;; 

15$: 

CAIL 

DMPCT8 

BCC 

25$ 

20$: 

RETC 

RO                 ;; 

25$: 

RESMAP 
RETURN 

50$: 

BCS 

55$ 

JSR 

R5.SETPAR 

.WORD 

.>1P$TRI                ; 

.WORD 

1                   ; 

MOVE 

R2,(R5)»- 

BR 

60§                 ; 

':    RETURN  MULTIPOINT  ACTIVE  RATIO  IF  IT  APF 

55$: 

SWSTK$ 
SAVMAP 

60$ 

CALL 

FNDDCP 

BCS 

55$ 

JSR 

R5,SETPAR 

.WORD 

MP$MAC 

.WORD 

1 

MOVB 

S.PLA(R1),(R5)+ 

55$: 

HESMAP 

MOV 

R5,RSR5(SP) 

60$: 

RETURN 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

FIND  THE  DDCMP  LINE  TABLE 

IF  CS,  COULDN'T  FIND  IT 

RETURN  TRIB  *  IN  SAVED  R2 

AND  RETURN 

ELSE,  MAYBE  IT'S  A  PCL  ??? 

IF  CS,  NOPE  -  NOTHING  TO  RETURN 

RETURN  PHYSICAL  STATION  ADDRESS  IN  SAVED  R2 

AND  RETURN 

CHECK  FOR  DMP 

BR  IF  FOUND  IT 

SET  USER  C-BIT 

RESTORE  PREVIOUS  MAPPING 


IF  CS,  NO  TRIB  TO  BE  HAD 

SET  TRIBUTARY  NUMBER  PARAMETER 


ONE  BYTE 

SET  PARAMETER  IN  BUFFER 

DONE  FOR  TRIBS 


ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

FIND  DDCMP'S  LINE  TABLE 

IF  CS,  COULDN'T  -  RETURN 

Add  on  Mulitpoint  Active 

SET  MULTIPOINT  ACTIVE  PARAMETER 

ONE  BYTE  DATA 
SET  PARAMETER  IN  MESSAGE 
RESTORE  PREVIOUS  MAPPING 
RETURN  R5  IN  SAVED  R5 


.ENDC 


NDF  S$$BAS  I   R$$RTR  ?,  RSSPRO 
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CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.05b  baturday  29-Jun-85  12:15 
Symbol  table 


AT$ACL= 

000100 

DF.UNK= 

000100 

AT$ADN= 

0OOC40 

DMPCTB= 

»*♦*••  GX 

AT$AUP= 

000020 

OSAMXC 

000072 

AT$CYC= 

OOOOOA 

DtAMXH 

000074 

AT$LV!  = 

000002 

DSANN 

000000 

AT$LV2= 

000001 

DSBRPR 

000102 

AT$NEX= 

000200 

DSBRTM 

000100 

ATSUP  = 

000010 

DSDELF 

000045 

A$CIR 

000003 

OSDELW 

000046 

AtLEN 

OOOOOA 

D$END  = 

000104 

ASNID 

000000 

D$FNB 

000034 

A$TM 

000003 

DSHIOR 

000024 

ASTMI 

000002 

DSHOST 

000022 

ASTSZ 

000000 

DSINAC 

000044 

ASTYP 

000002 

DSINCT 

000042 

A$SCHK= 

000000 

0$IPL 

000051 

A$$CPS= 

000000 

DSLIO 

000020 

A$$PRI= 

000000 

DSL  NAM 

000006 

A$$TRP^ 

000000 

DSLNUM 

000014 

BCDASC= 

*♦•*»*  GX 

DSLST 

000047 

BF.TRC= 

OOOOOA 

I)$MAXC 

000064 

BITO  = 

000001 

DSMAXH 

000066 

BITl   = 

000002 

DSMAXV 

000070 

BIT10  = 

002000 

D$MLL 

000040 

BiTIl  = 

OOAOOO 

DSMNOO 

000041 

BIT12  = 

010000 

D$NA 

000062 

BIT13  = 

020000 

DSNBEA 

000056 

BITH  = 

040000 

DSNBRA 

000054 

Bins  = 

100000 

D$NEND= 

000054 

B1T2  = 

000004 

[)$NLN 

000030 

BIT3  = 

000010 

D$NN 

000060 

BIT4  = 

000020 

DSOUTT 

000043 

B1T5  = 

000040 

DSRETF 

000050 

B1T6  = 

000100 

D$RNN 

000002 

BIT7  = 

000200 

DSRTMR 

000076 

BITS  = 

000400 

DSSEG 

000036 

BIT9  = 

001000 

DSSER 

00003? 

BLKING 

00001 6R 

DSSQRL 

000052 

B$10 

000003 

D$$BUG= 

177514 

B$n 

000004 

D$$ISK= 

000000 

B$12 

000005 

D$$L11= 

000001 

B$5 

000000 

D$$rNC= 

000000 

B$6 

000001 

0$$YNM= 

000000 

B$7 

000002 

ESNBR 

000014 

B$7S10 

000006 

E$NBS 

000020 

CF$VR2= 

»♦*♦*»  GX 

ESNCR 

000034 

CF$VR3= 

».♦»**  GX 

ESNCS 

000036 

CIRECH 

000022RG 

E$NIC 

000044 

CURCTX= 

•*♦»♦•  GX 

ESNLEN 

000050 

C$FLAG= 

♦♦♦♦♦«  GX 

ESNLLA 

000012 

C$$C<P= 

000000 

ESNLNK 

000000 

C$$ORE= 

000400 

E$NML 

000040 

C$$RSH= 

177564 

E$NMR 

000024 

PECPT  = 

*♦♦♦♦*  GX 

ESNMS 

000030 

DF.CRC= 

000010 

ESNNOD 

000002 

DF.FOC= 

000020 

ESNRT 

000042 

DF.RANJ= 

000040 

ESNRTP 

000005 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

E$$XPR= 

FLAG 

FL.INC= 

FL.PVC= 

FL.SVC= 

FMTOWN 

FNDCTR 

FNDDCP= 

FNDHTM 

FNDLTM 

FNDPCL= 

FNDPLD 

f$$LVL= 

GETADJ 

G$$TPP= 

G$$TSS= 

C$$TTI<= 

G$IWRD= 

HF$DLM= 

HF$GWY= 

HF$HOS= 

HF$XDF= 

HTIM 

HSCUG 

HSDST 

H$D29 

H$FLG 

HSGLEN 

H$GLT 

HSGNAM 

H$GNML= 

H$GPT 

HSHITS 

HSHLEN 

H$L8DA 

HSLBDN 

H$LDTE 

H$LEN 

HSLOTS 

HSNETW 

H$NML  = 

H$NPT 

HSPTB 

HSPVC 

HSRDTE 

H$RNU 

H$SVC 

H$TR8 

HSXAVL 

HSXBIA 

H$X29C 

I$$RAR= 

I$$RDN= 


000010 

000046 

000004 

000006 

000000 

000020R 

000004 

000002 

000001 

001340R 

002432R 

»»**♦*  GX 

001402R 

001474R 

******  GX 

001064R 

000001 

002152R 

000000 

000000 

000000 

000000 

000002 

000010 

000004 

000020 

00001 2R 

000010 

000012 

000014 

000000 

000104 

000044 

000050 

000020 

000046 

000034 

000044 

000070 

000072 

000002 

000042 

000032 

000024 

000006 

000022 

000020 

000006 

000004 

000042 

000036 

000016 

C00100 

000074 

000040 

000000 

000000 
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K!SAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LCSEXT 

LCSINT 

LD$LP  = 

LE.NRH= 

LE.NRO= 

LE.NSH= 

LE.NSO= 

LE.RCO= 

LE.SAE= 

LE.STT= 

LE.XTU= 

LF$END= 

LF$MLT= 

LF$REA= 

LF$SEG= 

LF$SIG= 

LF$SKP= 

LF$VR2= 

LF$ZER= 

LF.ACT= 

LF.BRO= 

LF.8WT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.|V|FL  = 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.nM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

IN.SER= 

LNI.STA= 

LN.SUB= 

LN.TRI= 

LPSMPT^ 

LP$MUX= 

LP$TRB= 

LP$UNT= 


******  GX 

LP$WCN= 

000040 

177546 

LP$WDV= 

000020 

177546 

LP$WLD= 

000360 

000000 

LP$WTR= 

000200 

000074 

LP$WUN= 

000100 

000000 

LTIM 

000014R 

000001 

L$ADJ 

000110 

000000 

LSBUF 

000060 

000200 

L$CHN 

000054 

000001 

L$C0U 

000114 

000002 

L$CTB 

000053 

000020 

L$CTL 

000002 

000040 

L$DDM 

000000 

000004 

L$FLG 

000064 

000010 

L$FLX 

000070 

000100 

LSLTM 

000070 

000020 

L$MSG 

000056 

040000 

LSMTYP 

000067 

000001 

L$NAM 

000000 

100000 

L$NLEN= 

000020 

000040 

LSNOD 

000112 

000004 

L$NXT 

000044 

000010 

L$0PT 

000062 

000002 

L$PAR 

000120 

100000 

L$PDV 

000055 

000400 

L$PFG 

000041 

000007 

LSPLB 

000116 

002000 

L$PRO 

000067 

001000 

LSPVC 

000004 

000100 

L$SCN 

000020 

004000 

L$SCR 

000072 

000020 

LSSLEN 

000066 

000200 

L$SLT 

000042 

040000 

LSSNM 

000046 

010000 

LSSYL 

000122 

000040 

LSTNM 

000052 

000010 

L$TPT 

000050 

020000 

L$TRB 

000040 

000000 

L$TSZ 

000070 

000000 

L$TYP 

00006? 

000005 

L$UNT 

000003 

000004 

L$XLEN 

000124 

000003 

L$$ASG= 

000000 

000005 

L$$DRV= 

000000 

000001 

L$$P11= 

000001 

000000 

L$$11R= 

000000 

000004 

L.BABL 

000062 

000001 

L.BUFU 

000052 

000002 

L.CHA 

000034 

000002 

L.CNTI. 

000024 

000017 

L.COST 

000015 

000360 

L.CRC 

000030 

000006 

L.CRS 

000040 

000010 

L.CTL 

000012 

000004 

L.CVA 

177776 

000002 

L.DDM 

000002 

000001 

L.DD5 

000004 
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SYMBOL  CROSS  REFERENCE 


C  K 

PAGE  8 

CREf   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

T$NRUL 

000007 

#6-63 

TtNVR 

000001 

#6-63 

TSRPRl 

000040 

#6-63 

T$SVC 

000034 

#6-63 

17-778 

17-779 

17-795 

T$T5 

000030 

#6-63 

13-478 

T$T6 

000032 

#6-63 

T.ACT 

000031 

#6-74 

T.CHA 

000032 

#6-74 

T.C5P 

000022 

#6-74 

T.ITM 

000001 

#6-74 

T.QUE 

000024 

#6-74 

6-74 

T.0U2 

=  000026 

#6-74 

T.RTY 

000030 

#6-74 

T.TMR 

000000 

#6-74 

XSSMCB 

-   » t ♦*** 

6-69 

6-69 

X$$TLC 

=  000001 

#4-2 

17-754 

ZF.COU 

=  001000 

#6-65 

ZF.DDM 

=  000001 

#(-69 

ZF.DIA 

=  004000 

#6-69 

ZF.DLC 

=  000002 

#6-69 

ZF.DVP 

-  100000 

#6-69 

ZF.INI 

=  040000 

#6-69 

ZF.KMX 

=  000020 

#6-69 

ZF.LLC 

=  000004 

#6-69 

ZF.LMC 

=  000100 

#6-69 

ZF.MAN 

=  020000 

#6-69 

ZF.MFL 

=  000010 

#6-69 

ZF.MTM 

=  000400 

#6-69 

ZF.MUX 

=  000040 

#6-69 

ZF.PSE 

=  002000 

#6-69 

ZF.SLI 

=  010000 

#6-69 

ZF.TIM 

=  000200 

#6-69 

ZF.X3P 

=  000000 

#6-69 

ZS.ASN 

=  100000 

#6-69 

ZS.BSY 

=  140000 

#6-69 

Z.AVL 

000014 

#6-69 

Z.OAT 

000016 

#6-69 

10-357 

14-523 

17-751 

Z.DSP 

000000 

#6-69 

6-69 

14-521 

14-530 

Z.FLG 

000010 

#6-69 

Z.LEN 

=  000016 

#6-69 

Z.LLN 

000006 

#6-69 

Z.MAP 

000020 

#6-69 

Z.NAM 

000004 

#6-69 

9-255 

17-740 

Z.PCB 

000012 

#6-69 

Z.SCH 

000007 

#6-69 

$C5TA 

-  ♦*«♦*»  G> 

12-445 

SHEADR 

-  **tt**  G> 

10-366 

11-396 

13-476 

14-551 

17-750 


14-578 
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C  15 
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172  000154 

173 

17A       000001 


?U$: 


RETURN 
.END 
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MACRO  CALLS  AND  LOCAL  DATA 


W:^7 


Page  5 


55 
56 
57 
58 
59 
60 
5T 

62  OOOr.OO 

63  000)00 
M   OOQi  00 

65  OOOOUO 

66  000000 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 

.MCALL  MANDf$,SAVRG,RESRG,CIRCX$,UC8Df$,NSFDf$,HDRDF$ 
.MCALL  SAVMAP.RESMAP 


CIRCXS 
HDRDF$ 
MANDFS 
NSFDfS 
UC8Dr$ 


DEFINE  CONTEXT  AREA 

DEFINE  TASK  HEADER  OFFSETS 

DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

DEFINE  NS:  FEATURES  BITS 

DEFINE  UCB  OFFSETS 
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Symbol  table 


1P$SVR 

MPSSWl 

MPtSYP 

MPSTFL 

MP$TH1 

MP$TH2 

MPtTH3 

MPSTLN 

WP$TLO 

MPSTPA 

I«IP$TR1 

UPSTST 

MPSTYP 

MPtUCS 

MPSUSR 

MPIVEC 

MPSVER 

MPtWDF 

MPtWHX 

HPSXMT 

MPSXPF 

MPSXPL 

MP$XPT 

MPSXXX 

NP$5ST 

MSSACT 

MSSADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MStCLE 

MSSDED 

MSSOIE 

MSSDUM 

MSSFAI 

MSSGLO 

MSSHOL 

MSSINA 

WS$LOA 

MSSLOO 

MSSOfF 

MSSON 

MSSPRO 

MSSREA 

MSSREF 

MStRES 

MSSRST 

MSSRSX 

MSSrjr 

MSSSER 
•ISSSHU 
MSSSRV 
MSSSTA 
MSSSVN 
MStTER 
!i15$^0P 


000163 

002260 

002424 

000^56 

002206 

002205 

002202 

000202 

000172 

004375 

002164 

000144 

002130 

004407 

001750 

004410 

004406 

002165 

002177 

002166 

000242 

000244 

000240 

177777 

004406 

000001 

000010 

000007 

000006 

000011 

OOOOOC 

000003 

000004 

000003 

000004 

000013 

000000 

000002 

000002 

000003 

000002 

000001 

000000 

000006 

000004 

000001 

000003 

000001 

000002 

000005 

000002 

000002 

000007 

000000 

000012 

000001 

000003 


MSSTRl 

000005 

MSSUNR 

000005 

«S$VMS 

000004 

MS. DON 

177600 

MS.MOR 

000002 

MS. PAR 

000003 

MS. sue 

000001 

MT$AR4 

000003 

MTSASC 

000100 

MTSBIL 

000001 

MISBYS 

000011 

MT$C1 

000007 

MTSCLE 

0C0077 

MTSCOD 

000200 

MTJCON 

000001 

MTSDHC 

000004 

MTtETH 

000006 

HTSHEX 

000040 

MTSLPB 

000005 

MTSMAX 

000037 

MTSMUL 

000100 

HTSNLE 

000017 

MTtNON 

000001 

MT$NR4 

000005 

MTSNTY 

000060 

MTSOCT 

000060 

HTSPHA 

000002 

MTSPOI 

000000 

MT$QP2 

000010 

HTSROU 

000000 

HT$R04 

000004 

MTSSEC 

000000 

HTSSGD 

000020 

MTSSYS 

000002 

MT$TER 

000001 

HTSTRI 

000002 

MTiTYP 

007777 

MTSUSD 

000000 

MT$X25 

000003 

MUSING 

000001 

MUIOUT 

000002 

HUSPER 

OOOCOO 

HVSIII 

000000 

MVSIV 

000001 

MXBACT 

001400R 

HXDTE  = 

000017 

MXRACT 

001042R 

HXWACT 

001054R 

MXSACT 

000020 

MXtClR 

000020 

HXSCLN 

000020 

MXSCNM 

000006 

MXSCON 

000006 

MXtDAC 

000020 

MXSDTt 

000020 

HXSFIL 

000034 

MXSLGC 

000777 

MXSLIN 

000020 

PNAERR 

000462R 

STH3 

001434R 

002 

Mi;$L0N 

000006 

PVAERR 

000470R 

SXMT 

001172R 

002 

MX$NMS 

000454 

P$$P45= 

000000 

S$$WRG= 

992982 

nXSNOD 

000006 

P$$URD= 

000000 

S$$VSZ= 

007600 

MX$OBJ 

000006 

Q$$OPT= 

000010 

S.COST 

000001 

MXSOUN 

000040 

RETACT 

001066R 

S.FLG 

000000 

MXSPAR 

000036 

R$PC  = 

»*♦***  GX 

S.LEN 

000004 

MXSPAS 

000010 

R$$DER- 

000000 

S.NMST 

29999i 

MXSRAC 

000047 

R$$Kn  = 

000001 

S.OWNR 

000003 

nxSRID 

000047 

R$$SND= 

000000 

S1.DEC= 

001000 

nxSRPS 

000047 

RS$nM= 

000000 

S1.DPR= 

000400 

MXSSiD 

000040 

SACT 

001022R 

002 

S1.DSI= 

991922 

MXSSNK 

000377 

SALL 

000462R 

002 

S1.ESC= 

000002 

MXSTYP 

000077 

SAL  LI 

000466R 

OS? 

S1.IBF= 

002000 

nxsuiD 

000020 

SBBT 

001126R 

002 

S1.IBY= 

000200 

H$$CRB= 

000124 

SBLK 

001500R 

002 

S1.0BY= 

000100 

M$$CRX= 

000000 

SBSA 

'001214R 

002 

S1.PTH= 

000010 

M$$FCS- 

000000 

SBSD 

001236R 

002 

S1.RES= 

010000 

M$$MGE= 

000000 

3BS1 

001260R 

002 

S1.RNE= 

000020 

M$$NET= 

000000 

SCHN 

001542R 

002 

S1.RNF= 

020000 

H$$OV?= 

000000 

SCMB 

0015&4R 

002 

S1.RSP= 

000004 

NF$ACC= 

100000 

SCOS 

000550R 

002 

S1.RST= 

909221 

NF$EVT= 

040000 

SCUS 

001606R 

002 

S1.TNE= 

040000 

NF.ACC= 

000001 

SDTE 

001662R 

002 

S1.TSY= 

000040 

NF.BCP= 

000040 

SETCIR 

OOOOOOR 

002 

S1.US1= 

100000 

NF.END= 

000200 

SFSANM 

000001 

S2.BEL= 

020000 

NF.EVT= 

000002 

SFSDNM 

000002 

S2.BRQ= 

000020 

NF.LL1= 

000004 

SF.ACT= 

000200 

S2.CR  = 

002000 

NF.LV2= 

0001 oc 

SF.ENA= 

000100 

S2.CT0= 

040000 

NF.SLJ= 

000400 

SF.LPB= 

000004 

S2.CTS= 

100000 

NF.SMC= 

000020 

SF.HFL= 

000040 

S2.ELF= 

001000 

NF.SWP= 

000010 

SF.PAC= 

000020 

S2.FLF= 

000400 

NHTACT 

001222R 

SF.REA= 

000010 

S2.1RQ= 

000200 

NM.CLN 

003400 

SF.SER= 

000001 

S2.0BF= 

004000 

NM.JNI 

002400 

SF.SVC= 

000002 

S2.0RQ= 

000100 

NM.OPR 

003000 

SF.UNL= 

000040 

S2.PCU= 

010000 

NH.VR2 

002401 

SHTH 

000654R 

002 

S2.RCU= 

000001 

NM.VR3 

002402 

SINA 

001302R 

002 

S2.SRQ= 

000040 

NODACT 

000230R 

SIND 

001324R 

002 

S2.WAL= 

000010 

NODNAM 

000774R 

002  SINI 

001346R 

002 

S2.URA= 

000006 

NODOUN 

000760R 

002  SLCT 

000626R 

002 

S2.URB= 

000002 

NUMAC  T 

000774R 

SLOC 

001042R 

002 

S3.ACR= 

000001 

NXT$$$= 

000000 

SLTM 

000702R 

002 

S3.CTC= 

999921 

N$$ACC= 

000001 

SMXB 

001456R 

002 

S3.FDX= 

000200 

N$$BUF= 

000001 

SMXR 

001 71  OR 

002 

S3.ICE= 

001000 

N$$LDV= 

000001 

SMXW 

001732R 

002 

S3.MHE= 

000400 

N$$MCP= 

000001 

SNMT 

001150R 

002 

S3.NEC= 

000020 

N$$MLL= 

000001 

SNUM 

001754R 

002 

S3.PPT= 

020000 

N$$MOV= 

000010 

SOWN 

000720R 

002 

S3.PTH= 

004000 

N$$NCT= 

000001 

SPLT 

001104R 

002 

S3.RAL= 

000010 

N$$PEM= 

000001 

SRET 

002002R 

002 

S3.RES= 

010000 

OWNACT 

000256R 

SSER 

000570R 

002 

S3.RUB= 

040000 

PAREND 

000536R 

SSTA 

000474R 

002 

S3.TAB= 

900992 

PCKBCD 

00n04R 

STAD 

001002R 

002 

S3.TME= 

002000 

PDVID  = 

«»♦*♦*  GX 

STA$$$= 

000000 

S3.TSY= 

000040 

PDVTA  = 

******   GX 

STH1 

001370R 

002 

S3.8BC= 

000100 

PLTACT 

0011 76R 

STH2 

001412R 

002 

S4.ABD= 

100000 

CKHIN  -  CIRCUIT  CHANGE  PARAMET  MACRO  V05.03b  Saturday  29-Jun-85 


12:10  Page  42-5 


D    2 

CKHIN  CREATED  BY     MACRO     ON  29-JUN-85  AT   12:11  PAGE   11 

MACRO  CROSS  REFERENCE  CREF       OA.OO 

MACRO  NAME  REFERE.'jCES 

3-208  9-216  9-219  9-226  9-228  9-229  9-231  9-233  9-23?  9-2^1 

9-2A6  9-2^8  9-249  9-254  9-256  9-257  9-262  9-264  9-265  9-270 

9-272  9-277  9-279  9-280  9-282  9-283  9-285  9-286  9-288  9-293 

9-295  9-300  9-302  9-307  9-309  9-310  9-311  9-316  9-318  9-323 

9-325  "-330  9-332  9-337  9-339  9-344  9-346  9-35  9-353  9-358 

9-360  9-365  9-367  9-372  9-374  9-379  9-381  9-386  9-388  9-393 

9-395  9-400  9-402  9-407  9-409  9-414  9-416  9-4  7  9-4  8  9-423 

9-425  9-^:0  9-432  9-437  9-439  9-440  9-441  9-442  9-44^  9-449 

9-450  9-455  9-457  9-46,?  9-464  9-469  9-471  9-472  9-477  9-479 

9-^84  9-487  9-492  9-497 

MANDFS  #5-57  5-62 

NSFDFS  #5-59  5-63 

NTLDFS  #5-57  5-64 

NTRANS  #8-82 

PDVDFS  #5-58  5-65 

PVCDFS  #5-57  5-66 

RESRG  #5-58  13-680 

RETURN  *10-585  12-633  13-698  15-768  16-789  19-869  20-890  21-908  22-935  23-961^ 

HtiUKN  iu_30|  i^_oj^  ^^.^013  27-1054         28-1072         29-1090         30-1108         31-1126         32-1144         33-1162 

34-1180        35-1198  36-1216  37-1234         38-1252         39-1270         40-1288         41-1306 
SAVRG                       #5-58               13-675 
SLTDFS                     #5-58                5-67 

TYP$$$  #8-88^^  #8-90  #8-94  #8-97  #8-100  #8-103  #8-106  #8-109  #8-112  #8-115 

#8-118  #8-121  #8-124  #8-127  #8-13C  #8-133  #8-136  #8-139  #8-42  #8-45 

#8-148  #8-151  #8-154  #8-157  #8-160  #8-163  #8-166  #8-169  #8-172  #8-175 

#8-78  #8-181  #8-184  #8-137  #8-189  #8-194  #8-197  #8-200  #8-207  #8-208 

#9-216  #9-219  #9-226  #9-228  #9-229  #9-231  #9-233  #9-239  #9-241  #9-246 

#9-248  #9-249  #9-254  #9-256  #9-257  #9-262  #9-264  #9-265  #9-270  #9-272 

lc,477  #9-279  #9-280  #9-282  #9-283  #9-285  #9-286  #9-288  #9-293  #9-295 

#9-300  #9-302  #9-307  #9  309  #9-310  #9-311  #9-316  #9-318  #9-323  #9-325 

#9-330  #9-332  #9-337  #9-339  #9-344  #9-346  #9-351  #9-353  #9-358  #9-360 

#9-365  #9-367  #9-372  #9-374  #9-379  #9-381  #9-386  #9-388  #9-393  #9-395 

#9-400  #9-402  #9-407  #9-409  #9-^14  #9-416  #9-417  #9-418  #9-423  #9-425 

#9-430  #9-432  #9-437  #9-439  #9-4.0  #9-441  #9-442  #9-447  #9-449  #9-450 

#9-455  #9-457  #9-462  #9-464  #9-469  #9-471  #9-472  #9-477  #9-479  #9-484 

#9-487  #9-492  #9-497 

SBYTE*  #8-82  9-228  9-229  9-231  9-248  9-249  9- ?79  9-280  9-288  9-309 

9-310  9-416  9-417  9-439  9-440  9-441 

$EOK  #8-82  8-207  9-216  9-484 

SERROR  #8-82  8-208  9-219  9-487 

ffi^H  ttM  tWe  VAl  ^:'2^1  9-318  9-325  9-332  9-339  9-346  9-353 

'9-3^0  9-367  9-374  9-381  9-388  9-395  9-402  9-409  9-425  9-432 

9-457     9-464  9-479  _      _  .  . 

$NEXT         #8-82      8-92  8-95  8-98 

8-119  8-122  8-125  8-128 

8-149  8-152  8-155  8-158 

8-179     8-182     8-185  8-188 

SNULL         #8-82      8-189     9-233  9-257 


8-101 

8-104 

8-107 

8-110 

8-113 

8-116 

8-131 

8-34 

8-137 

8-40 

8-143 

8-146 

8-161 

8-164 

8-167 

8-70 

8-173 

8-176 

8-195 

8-198 

8-201 

9-265 

9-272 

9-283 

9-286 

9-311 

9-418 

E 
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2AA  000372 

245  00037A 

246  000376 
2A7  000400 
248  000402 
249 

250 
251 

252  000404 

253  000412 

254  000414 

255  000420 

256  000422 

257  000426 

258  000430 

259  000432 

260  000434 

261  000436 


005303 
111501 
112523 
005301 
002375 


132764 
001402 

010302 
016403 
160302 
•'05713 
100001 
000261 


30S: 


000360  000041  40$: 


000060 


50$: 


60$: 


DEC 

R3 

M0V8 

(R5),R1 

M0V8 

(R5)+,(R3)+ 

DEC 

R1 

BGE 

30$ 

.ENDC 

;  NDF  R$$PRO 

BITB 

#LP$WLD,l$PFG(R4) 

BEO 

50$ 

CALL 

rMTLIN 

MOV 

R3.R2 

MOV 

Li8UF(R4),R3 

SUB 

R3,R2 

TSTB 

(RJ) 

BPL 

60$ 

SEC 
RETURN 


ELSE,  BACK  UP  BUFFER  POINTER 
GET  THE  STRING  LENGTH 
SET  MESSAGE  IN  BUFFER 


IS  THIS  A  MULTIPLE  CIRCUIT  REQUEST  ? 

IF  EQ,  NO  -  DON'T  FORMAT  CIRCUIT-ID 

ELSE,  FORMAT  CIRCUIT-ID  STRING 

SAVE  CURRENT  PLACE  INTO  BUFFER 

RESTORE  BiiFFf-n  POINTER 

CALC  MESSAGE  Lt\:TH 

WAS  OPERATION  A  SUCCESS  ? 

IF  PL,  SUCCESS 

ELSE,  FAILURE 


CICHOP 
n^DTru 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

LSSCUS 

=  000004 

#7-73 

7-73 

LSSDDT 

=  001000 

#7-73 

LSSDEA 

=  000100 

#7-73 

LSSDLM 

=  001004 

#7-73 

LSSDLT 

=  002000 

#7-73 

LSSDTE 

=  000010 

#7-7^ 

7-73 

LSSHBT 

=  000400 

#7-73 

LSSHTM 

=  010000 

#7-73 

8-124 

LSSINA 

=  000010 

#7-73 

8-115 

LSSIND 

=  000020 

#7-73 

8-116 

LStlNI 

=  000040 

#7-73 

8-117 

LS$LCT 

=  020000 

#7-73 

7-73 

LS$LMB 

=  000002 

#7-73 

LSSLOO 

=  040000 

#7-73 

LSSMDT 

=  020000 

#7-73 

LSSMRT 

=  000020 

#7-73 

LSSMWN 

=  000040 

#7-73 

LSSMXB 

=  001000 

#7-73 

8-121 

LSSMXR 

=  000020 

#7-73 

7-73 

7-73 

LStMXW 

=  000040 

#7-73 

7-73 

7-73 

LSSNMT 

=  020000 

#7-73 

8-100 

LSSNOR 

=  100000 

#7-73 

LSSNTi 

=  000200 

#7-73 

LSSNTL 

=  000001 

#7-73 

8-86 

12-357 

LSSNUM 

=  000100 

#7-73 

7-73 

LSSOWN 

=  000010 

#7-73 

8-89 

LSSPLT 

=  004000 

#7-73 

LSSPRO 

=  010000 

#7-73 

LStPVC 

=  020053 

#7-73 

LSSRET 

=  000200 

117-71 

7-73 

7-73 

LSSSER 

=  100000 

117-71 

8-103 

LStSTA 

=  000002 

117-71 

8-95 

11-322 

LSSSVC 

=  000362 

#7-73 

LSSTAD 

=  000020 

#7-73 

8-91 

LS$TH1 

=  000100 

#7-73 

8-118 

LS$TH2 

=  000200 

#^-73 

8-119 

LSSIH? 

=  000400 

#7-73 

8-120 

LSSXMT 

=  040000 

#7-73 

8-101 

IS. AST 

=  100000 

#6-66 

LS.CEX 

=  000001 

#6-66 

LS.CIR 

=  000010 

#6-66 

LS.CXO 

=  010000 

#6-66 

LS.CX5 

=  000400 

116-66 

LS.DLM 

=  004000 

#6-66 

LS.ECH 

=  001000 

#6-66 

LS.FDX 

=  004000 

#6-66 

LS.HDX 

=  010000 

#6-66 

LS.LIN 

=  000003 

#6-66 

LS.LMC 

=  000007 

#6-66 

L3.NTI 

=  004000 

#6-66 

LS.SN 

=  000011 

#6-66 

LS.OPT 

=  000400 

#6-66 

7-73 


CICHOP 
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Context  area  definition 


000020 
OOOOAO 
000100 
000200 
000560 


000001 
000002 
OOOOOA 
000010 
000020 
OOOO'.O 
000100 
C00200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000010 
C00020 
000040 
000100 
000200 
000400 
001000 
010000 
020000 
040000 
100000 


LPSWDV 
LPJWCN 
LPSWUN 
LPSWrR 
LP$ULD 


20 
40 
100 
200 


WILy  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


LP$WDVILP$WCN!Lf'iWUN!LP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LSSNTL^ 
LSSSTA: 
LSSCOS^ 
LSJOWN^ 
LSSTAD^ 
LSSACT^ 
LSSDEA^ 
LCSNTL^ 
LCSOWN^ 
LSSDDT 
LSSDLT 
LSSPLT 
LSSBBT 
LSSNMT 
LSSXMT 
LSSSER 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

:20000 

-40000 
=100000 


NTL  SET  FUNCTION 

SET  STATE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLED 


FLAGS  WORD  BIT  DEFINITIONS  (L$FL1) 


LS$BSA= 
LS$BSD= 
LS$BSI= 
LS$INA= 
LSIIND= 
LS$INI= 
LS$TH1= 
LS$TH2= 
LS$TH3= 
LS$MXa= 
LS$HTM= 
LSIMDT^ 
LSSLOO^ 
LS$NOR= 
.IF  DF 


1 
2 
4 

10 
20 
40 
100 
200 
400 
1000 
10000 
20000 
40000 
100000 
R$$PR0 


PRO/DECNET 


SET  ACTIVE  BASE 
SET  DYING  BASE 
SET  INACTIVE  BASE 
SET  ACTIVE  INCREMENT 
SET  DYING  INCREMENT 
SET  INACTIVE  INCREMENT 
SlT  DEAD  THRESHOLD 
SET  DYING  THRESHOLD 
SET  INACTIVE  THRESHOLD 
SET  MAXIMUM  BLOCKS 
SET  HELLO  TIMER 
SET  MODEM  TEST 
SET  CONTROLLER  LOOPBACK 
SET  CONTROLLER  NORMAL 


LOOPBACK  TYPE  WORD  BIT  DEFINITIONS  flSLTY) 


LS$INT 
LSSEXl 


INTERNAL  LOOPBACK 
EXTERNAL  LOOPBACK 


MODEM  TEST  TYPE  WORD  BF  D"INITIONS  (L$MDT> 


LSSLCL  =  0 
LSSREM  =  1 
LSSOFF  =  2 
.ENDC   ;  DF  R$$PRO 


LOCAL  MODEM  TEST 
REMOTE  MODEM  TEST 
SHUT  OFF  MODEM  TESTS 


F  lags  word  bit  ae: 


ions  for  X.25  circuits  and  lines  (LSFLX) 
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505 

506 

507 

508 

509 

510 

511 

512 

513 

5U 

515 

516 

517 

518 

519 

520 

521 

522 

523 

52A 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

5A0 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 


001534 


001534 
001536 
001540 
001544 
001546 
001552 
001554 
001560 
001562 
001566 


001570 
001574 
001576 
001602 


001604 
001610 
001616 
001622 


001624 
001 63C 
001632 
001636 
001640 
001644 
001650 
•;01654 


.SBTTL  STAON  -  REQUEST  CIRCUIT  STATE  "ON" 

'*»-SrAON-REQUEST  CIRCUIT  STATE  TO  "ON" 

THIS  ROUTINE  IS  CALLED  TO  CHECK  THE  CURRENT  CIRCUIT  STATE,  AND 
IF  LEGAL,  CHANGE  IT  TO  ON. 

INPUTS: 


R2  =  ADDRESS  OF  STATE/OWNER  WORD  IN  SLT 
R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

IF  CC,  SUCCESS 

ELSE,  RO  CONTAINS  ERROR  CODE 


011201 

010100 

142701  177417 

140100 

120027  000000 

001454 

120027  000001 

001403 

120027  000002 

001006 


120127  000040 

001003 

112712  000040 

000440 


012700  177765 

012764  000003  000072 

116201  000001 
001427 


120164  000055 
001412 


STAON: 

CHE.K  FOR  ILLEGAL  STATES 

MOV  (R2),R1 

MOV  R1,R0 

BICB  *''C360,R1 

BICB  R1,R0 

CMPB  R0.*MS$O,>; 

BEQ  100$ 

CMPB  R0,/»MS$OFF 

BEQ  10$ 

CMPB  RO,#MS$SER 

BNE  20$ 


GET  CURRENT  STATE  AND  OWNER 

ISOLATE  SUB-STATE  BITS 

ISOLATE  STATE  BITS 

IS  THE  CIRCUIT  aLi^EADY  ON  ? 

IF  EQ,  YES  -  NO-OP 

ELSE,  IS  STATE  OFF  ? 

IF  EQ,  YES  -  PROCEED 

ELSE,  IS  IT  SERVICE  STATE  ? 

IF  NE,  NO  -  ILLEGAL  STATE 


IF  SUB-STATE  =   REFLECTING,  JUST  SET  STATE  TO  ON  AND  RETURN 


10$:    CMPB  R1,*<LN.REF*20> 

BNE  20$ 

MOVB  #<LN.REF*20IMS$0N>,(R2) 

BR  100$ 

MAKE  SURE  CIRCUIT  HAS  AN  OWNER 

50$:    MOV  #ME.CST,RO 

MOV  #ME$CIR,L$PAR(R4) 

MOVB  1(R2),R1 

BEQ  90$ 


IS  THE  SUB-STATE  REFLECTING  ? 
IF  NE,  NO  -  CONTINUE  WITH  SCAN 
ELSE,  SET  NEW  STATE  TO  ON,  REFLECTING 
AND  RETURN 


ASSUME  CIRCUIT  IS  WRONG  STATE 

GET  THE  CIRCUIT  OWNER'S  PDV  INDEX 
IF  EQ,  NO  OWNER  SET  -  ERROR 


REASSIGN  THE  CIRCUIT  TO  IT'S  TRUE  OWNER 


067701  OOOOOOG 
011101 

016101  000004 

012700  017020 

103404 


CMPB 

BEQ 

ADD 

MOV 

MOV 

MOV 

CALL 

BCS 


R1,LSPDV(R4) 

30$ 

aPDVTA.RI 

(Rl),Rf 

Z.NAM(R1),R1 

#<36*400!20>,R0 

DLXQIO 

40$ 


IS  THE  OWNER  ALREADY  CORRECT 

IF  EQ,  YES  -  SKIP  REASSIGN 

GET  THE  OWNER'S  PDV  ADDRESS 

POINT  TO  THE  PDV 

GET  THE  RAD50  OWNER  NAME 

SET  REASSIGN  FUNCTION  CODE 

ISSUE  QIO 

IF  CS,  OPERATION  FAILED 


RJK08 


TELL  DLX  TO  TURN  THE  CIRCUIT  ON 
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ETOWN  -  SET  CIRCUIT  OWNER 


988 

989 

990 

991 

992 

993 

99.'. 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

100A 

1005 

1006 

1007 

1008 


0001 3A  012700  017020 

OOOHO  116^01  000102 

OOOHA  067701  OOOOOOG 

000150  011101 

C00152  016101  000004 

000V^6 

000162  103A13 


00016.  105762  OOOOH 

000170  001 OOA 

000172  116462  000102  000021 

000200  000407 

000202  116463  000102  000003 

000210  000403 

000212  012700  177747 

000216  000261 

000220 


30$: 


MOV 

Move 

ADD 

MOV 

MOV 

CALL 

BCS 


#<36*400I20>,R0 

L$0WN(R4),R1 

aPDVTA.RI 

(RD.rI 

Z.NAM(R1),R1 

OLXQIC 

50$ 


SET  NEW  OWNER  IN  SLT 


TST3 
BNE 
MOVB 
BR 
40$:    MOVB 

BR 
50$:    MOV 
60$:    SEC 
70$:    RETURN 


L.NSTA(R2) 

40$ 

L$OWN(n4),L.NMST+1(R2) 

70$ 

L$0WN(R4),S.NMST+1(R3) 

70$ 

#ME.0PE,R0 


SET  REASSIGN  FUNCTION  CODE 

GET  OWNER  PDV  ID 

POINT  TO  PDV  ADDRESS         ;  RJK08 

GET  PDV  ADDRESS 

GET  RAD50  PROCESS  NAME 

ISSUE  REASSIGN 

IF  CS,  OPERATION  FAILED 


MULTIPOINT  CIRCLIT  ? 

IF  NE,  YES 

ELSE,  SET  THE  OWNER  FOR  THE  CIRCUIT 

AND  RETURN 

SET  THE  NEW  OWNER 

SET  OPERATION  FAILED  ERROR 
FAILURE 


.IF  NDF  S$$8AS  8  R$$RTR  &  R$$PRO 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

LPSWDV 

=  000020 

#6-86 

6-86 

LPSULD 

=  000360 

#6-86 

LPSUTR 

=  000200 

#6-86 

6-86 

LPtUUN 

=  000100 

#6-86 

6-86 

LR.AST 

000026 

#5-71 

LR.CIR 

000002 

#5-71 

LR.CTL 

OOOOO'. 

#5-71 

»11-229 

LR.EFN 

000004 

#5-71 

LR.LIN 

000002 

#5-71 

♦11-228 

LR.PRM 

000030 

#5-71 

LR.PRO 

00u002 

#5-71 

LR.STS 

000000 

#5-71 

9-169 

LR.TCB 

000002 

#5-71 

LR.UNT 

000005 

#5-7i 

♦  11-230 

LSSACT 

=  000040 

#6-86 

LSSBBT 

=  010000 

#6-86 

LSSBLK 

=  001000 

#6-86 

6-86 

LSSBSA 

=  000001 

#6-86 

LSSBSD 

=  000002 

#6-86 

LSSBSI 

=  000004 

#6-86 

LSSCHN 

=  000001 

#6-86 

6-86 

LSSCMB 

=  000002 

#6-86 

6-86 

LSSCOS 

=  000004 

#6-86 

LSSCUS 

=  000004 

#6-86 

6-86 

LSSDDT 

=  001000 

#6-86 

LSSDEA 

=  000100 

♦  6-86 

LSSDLM 

=  001004 

#6-86 

LSSDLT 

=  002000 

#6-86 

LSSDTE 

=  000010 

#6-86 

6-P6 

LSSHBT 

=  000400 

#6-86 

LSSHTM 

=  010000 

#6-86 

LSSINA 

=  000010 

#6-86 

LSSIND 

=  000020 

#6-86 

LSSINI 

=  000040 

#6-86 

LSSLCT 

=  020000 

#6-86 

6-86 

LSSLMB 

=  000002 

#6-86 

LSSLOO 

=  040000 

#6-86 

LSIMDT 

=  020000 

#6-86 

LSSMRT 

=  000020 

#6-86 

LSSMUN 

=  000040 

#6-86 

LSSMXB 

=  001000 

#6-86 

LSSMXR 

=  000020 

#6-86 

6-86 

LSSMXW 

=  000040 

#6-86 

6-86 

LSSNMT 

=  020000 

#6-86 

LSSNOR 

=  100000 

#6-86 

LSSNTI 

-  000200 

#6-86 

LSSNTL 

=  00C0C1 

#6-86 

LSSNUM 

=  900100 

#6-86 

6-86 

LSiOM 

=  C00010 

#6-86 

LS$PLT 

=  004000 

#6-86 

LSSPRO 

=  010000 

#6-86 

LSSPVC 

=  020053 

#6-86 

10-201 


23-1086    23-1091 


6-86 


6-86 


6-86 
6-86 


6-86 


CICHPD 
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Context  area  definition 

000125 
000126 
000127 
000130 
000131 
000132 
000133 
000134 
C00166 
000224 
000226 
000230 
OOJ250 
000232 
00023A 
■>00234 
J00236 
000236 
000240 
000240 
000250 
000252 
000252 
000255 
000253 
000254 
000256 
000256 
000260 
000262 


000264 
000000 


000001 
000002 
000004 


000010 
O'.OOOO 
100000 


000001 
000002 
000004 
000010 


LIINA 

.BLKB   1 

DMP  ACTIVE  INCREMENT 

L$IND 

.BLKB 

DHP  DYING  INCREMENT 

L$IN1 

.BLKB 

DMP  INACTIVE  INCREMENT 

L$TH1 

.BLKB 

DMP  DEAD  THRESHOLD 

L$TH2 

.BLKB 

DMP  DYING  THRESHOLD 

L$TH3 

.BLKB   1 

DMP  INACTIVE  THRESHOLD 

L$MXB 

.BLKB   1 

DHP  MAXIMUM  BLOCKS 

LSNTL 

.BLKU   1 

3. 

NTL  MESSAGE  BUFFER 

L$SCR 

.BLKW   1 

5. 

SCRATCH  BUFFER 

L$LCT 

.BLKU 

COUNTER  TIMER 

L$HTH 

.BLKW   1 

HELLO  TIMER 

LSSER 

SERVICE 

LSLTM 

.BLk'W 

LISTEN  TIMER 

LIXCH 

.BLKW   1 

X25  Logical  Channel  Number  (LCN) 

LSLHB 

X25  Max  Block  (Line) 

L$CM8 

.BLKW 

X25  Max  Data  (Circuit) 

LSNUKl: 

DLM  Number  length 

LSDTEL:  .8LKW 

X25  DTE  length  (Circuit) 

L$NUM 

DLM  Number 

LSDTE 

.BLKB   ! 

1, 

X25  DTE  (Circuit) 

LSDTEP:  .8LKU 

X25  Pointer  to  DTE  descriptor  (Circuit) 

LSnWN 

•  X25  Max  Window  (Line) 

LSMXW 

.BLKB 

•  X25  Max  Window  (Circuit) 

LSMRT 

•  X25  Max  Retransmits  (Line) 

L$MXR 

.BLKB 

•  DLM  Max  Recalls  (Circuit) 

L$HBT 

.BLKW 

•  X25  Holdback  Timer  (Line) 

LSNTI 

■  X25  Retransmit  Timer  (Line) 

LIRET 

.BLKW 

;  DLM  Recall  Time.-  (Circuit) 

LSCUS 

■   .BLKW 

;  DLM  Usage 

L$BLK 

•   .BLKU 

;  DLM  blocking  state 

.IF  DF 

1$$PR0   ;PRO/DECnet 

LSLTY 

•   .BLKW 

;  Loopback  Type 

L$MDT 

;   .BLKW 

;  Modem  Test 

.ENDC 

•  DF  R$$PRO 

.EVEN 

LSLEN: 


.PSECT 


;  LENGTH  OF  CONTEXT  AREA 


;  FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LFiREA  =  1 
LF$ZER  ---  2 
LFSSKP  :  4 


LF$VR2  --  10 
LFSMLT  =  40000 
LF$SEG  =  100000 

PARSE  FLAG  DEFINITIONS  (LIPFG) 


LPSUNT 
LPSTRB 
LPSMUX 
LPSMPT 


=  1 

-   £. 

=  4 

=  10 


READ  COUNTERS  OPERATION 
ZERO  COUNTERS  OPERATION 
SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSION  2.0  NCP 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  PROGRESS 


UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUrJD 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
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A$$CHK= 

000000 

HSFLG 

000000 

LF.X2P= 

9259SS 

LS$NTL= 

299?9J, 

AtSCPS- 

000000 

HSGLEN 

000104 

LN.CLO= 

000000 

LS$NUM= 

000100 

At$PR!= 

000000 

HSGLT 

000044 

LN.DUH= 

000005 

LS$0WN= 

000010 

A$$TRP= 

000000 

HSGNAM 

000050 

LN.LOA= 

000004 

LS$PLT= 

004000 

cf$blk:= 

000102 

H$GNML= 

000020 

LN.LOO= 

92929^ 

LS$PR0= 

010000 

CICHPX 

000200RG 

HSGPT 

000046 

LN.OAU= 

000003 

LS$PVC= 

020053 

CKCSTA 

000536R 

HlHITS 

000034 

LN.OFF= 

000001 

LS$RET= 

000200 

CKDSVC 

001012R 

HSHLEN 

000044 

LN.ON  = 

000000 

LS$SER= 

100000 

C$DTE 

000012 

HSLBDA 

000070 

LN.OOP= 

000004 

LS$STA= 

000002 

C$FLG 

000015 

HSLBDN 

000072 

LN.OPE= 

000001 

LS$SVC= 

000362 

CSGNAM 

000016 

HSLDTE 

000002 

LN.REF= 

000002 

LS$TAD= 

000020 

CILCN 

000010 

HSLEN 

000042 

LN.SER= 

000002 

LS$TH1= 

000100 

CSLEN 

000016 

HSLOTS 

000032 

LN.STA= 

000017 

LS$TH2= 

000200 

C$LNK 

000000 

HSNETU 

000024 

LN.SUB= 

000360 

LS$TH3= 

000400 

CSNAH 

000002 

HSNHL  = 

000006 

LN.TRJ= 

000006 

LS$XMr= 

040000 

CSNML 

000002 

HSNPT 

000022 

LP$MPT= 

000010 

LSACT 

000104 

C SPORT 

OOOOU 

HSPTB 

000020 

LP$HUX= 

000004 

LSBBT 

000114 

C$$CKP= 

000000 

HSPVC 

000006 

LP$NXC= 

100000 

LIBLK 

000262 

C$$ORE= 

OOOAOO 

HSRDTE 

000004 

LP$TRB= 

000002 

LSBSA 

000122 

C$$RSH= 

17756A 

HSRNUI 

000042 

LP$UNT= 

000001 

L$BSD 

000123 

D$$BUG= 

1775U 

HSSVC 

000036 

LP$UCN= 

000040 

LSBSl 

000124 

D$$ISK= 

000000 

HSTRB 

000016 

LP$WDV= 

000020 

LSBUF 

9999^0 

0$$L11= 

000001 

HSXAVL 

000100 

LP$ULD= 

000360 

LSCHN 

000054 

D$$YNC= 

000000 

HSXBIA 

000074 

LP$WTR= 

000200 

LSCMB 

000234 

D$$yfJM= 

000000 

H$X29C 

000C40 

LP$UUN= 

000100 

LSCOS 

000101 

ESNBR 

OOOOU 

I$$RAR= 

000000 

LS$ACT= 

000040 

LSCTB 

000053 

ESNBS 

000020 

I$$RDN= 

000000 

LS$BBT= 

010000 

LSCTL 

000002 

ESNCR 

000034 

KISAR6= 

**»•*•  GX 

LS$BLK= 

001000 

L$CUS 

000260 

ESNCS 

000036 

K$*CNT= 

177546 

LS$BSA= 

000001 

LSDDM 

000000 

ESNIC 

000044 

K$$CSR= 

177546 

LS$BSD= 

000002 

LSDDT 

99919$ 

ESNLEN 

000050 

K$$LDC= 

000000 

LS$BS]= 

000004 

LSDEA 

000105 

ESNLLA 

000012 

K$$TPS= 

000074 

LS$CHN= 

000001 

LSDLT 

000110 

ESNLNK 

000000 

LCSEXT 

000000 

LS$CHB= 

000002 

LSDTE 

999?^o 

ESNML 

000040 

LCSINT 

000001 

LSSCOS- 

000004 

LSDTEL 

000236 

ESNMR 

000024 

LCSNTL^ 

000200 

LS$CUS= 

000004 

LSDTEP 

000250 

ESNMS 

000030 

LC$OWN= 

000400 

LS$DDT= 

001000 

LSFLG 

9999§'' 

ESNNOD 

000002 

LDSLP  = 

000000 

LS$DEA= 

000100 

LSFLX 

000076 

ESNR'' 

000042 

LFI,1LT= 

040000 

LS$DLH= 

001004 

LSFLl 

000066 

ESNRTP 

000005 

LF$REA= 

000001 

LS$DLT= 

002000 

L$FL2 

000070 

ESNSEG 

000010 

LF$SEG= 

100000 

LS$DTE= 

000010 

LSHBT 

000254 

ESNTIM 

000046 

LF$SKP= 

000004 

LS$H8T= 

000400 

LtHTM 

000226 

ESNUSE 

000004 

LF$VR2= 

000010 

LS$HTM= 

010000 

LSINA 

000125 

ESSTRT 

000006 

LF$ZER= 

000002 

LS$1NA= 

000010 

LUND 

000126 

E$$XPR= 

000000 

LF.ACT= 

100000 

LS$IND= 

000020 

LSINI 

000127 

FNDCTR= 

*♦**♦♦  GX 

■  '^.8R0= 

000400 

LS$IN]= 

000040 

LSLCT 

999??^ 

F$$LVL= 

000001 

.BWT= 

000007 

LS$LCT= 

020000 

LSLEN 

000264 

G$$TPP= 

000000 

.F.ENA= 

002000 

LS$LH8= 

000002 

LSLHB 

000234 

G$$TS3^ 

000000 

LF.LPB= 

001000 

LS$LO0= 

040000 

LSLTM 

000230 

G$$TTK 

000000 

LF.MDC= 

000100 

LS$MDT= 

020000 

.$MRT 

000253 

GSSURD 

000000 

LF.MFL= 

004000 

LS$HfiT= 

000020 

LSMSG 

000056 

HFSDLI* 

000002 

LF.MTP= 

000020 

LS$HWN= 

000040 

LSMTYP 

000075 

HFIGWY 

000010 

LF.PAC= 

000200 

LS$MXB= 

001000 

LSMWN 

000252 

HFSHO? 

000004 

LF.RDY= 

040000 

ls$m;;r= 

000020 

LSHXB 

000133 

HFSXD' 

OC0020 

LF.REA= 

010000 

LS$MXW= 

000040 

LSMXR 

999?^^ 

HSCUG 

000010 

LF.SER= 

000040 

LS$NMT= 

020000 

LSMXW 

000252 

HSDST 

C00012 

LF.TII»I= 

000010 

LS$N0R= 

100000 

LSNAM 

000000 

H$D?S 

000014 

LF.UNL= 

020000 

LS$NT]= 

000200 

L$NLEN= 

000020 

L$NMT 

L$NTI 

LSNTL 

LSNUM 

LSNUMt, 

LSNXT 

LSOPT 

LSOUN 

LSPAR 

LSPDV 

LSPFG 

LSPLT 

LSPRO 

LSPVC 

LSRET 

LSSCN 

LSSCR 

LSSER 

LSSLEN 

LSSLT 

LSSNM 

LSSTA 

LSTAD 

LSTHl 

L$TH2 

L$TH3 

LSTNM 

LSTPT 

LSTRB 

LSTYP 

LSUNT 

LSXCH 

LtXMT 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DIH 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.1PF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MBSDIS 

MBSENA 

HBSFUL 

NBSMIX 


000116 
000256 
000134 
000240 
000236 
000044 
000062 
000102 
000072 
000055 
000041 
000112 
000075 
000004 
000256 
000020 
000166 
000230 
000074 
000042 
000046 
000100 
000103 
000130 
000131 
000132 
000052 
000050 
000040 
000063 
000003 
000232 
000120 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
000001 
000000 
000002 
000002 
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Table  of  contents 

6-  55    Macro  calls 

7-  81    BIT  DEflNITIONS 

8-  83    Local  data  ,   , 

9-  103    CIRECH  -  Read  circuit  characteristics 

10-  336    FNDPLD  -  Find  physical  link  data  base 

11-  371    MTPCHA  -  Get  multpoint  characteristics 

12-  A2A    FMTOWN  -  Format  an  ASCII  owner  field 

13-  457    FNDHTM  -  Find  hello  timer 
v.-  486    FNDLTM  -  Find  adjacent  node  and  listen  timer 

15-  600    GETADJ  -  Get  an  adjacency 

16-  647    SETNOD  -  Put  node  id 

17-  704    FNDCTR  -  Find  counter  block 

18-  800    SVCRCL  -  Format  SVC  recall  values 

19-  837    SVCBLK  -  Get  SVC  block  parameters 

20-  888    SETS5R  -  Set  Service  parameter 

21-  919    SETNAM  -  Set  an  image  name  field 


E  11 

CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85  12:15  Page  5 


D  12 

CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85  12:15 
FMTOUN  -  Format  an  ASCII  owner  field 


Page  12 


A2A 

425 

A26 

^,27 

A28 

429 

430 

431 

432 

433 

434 

435 

456 

437 

438 

439 

440 

441 

442  001340 

443  001340 

105725 

444  001342 

010500 

445  001344 

446  001350 

124027 

000040 

447  001354 

001004 

448  001556 

124027 

000040 

449  001362 

001001 

450  001564 

005500 

451  001566 

005200 

452  001570 

160500 

455  001572 

110063 

177777 

454  001576 

C60005 

455  001400 

.SBTTL  FMTOWN  -  Forirat  an  ASCII  owner  field 

«*-F|V|T0WN-F0RHAT  AN  ASCII  OWNER  FIELD 

THIS  ROUTINE  TAKES  A  RAD50  PROCESS  NAME  AND  BUILDS 
AN  IMAGE  FIELD,  DELETING  TRAILING  SPACES. 

INPUTS: 

R1  =  RAD50  PROCESS  NAME 

R5  =  ADDRESS  OF  BUFFER  FOR  IMAGE  STRING 


OUTPUTS: 
R3 


NEXT  FREE  BYTE  IN  BUFFER 


REGISTERS: 

R4,  R5  ARE  PRESERVED 


FMTOWN: 


10$: 


TSTB 

MOV 

CALL 

CMPB 

BNE 

CMP8 

BNE 

DEC 

INC 

SUB 

MOVB 

ADD 

RETURN 


(fi5)  + 

R5.R0 

$C5TA 

-(RO), 

10$ 

-(RO), 

10$ 

RO 

RO 

R5,R0 

R0,-1(R3> 

R0,R3 


SAVE  SPACE  FOR  IMAGE  COJNT 
COPY  BUFFER  POINTER 
CONVERT  NAME  TO  ASCII 
WAS  THE  LAST  CHAR  A  SPACE  ? 
IF  NE,  NO 


POINT  TO  NEXT  FREE  SPACE 

CALC  LENGTH  OF  NAME 

SET  LENGTH  OF  NAME  IN  FIELD 

POINT  TO  NEXT  FREE  BYTE  IN  BUFFER 


El? 
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L.DISL 

L.DISR 

L.DLC 

L.OLM 

L.DLS 

L.ENA 

L.FLG 

L.K°9A 

L.LEN  = 

L.LNUM 

L.MPF 

L.NAST 

L.NCUB 

L.NCUL= 

L.NIP 

L.NLSE 

L.NMST 

L.NRSE 


NSTA 
OUNR 
PAIC 
PAIR 
PLD 
_PLL 
L.SCFW 
L.STA 
L.STBL 
L.STRC 
L.STRM 
L.STS 
L.ST2 
L 


TBP 

TIMC 

TIMI 

TIMR 

TOR 

UNT 

XSET 

MAPADD= 

HBSDIS 

MBSENA 

MBSFUL 

MBSMIX 

MBSONE 

MBSRXO 

reSTXO 

IBSZER 

,  -'BAB 

WCJID 

MCt3MC 

MCtBSC 

MCtCAC 

MCSCAP 

NCSCCL 

MCSCDC 

MCSCDP 

MC$CIF 


000042 

MCSCLD 

000044 

MCSCOU 

000003 

MCICTL 

000U06 

MCSCTR 

000010 

MC$CTS 

000056 

MCSDOV 

000000 

MCSLBR 

000016 

MCSLBS 

000022 

MC$LDI 

000046 

MCSLDO 

000022 

MCILDR 

000065 

MCSLDS 

000012 

MC$LL8 

000050 

MCSLLP 

000010 

MCSLLR 

000054 

HCSLOO 

000020 

MC$LR3 

000053 

MCSLRP 

000014 

HCSLRR 

000021 

MCILSI 

000017 

l»C$LST 

000016 

MCSLUP 

000047 

MCSMAP 

000012 

MCSHBL 

000056 

MCSMBX 

000063 

MCSMBY 

000070 

MCSMPX 

000050 

MCSNAP 

000051 

MCSNBR 

000C02 

MCSNBS 

000003 

MCSNCR 

000004 

MCSNCS 

000060 

MCSNML 

000001 

MCSNMR 

000000 

MCSNHS 

000064 

MCSNNO 

000013 

MCSNNU 

000020 

HCSNOP 

*♦»«*♦  GX 

:iC$NOR 

000001 

MCSNPF 

000000 

MCSNPR 

000002 

MCSNRE 

000002 

MCSNRT 

000001 

MCSNVR 

000001 

MC$P08 

000000 

MC$P11 

000000 

MCSRFL 

006073 

MCSSBU 

001765 

MCSSFL 

001767 

MCSSVC 

001766 

MCSSYL 

001442 

MCSSYR 

001440 

MCSSYS 

001445 

MCSSYZ 

002045 

.■ICSTBR 

001441 

MCSTBS 

001465 

MCSTDR 

001464 

100000 

001454 

001452 

001453 

002050 

001750 

001751 

001774 

001775 

001762 

001763 

002021 

002115 

002007 

000001 

002020 

002114 

002006 

002032 

002033 

006072 

010000 

001764 

004420 

001752 

004406 

001604 

001150 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 

000024 

000000 

001140 

001141 

002053 


MC$T1M 
MCSTYP 
MC$UBU 
HCSUFD 
MCSUMR 
MC$UHS 
MCSVAX 
MCIUID 
MCSWIH 
MC$iJa 

nc$w08 

MC$W16 

MC$U32 

MCSXBR 

MCSXBS 

MCSXCJ 

MCSXCR 

MCSXCS 

MCtXDR 

MCSXDS 

MCIXFR 

MCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXMC 

MCSXMS 

MC$XNR 

MCSXRC 

MCSXRR 

MCSXRS 

HC$020 

MD$CI 

HDSCNA 

MDSCOU 

M3$DA 

MDJDL 

MDSDLV 

HDSDMC 

MDSDMF 

HDSDMP 

HDJDMR 

MDSDHV 

HD$DN 

MD$DP 

HDSDPV 

l«ID$DQ 

MDSDTE 

MD$DU 

MDSDUP 

MD$DV 

MDSDZ 

HDSFUL 

MDSHAL 

MDSHEL 

MDSKCP 

MDSKDP 


000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
ObOOOO 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
0023J1 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 


MDSKDZ 

MDSKL 

MDSKMX 

MDSKMY 

MD$LEN 

MD$PCL 

MDSQNA 

MD$UNA 

MD$WIT 

HD.ABO 

MO.ACC 

HD.AOB 

MD.BOB 

MD.DJA 

MD.D06 

MD.DUM 

MD.FAl 

MD.FNA 

MD.FOB 

HD.LOA 

MD.LSH 

MD.NOB 

MD.NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSH 

MD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

MD.UNR 

MD.UOB 

MD.VOL 

MESALI 

HE$AL2 

MESARE 

MESCIR 

MESEXA 

MESEXE 

MESLIN 

MESLOG 

MESMOD 

MESNOD 

HESNON 

MESOBJ 

ME$0B2 

MESPRO 

MESSYS 

ME.BLO 

ME. CON 

ME.CST 

ME.DIS 

ME. DON 

ME.FCO 

ME.FIO 


000036 
000040 
000054 
000052 
000050 
000011 
000005 
000001 
000002 
000017 
000010 
000016 
000011 
000007 
000015 
000002 
000014 
000001 
000006 
000001 
000020 
000012 
177777 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
000000 
000200 
000001 
000002 
000004 
000000 
177777 
000007 
000004 
000005 
000006 
177744 
177753 
177765 
177755 
177600 
177762 
177756 


ME. FOP 
ME. FOR 
ME. FUN 
ME.6R0 
ME.HAR 
ME.IID 
ME.LCO 
ME.LPR 
ME.MPR 
ME.MVE 
ME. OPE 
ME.PLO 
ME.PMI 
ME.PNA 
ME.PRI 
ME.PTY 
ME.PVA 
ME. RES 
ME.ROO 
ME.SIZ 
ME. SYS 
ME.UCO 
MFSACT 
MFSADD 
MFSADJ 
MFSALL 
MFSBYE 
MFSCHA 
MF$DUM 
MFSEVT 
MFSFUP 
MF$KNO 
MFSLOA 
MFSLOO 
MFSREA 
MFSSIG 
MFSSPF 
MFSSYS 
MFSTES 
MFSTRA 
MFSTRI 
MFSZER 
MLSALL 
MLtCLS 
MLSCON 
MLSEXT 
MLSFIL 
MLSFIR 
MLSINT 
MLSKNO 
MLSMON 
MLSSYS 
MLSTOP 
MNSUNL 
MOSACC 
HOSADD 
HOSALA 


177763 
177776 
M7777 
\777i,'i 
177750 
177767 
177766 
177757 
177771 
177771 
177747 
177751 
1777kl 
177752 
177775 
177772 
177760 
177761 
177754 
177774 
177746 
177770 
177776 
000000 
177771, 
177775 
000300 
000023 
000020 
000001 
000264 
177777 
000017 
177775 
000024 
177773 
000302 
000026 
000022 
000301 
000021 
000025 
100000 
000000 
000001 
000001 
000002 
000000 
000000 
140000 
000003 
000002 
000001 
000377 
000200 
000002 
000004 
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CIRECH     CREATED  BY  MACRO  ON  29-JUN-85  AT  12;16 
MACRO  CROSS  REFERENCE 


D  H 

PAGE  9 

CREF   OA.OO 


MACRO  NAME 

ADJDFS 
ASL$ 
BIAS 
CALL 


CALLR 

CEACCS 

CIRCXS 

CTRDF$ 

DDCDFS 

DHBDFt 

ECDDBS 

MANDFS 

MAP 

ME  SAGS 

i'C  DF$ 

PDVOFJ 

PHBDFS 

PLBDFS 

RESHAP 

RESRG 

RETC 

RETURN 

SAVMAP 

SAVRG 

SLTDFS 

SVCDFS 

SWSTKS 

TMPDfS 

XPDDBS 

.ADDRB 

.ADDRW 

.APR 

.BIN 

.CNB 

.CNW 

.CORE 

.CSR 

.CTIM 

.DPRB 

.DPRU 

.DVCHA 

.INT 

.INT1 

.int: 

.INT3 
.LFLHD 
.LIBR 
.LINKS 


REFERENCES 

»6-6'! 
#6-61 
#6-61 

9-U6 

10-3'!>9 

19-853 

9-131 
#6-60 
#6-61 
#6-61 
#6-60 
#6-61 
#6-60 
#6-59 
#6-60 
#6-59 
#6-59 
#6-59 
#6-59 
#6-61 
#6-60 
#6-59 
#6-60 

9-33^ 

17-798 
#6-60 
#6-59 
#6-59 
#6-61 

9-U6 
#6-74 
#6-61 
#6-7A 
#6-74 
#6-74 
#6-c-; 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 


6-64 

14-588 

14-532 

9-151 

10-351 

14-508 

19-867 

9-147 

6-81 
6-63 
6-72 
6-65 
6-67 
6-66 
14-530 

6-74 

6-69 

6-73 

6-75 

11-397 

9-258 

10-366 

10-367 

18-835 

11-385 

9-254 

6-70 

6-71 

10-349 

6-74 

6-68 


6-74 


6-74 
6-74 


14-537 
9-154 
11-384 
14-512 

9-311 


15-624 


11-418 
U-596 
11-396 
11-398 
19-885 
11-410 
14-507 


11-384 


6-74 


6-74 


17- "65 
9-162 
11-386 
14-515 


15-639 


13-483 
16-701 
13-476 
11-420 
20-917 
13-473 
16-661 


11-409 


17-782 
9-194 
11-390 
14-549 


9-208 

11-394 

14-565 


9-237 

11-409 
14-572 


9-257 

11-411 

16-689 


9-307 

12-445 

16-699 


9-322 

13-472 

18-817 


17-750 


15-643 

14-551 
12-455 
21-950 
15-623 


13-472 


17-760 


17-791 

14-578 
13-484 

17-783 


14-512 


17-785 


18-833 

14-554 
18-818 

18-817 


18-819 


19-883 

14-582 
19-854 

19-853 


19-855 


14-597 


15-644 
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Symbol  table 


A$$CHK= 

000000 

A$$CPS= 

000000 

Al$PRI= 

000000 

A$tTRP= 

000000 

3IT0  = 

000001 

3IT1   = 

000002 

3IT10  = 

0:2000 

3IT11  = 

;04000 

3IT12  = 

010000 

BIT13  = 

020000 

BITU  = 

040000 

BITIi  = 

100000 

BIT2  = 

000004 

B  T3  = 

000010 

B  T4  = 

000020 

BITS  = 

000040 

BIT6  = 

000100 

BIT7  = 

000200 

BITS  = 

000400 

B1T9  = 

001000 

8$10 

000003 

B$11 

000004 

B$12 

000005 

B$5 

COOOOO 

B$6 

000001 

B$7 

00000? 

B$7S10 

000006 

CIRECO 

000002RG 

C$$CKP= 

000000 

C$$ORE= 

000400 

C$$RSH= 

177564 

DACIR  = 

«**»»»  GX 

DCPCIR= 

♦*»*♦*  GX 

DLC"BL 

OOOOOOR 

0LMCOU= 

.»♦♦««  GX 

DMPCIR= 

»«»♦**  GX 

D$$BUG= 

177514 

D$$ISK= 

000000 

D$$L11= 

000001 

0$$YNC= 

000000 

D$$YNM= 

000000 

E$$XPR= 

000000 

F$$LVL= 

000001 

G$$TPP= 

000000 

G$$TSS= 

000000 

G$$TTK= 

000000 

G$$WRD= 

000000 

I$$RAR= 

000000 

I$$RDN= 

000000 

K$$CNT= 

177546 

K$$CSR= 

177546 

K$$L[)C  = 

000000 

K$$TPS= 

000074 

LC$EXT 

000000 

LCSINT 

000001 

LD$LP  = 

000000 

LF$END= 

000020 

LF$MLT= 
LF$REA= 
LF$SEG= 
LF$SIG= 
L5$SKP= 
LF$VR2= 
LFtZER= 
LF.ACT= 
LF.BRO= 
LF.BUT= 
LF.ENA= 
LF.LP8= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CL0= 
LN.DUM= 
LN.LOA= 
LN.L00= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.00P= 
LN.OPE= 
LN.REF= 
LN.SER= 
002  LN.STA= 
LN.SUB= 
LN.TRI= 
LP$MPT= 
l,P$MUX= 
LP$TR8= 
LP$UNT= 
LPSWCN-: 
LP$WDV= 
LP$WLD= 
LP$UTR= 
LP$WUN= 
LSADJ 
LSBUF 
LSCHN 
L$COU 
LSCTB 
LSCTL 
LSDDH 
L$FLG 
LSFLX 
L$LEN 
L$LTM 
L$HSG 


040000 

000001 

100000 

000040 

000004 

000010 

000002 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000010 

000004 

000002 

000001 

000040 

000020 

000360 

000200 

000100 

000110 

000060 

000054 

000114 

000053 

000002 

000000 

000064 

000070 

000124 

000070 

000056 


LSMTYP 

fS 

L$NAM 

L$NLEN= 

LSNOD 

000112 
000044 

L$NXT 

L$OPT 

000062 

L$PAR 

000120 

L$PDV 

000055 

L$PFG 

000041 

L$PL8 

000116 

L$PRO 

000067 

L$PVC 

000004 

LSSCN 

^g^li^^ 

L$SCR 

LSSLEN 

Zlt^ 

L$SLT 

L$SNM 

000046 

L$SYL 

000122 

LSTNM 

000052 

LSTPT 

000050 

L$TRB 

000040 

LSTSZ 

000070 

L$TYP 

000063 

L$UNT 

000003 

L$$ASG= 

000000 

Lt$DRV= 

000000 

L$$P11= 

000001 

L$$11R= 

000000 

L.COST 

000015 

L.CTL 

000012 

L.CVA 

177776 

L.DDM 

000002 

L.DDS 

000004 

L.DLC 

000003 

L.DLM 

000006 

L.DLS 

000010 

L.FLG 

000000 

L.KRBA 

000016 

L.LEN  = 

000022 

L.HPF 

000022 

L.NMST 

000020 

L.NSTA 

000014 

L . OWNR 

000021 

L.UNT 

000013 

M8$DIS 

000001 

nSSENA 

000000 

MBSFUL 

000002 

MBSMIX 

000002 

MBSONE 

000001 

MBSRXO 

000001 

MBSTXO 

000000 

HBSZER 

000000 

MCSBAB 

006073 

MCSBID 

001765 

MCSBMC 

001767 

MCSBSC 

001766 

MCSCAC 

001442 

15 
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MC$CAP 

001440 
001445 

MC$SYS 

000024 

MC$CCL 

MC$SYZ 

000000 

MCSCDC 

002045 

MC$T8R 

001140 

MCSCDP 

001441 

MC$T8S 

001141 
002053 

MC$CIF 

001465 

MCSTDR 

MCSCLD 

001464 

MCSTIH 

gooooo 

007777 

MCSCOU 

100000 

MCSTYP 

MCSCTL 

001454 

MCSUBU 

002052 

MCSCTR 

001452 

MCSUFD 

002047 

MC$CTS 

001453 

MCSUHR 

001132 

MCSDOV 

002050 

HCSUHS 

001133 

MCSLBR 

001750 

MCSVAX 

000003 

MCSLBS 

001751 

MCSWID 

060000 

MCSLDI 

001774 

MCSWIH 

040000 

HCSLDO 

001775 

MCSWIL 

020000 

HCSLDR 

001762 

MCSWOS 

020000 

MCSLDS 

001763 

MC$W16 

040000 

MCSLLB 

002021 

HC$W32 

060000 

MCILLP 

002115 

MCSXBR 

001750 

MCSLLR 

002007 

MCSXBS 

001751 

HCSLOO 

000001 

MC$XCJ 

000322 

f1C$LRB 

002020 

MCSXCR 

002260 

MCILRP 

002114 

MCtXCS 

002261 

MCSLRR 

002006 

MCSXDR 

001762 

MCSLSI 

002032 

MCSXDS 

001763 

MCSLST 

002033 

MCSXFR 

002272 

MCSLUP 

006072 

MCSXFS 

002273 

MCSMAP 

010000 

MCSXLJ 

000323 

MCJMBL 

001764 

MCSXLR 

002330 

MC$MBX 

004420 

MCSXMA 

000310 

MCSMBY 

001752 

MCSXHC 

002305 

MCSMPX 

004406 

MC$XMS 

002304 

MCSNAP 

001604 

MCSXNR 

002332 

MCSNBR 

001130 

MCSXRC 

002316 

nCSNBS 

001131 

MCSXRR 

002331 

MC$NCR 

001154 

MCSXRS 

002342 

MC$NCS 

00115"^ 

MC$020 

000002 

MCSNML 

001274 

MD$CI 

000007 

MCSNMR 

001142 

MDSCNA 

000003 

MCSNMS 

001143 

MDSCOU 

000001 

MCSNNO 

001606 

MD$DA 

000010 

MCSNNU 

001605 

MDSDL 

000004 

HCSNOP 

001607 

MDSDLV 

000020 

MCSNOR 

000000 

MDSDMC 

000014 

MCSNPF 

001616 

MDSDMF 

000046 

HCSNPR 

001630 

HDSDMP 

000022 

MCSNRE 

001200 

HDSDMR 

000050 

MCSNRT 

001166 

MDSDMV 

000042 

MCSNVR 

001642 

MDSDN 

000016 

MC$P08 

000000 

MD$DP 

000000 

MCSPll 

000001 

HDSDPV 

000044 

MCSRFL 

002046 

MD$DQ 

000006 

MCSSBU 

002051 

MDSDTE 

000024 

MCSSFL 

002044 

MDSDU 

000002 

MCSSYC 

000012 

MDSDUP 

000012 

MCSSVL 

000036 

MD$DV 

000026 

MCSSYR 

000050 

MD$DZ 

000030 
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D1^^ 


Page  6 


68 
69 
70 
71 

^7^ 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 

93  000000 

94  000000 

95  000004 

96  000010 
97 

98 
99 

100  000014 

101  000020 

102  000026 
103 

104 
105 

106  000030 

107  000032 

108  000036 

109  000040 
110 

111 
112 

113  000044 

114  000050 

115  000056 
116 

117 
118 
119 
120 
121 
122 

123  000060 

124  000064 


.S8TTL  CIREIN  -  CIRCUIT  READ  INfORMAIION  INITIALIZE 

•♦-CIREIN-CIRCUir  READ  INFORMATION  INITIALIZE  ROUTINE 

THIS  ROUTINE  IS  CALLED  TO  INITIALIZE  FOR  THE  CIRCUIT  READ  INFORMATION 
OPERATION. 

INPUTS; 

RO  =  OPTION  (STATUS/SUMMARV/CHARACIERISTICS) 

R1  =  10   ADDRESS  (LINE  FORMAT) 

R2  =  LENGTH  Of  DATA  IN  INPUT  BUFFER  (ZERO) 

R3  =  ADDRESS  OF  INPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

RO  =  RETURN  CODE 

R2  =  LENGTH  Of  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDESS  Of  OUTPUT  BUFfER 

DATA  SAVED  IN  CONTEXT  AREA 

C-BIT  =  CI  EAR  If  SUCCESS,  SET  If  fAILURE 

REGISTERS: 

R3,  R4,  R5  ARE  PRESERVED 


004567  OOOOOOG 
110064  000062 
010364  000060 


012700  177773 

026427  177776  000124 

002436 


010400 

012705  000026 

005020 


CIREIN:: 


JSR 

MOVB 

MOV 


R5,$SAVRG 
R0,L$OPT(R4) 
R3,L$BUf (R4) 


CHECK  LENGTH  OF  CONTEXT  AREA 


MOV 
CMP 
BLT 


#ME.MPR,RO 

-2(R4),#L$LEN 

40$ 


ZERO  CONTEXT  AREA 


30$: 


MOV 
MOV 
CLR 
SOB 


R4,R0 

#<L$CHN/2>,R5 
(R0)  + 
R5,30$ 


012700 
132764 
001022 


012700 
005702 


177777 

177717  000062 


^7776 


CHECK  OPTIONS  fLAGS 

MOV  *ME.fUN,RO 

BIT8  #*C<M0$COU>,L$0PT(R4) 

BNE  40$ 
.IF  Df  R$$11S 

CMPB  #M0$CHA,L$0PT(R4) 

BED  ;o$ 

.ENDC 

MAKE  SURE  THERE  IS  NO  INPUT  DATA 


MOV 
TST 


#ME.FOR,RO 
R2 


SAVE  R3-R5 

SAVE  OPTION  BYTE 

SAVE  BUffER  POINTER 


ASSUME  CONTEXT  hREA  TOO  SMALL 
IS  CONTEXT  AREA  LARGE  ENOUGH  ? 
If  LT,  NO  -  ERROR 


COPY  CONTEXT  POINTER 

SET  NunBER  Of  WORDS  TO  CLEAR 

CLE/"*  IT 


;  ASSUME  ILLEGAL  fUNCTION 
ILLEGAL  OPTIONS  ? 
;  If  NE,  YES  -  ERROR 

;  NO  CHARACTERISTICS  fOR  113 
;  SO  ERROR 


ASSUME  ILLEGAL  INPUT  FORMAT 
ANY  INPUT  DATA  ? 
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SA.AN1= 
S4.AV0= 
S4.BLK= 
S4.DEC- 
S4.DL0= 
S4.EDT= 
S't.HFFr 
S4.HfL= 
S4.HHT= 
S4.HSY= 
S4.RGS= 
SA.SFC= 
S4.VFL= 
S5.ABP= 
S5.BCC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ITI  = 
S5.0XF= 
S5.RP0= 
55.SWU 
S5.TMM= 
S5.VER= 
SS.XOF= 
S5.X0N= 
S6.EI0= 

s^.rd:= 

S6.RLU= 

TADACT 

TH1ACT 

TH2ACT 

TH3ACT 

TR$BYT= 

TR$ECM= 

TR$ERR= 

TR$IMG= 

TR$MAT= 

TRtHBY= 

TR$NUL= 

TR$PAR= 

TR$  ;u3= 

T$$KP1G= 

T$$MIN= 

UC.ALG= 

UC.ATT= 

UC.KIL= 

UC.LGH= 

.  ABS. 


000^,00 

001000 

002000 

004000 

000100 

010000 

000020 

000007 

000040 

000200 

020000 

040000 

000010 

100000 

020000 

0400G0 

000014 

000020 

000100 

000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

000420R 

001342R 

001354R 

001366R 

00000'. 

000010 

000016 

000000 

000020 

000006 

000012 

000002 

000014 

000000 

000000 

000200 

000010 

000004 

000003 


177776 
001412 
tMSTAT  002052 
Errors  detected: 


UC.NPR= 

UC.PWF= 

UC.QUE= 

UD.UNS= 

UD.160= 

UD.200= 

UD.556= 

UD.625= 

UD.8K  = 

UD.800= 

UM.CLI= 

UM.DSB= 

UM.NBR= 

UM.0VR= 

US.AB0= 

US.BSP= 

US.BSY= 

US.F0R= 

US.FRK= 

US.KPF= 

US.LAB= 

US.HDE= 

US.MDM= 

US.MNT= 

US.0FL= 

US.PUB= 

US.PWF= 

U$.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.UCK= 

UU.ABO= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.0NL= 

UU.RCT= 

IJU.RDY= 

UU.SER= 

UU.S10= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 


000100 

000020 

000040 

000000 

000004 

000001 

000002 

000005 

000006 

000003 

000036 

000200 

000400 

000001 

000001 

000002 

000200 

OCJ040 

000002 

000001 

000004 

000002 

000020 

000100 

OOOOOl 

OC0004 

000010 

000002 

000001 

000002 

000010 

000001 

000010 

000400 

000100 

00000^ 

00001' 

002000 

000020 

000002 

000200 

000001 

001000 

000040 

000062 

000032 

000066 

000064 


000  CRW,I,G8L,A8S,0VR) 

001  (RW,I,LCL,REL,C0N) 

002  (RU,D,LCL,REL,CON) 
0 


••»  Assembler  statistics 


U.ATT 

U.BPKT= 

U.BUF 

U.C8F  = 

U.CLl 

U.CNT 

U.COTQ 

U.CTCe 

U.CTL 

U.CTYP 

U.CW1 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 

U.FNUH= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.HEDI= 

U.MLUN= 

U.MUP 

U.OWN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.''CHP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 


000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
177776 
000112 
000113 
000110 
000002 
000034 
000020 
000076 
000074 
000035 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 


U.TSr6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VCB  = 

U.VSER= 

U.2HED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJ1= 

U2.DZ1= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LWC= 

U2.L33= 

U2.L8S- 

U2.NEC= 

U2.PRV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR  = 

V$$CTR= 

U.BATT 

W.BFPD 

W.PHVR 

U.BLGH 

U.8LPD 

W.BLVR 

W.BNPD 


000056 

W.BOFF 

000012- 

000050 

W.BPCB 

000000 

000046 

U.BSIZ 

000010 

000024 

XMTACT 

001234f 

000107 

X$$DBT= 

000000 

000044 

ZF.C0U= 

001000 

000052 

ZF. DDH= 

000001 

000006 

ZF.DIA= 

004000 

000114 

ZF.DLC= 

000002 

000060 

ZF.DVP= 

100000 

000106 

Zf^.INI  = 

040000 

000036 

ZF.KHX= 

000020 

000034 

ZF.LLC= 

000004 

000120 

ZF.LWC= 

000100 

000070 

ZF.MAN= 

020000 

000020 

ZF.MFL= 

000010 

002000 

ZF.MTM= 

000400 

100000 

ZF.i*IUX= 

000040 

040000 

ZF.PSE= 

002000 

000100 

ZF.SLI= 

010000 

001000 

ZF.TIM= 

000200 

010000 

ZF.X3P= 

UOOOOO 

000040 

ZS.ASN= 

■  00000 

000400 

ZS.8SY= 

140000 

000001 

Z.AVL 

000014 

000004 

Z.DAT 

000016 

010000 

Z.DSP 

000000 

004000 

Z.FLG 

000010 

000010 

Z.LEN  = 

000016 

020000 

Z.LLN 

000006 

100000 

Z.MAP 

000020 

000004 

Z.NAM 

000004 

000200 

Z.PCB 

000012 

000002 

Z.SCH 

000007 

010000 

SCATS  = 

****** 

GX 

100000 

SEXIT  = 

000000 

040000 

$HEAOR= 

****** 

GX 

020000 

SSAVAL= 

****** 

GX 

000100 

$SAVRG= 

****** 

GX 

001000 

S$$R  = 

000010 

000006 

$$$SYS= 

004374 

000014 

$$$SYX= 

000000 

000004 

.HSGCN= 

****** 

uX 

000020 

.MSGNM=: 

****** 

GX 

000016 

.MSGPT= 

****** 

GX 

000002 

.MSGST= 

****** 

GX 

000015 

.NPARS= 

****** 

GX 
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MACRO  NAME 

REFERENCES 

£PARAM 

9-442 
#8-82 

9-450 
9-226 

9-472 
9-239 

9-246 

9-254 

9-262 

9-270 

9-277 

9-293 

?i§§ 

9-307 

9-316 

9-323 

9-330 

9-337 

9-344 

9-351 

9-358 

9-365 

9-372 

9-379 

9-386 

9-393 

9-400 

9-/^07 

9-414 

9-423 

9-430 

9-437 

9-447 

9-455 

9-462 

9-469 

9-477 

9-492 

9-497 

SSBEXP 

#8-82 

8-88 

8-90 

8-94 

8-97 

8-100 

8-103 

8-106 

8-109 

8-112 

8-115 

8-118 

8-121 

8-124 

8-127 

8-130 

8-133 

8-136 

8-139 

8-142 

8-145 

8-148 

8-151 

8-154 

8-157 

8-160 

8-163 

8-166 

8-169 

8-172 

8-175 

8-178 

8-181 

8-184 

8-187 

8-194 

8-197 

8-200 

SSKIP 

#8-82 

9-241 

9-295 

9-302 

F  2 
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CICHOP  - 
DSPTCH  - 

263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
238 
289 
290 


E  3 

Circuit  Cianqe  Paramet  MACRO  V05.03b  Saturday  29-Jun-85  12:12  Page  10 
DISPATCH  TO  PROPER  ROUTINE 

.SSTTL  DSPTCH  -  DISPATCH  TO  PROPER  ROUTINE 


DSPTCH  -  DISPATCH  TO  PROPER  SET  OR  CLEAR  ROUTINE 

INPUTS: 

R5        -  POINTS  TO  DISPATCH  TABLE 
L$FL2(R4)  -  FLAGS  UORD 

^  ^  THE  PROPER  ROUTINE  IS  CALLED  TO  PERFORM  THE  SET  OR  CLEAR  FUNCTION 


000440  012700  000001 

000444  005715 

000446  001412 

000450  032564  000070 

000454  001403 

000456 

000460  103403 

000462  000766 

000464  005725 

000466  000764 

000470 

000470 

000474 


DSPTCH: 


10$: 
20$: 


30$: 


MOV 

#MS.SUC,RO 

ASSUME  SUCCESS 

TST 

(R5) 

AT  END  OF  TABLE  ? 

BEO 

30$ 

IF  EO,  YES  -  DONE 

BIT 

(R5)+,L$FL2(R4) 

DISPATCH  ON  THIS  OPERATION  ? 

BEO 

10$ 

IF  EQ,  NO 

CALL 

a(R'U 

ELSE,  DISPATCH  TO  ROUTINE 

BCS 

201 

IF  CS,  ERROR  -  TRY  TO  CLEAN  UP 

BR 

DSPTCH 

ELSE,  LOOP  FOR  NEXT  OPERATION 

TST 

(R5)  + 

SKIP  OVER  ROUTINE  ADDRESS 

BR 

DSPTCH 

AND  LOOK  AT  NEXT  ENTRY 

.IF  NDF 

R$$11S  &   S$$L-,S  £  R$$RTR 

CALL 

CLNUP 

TRY  TO  CLEAN  UP  AFTER  AN  ERROR 

.ENDC 

RETURN 
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SYMBOL  CROSS  REFERENCE 


E  4 

PAGE  4 

CREF   OA.OO 


SYMBOL  VALUE 


_S.PRO 
LS.PUF 
LS.TOP 
LS.UNF 
LS.X25 
LS.11D 
LX.CEX 
LX.LIN 
LX.PRO 

.$a:t 

LSBBT 

LSBLK 

LSBSA 

LSBSD 

LSBSI 

LIBUF 

L$CHN 

L$CMB 

LSCOS 

L$CTB 

LSCTL 

LSCUS 

LSDDM 

LSDDT 

LSDEA 

L$DLT 

LSDTE 

LSDTFL 

LSDTEP 

L$FLG 

LIFLX 

LSFLl 

L$FL2 

LSHBT 

LSHTM 

L$INA 

LSIND 

L$INI 

LSLCT 

LSLEN 

L$LMB 

LSLTM 

L$MRT 

LSHSG 

LSMTYP 

L$MUN 

LSMXB 

L$MXR 

L$MXW 

LSNAM 

LSNLEN 

L$NMT 


000002 
040000 
002000 
020000 
000012 
OOAOOO 
000004 
000006 
000005 
000104 
0001 H 
000262 
000122 
000123 
000124 
000060 
000054 
000234 
000101 
000053 
000002 
000260 
000000 
000106 
000105 
000110 
000240 
000236 
000250 
000064 
000076 
000066 
000070 
000254 
000226 
000125 
000126 
000127 
000224 
000264 
000234 
000230 
000253 
000056 
000075 
000252 
000133 
000253 
000252 
000000 
=  000020 
000116 


REFERENCES 

#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 
#7-73 


12-362 


♦9-153 


9-232 


9-256 


9-157 

9-165 

9-160 

*9-157 


*9-221 
9-209 
9-201 
9-191 


*9-227 
*9-223 
*9-201 


10-280 


11-322 


12-359 


*9-155 


7-73 


9-242 


7-73 
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CICHPD  -  Circuit  Change  Paramet  MACRO  V05.03b  Saturday  29-Jun-85  12:13  Page  6-3 
Context  area  definition 


000001 
000002 
000004 
000010 
000020 
OOOOAO 
000100 
000200 
001000 
100000 

000400 
000002 
000020 
000040 
000200 
010000 

020000 

020053 
000362 
001004 


Circuits: 

LSSCHN 
LSSCMB 
LSSCUS 
LSSDTE 
LSSHXR 
LSSMXW 
LSSNUH 
LSSRET 
LSSBLK 
LPSNXC 

Lines: 

LSSHBT 
LSSLMB 
LSSMRT 
LSSHWN 
LSSNTI 
LSSPRO 

Common: 

LSSLCT 

Groupings: 

LSSPVC 
LSSSVC 
LSSDLM 


1 
2 
4 

10 

20 

40 

100 

200 

=   1000 

=  100000 

400 
=  LSSCMB 
=  LSSMXR 
=  LSSMXW 
=  LSSRET 
=  10000 

=  20000 


Set  PVC  chs'ineL 

Set  maximuir.  data 

Set  circuit  usage 

Set  DTE 

Set  maximum  recalls 

Set  maximum  window 

Set  DLM  number 

Set  recall  timer 

Set  blocking 

Circuit  is  a  new  X.25  circuit 

Set  holdback  timer 

Set  max  block 

Set  max  retransmits 

Set  max  window 

Set  retransmit  timer 

Set  line  protocol 

Set  counter  timer 


LSSCHN I LSSCMB I LSSDTE! LSSMXW! LSSLCT 
LSSCMB I LSSMXR I LSSM)W!LSSNUMI LSSRET 
LSSBLK! LSSCUS 


F  5 
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STAON  -  REQUEST  CIRCUIT  STATE  "ON" 


Page  14-1 


562 

563  001656 

564  001662 

565  001666 

566  001672 
567 

568 
569 

570  001674 

571  001700 
572 

573  001702 

574  001704 

012700 

012700 
103403 

017000 
177747 

io$: 
40$: 

•inv    #<36*400>,R0 
CALL    DLXQIO 
MOV     #ME.OPE,R0 
BCS     90$ 

;  SET 

CIRCUIT  STATE  TO  ON,  S 

112712 
000401 

000261 

000000 

90$: 
100$: 

M0V8   #ms$on,;r2) 

BR      100$ 

SEC 
RETURN 

SET  FUNCTION  CODE 
ISSUE  QIO 

ASSUME  OPERATION  FATED 
IF  CS,  IT  FAILED 


SET  NEW  STATE 
AND  RETURN 


f  6, 
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CICHPD  -  Circuit  Change  Paramet  MACRO  \/05.03b  Saturday  29-Jun-85  1 
DMP  SET  ROUTINES 


7 

2:13 


Page  22 


1010 

.SBTTL 

DMP  SET 

ROL 

1011 

+ 

1012 
1013 
10U 

DMP  SET  ROUTINES 

EACH 

ROUTINE 

POINTS  ;c 

Th 

1015 

SET  THE  PARAMETER. 

1016 

1017 

- 

1018 

000222 

012702 

000120' 

;ET8BT: 

:MOV 

#BBTTBL 

P2 

1019 

000226 

CALL 

DMPSET 

1020 

000232 

RETURN 

1021 

000234 

012702 

000132' 

SETNMT: 

:MOV 

#NMTTBL 

R2 

1022 

000240 

CALL 

DMPSET 

1023 

000244 

RETURN- 

102A 

000246 

012702 

000144' 

SETXMT: 

:MOV 

#XHTTBL 

R2 

1025 

000252 

CALL 

DMPSET 

1026 

000256 

RETURN 

1027 

000260 

012702 

000156' 

SETBSA: 

:MOV 

*BSATBL 

R2 

1028 

000264 

CALL 

DMPSET 

1029 

000270 

RETURN 

1030 

000272 

012702 

000170' 

SETBSD: 

:MOV 

#6SDT8L 

R2 

1031 

000276 

CALL 

DMPSET 

1032 

000302 

RETURN 

1033 

000304 

012702 

000202' 

SETBSI: 

:MOV 

*BSITBL 

R2 

103A 

000310 

CALL 

DMPSET 

1035 

000314 

RETURN 

1036 

000316 

012702 

000214' 

SETINA: 

:MOV 

#INATBL 

R2 

1037 

000322 

CALL 

DMPSET 

1038 

000326 

RETURN 

1039 

000330 

012702 

000226' 

SETIND. 

:MOV 

#INDTBL 

R2 

1040 

000334 

CALL 

DMPSET 

lOAl 

000340 

RETURN 

10A2 

000342 

012702 

000240' 

SETINI 

:MOV 

#INITBL 

R2 

10A3 

000346 

CALL 

DMPSET 

1044 

000352 

RETURN 

1045 

000354 

012702 

000252' 

SETTHl 

:MOV 

#TH1TBL 

.R2 

1046 

000360 

CALL 

DMPSET 

1047 

000364 

RETURN 

1048 

000366 

012702 

000264' 

SETrH2 

:MOV 

#TH2TBL 

,R2 

1049 

000372 

CALL 

DMPSET 

1050 

000376 

RETURN 

1051 

000400 

012702 

000276' 

SE1TH3 

:MOV 

*TH3TBL 

,R2 

1052 

000404 

CALL 

DMPSET 

1053 

000410 

RETURN 

1054 

000412 

012702 

000310' 

SETMXB 

:MOV 

#MXBTBL 

,R2 

1055 

000416 

CALL 

DMPSET 

1056 

000422 

RETUfi-N 

POINT  TO  BABBLE  TIMER  TABLE 
SET  THE  BABBLE  TIMER 

POINT  TO  NORMAL  TIMER  TABLE 
SET  THE  NORMAL  TIMER 

POINT  TO  TRANSMIT  DELAY  TIMER  TABLE 
SET  THE  TRANSMIT  DELAY  TIMER 

POINT  TO  ACTIVE  BASE  TABLE 
SET  THE  ACTIVE  BASE 

POINT  TO  DYING  BASE  TABLE 
SET  THE  DYING  BASE 

POINT  TO  INACTIVE  BASE  TABLE 
SET  THE  INACTIVE  BASE 

POINT  TO  ACTIVE  INCREMENT  TABLE 
SET  THE  ACTIVE  INCREMENT 

POINT  TO    NG  INCREMENT  TABLE 
SET  THE  I      ^G   INCREMENT 

POINT  TO  INACTIVE  INCREMENT  TABLE 
SET  THE  INACTIVE  INCREMENT 

POINT  TO  DEAD  THRESHOLD  TABLE 
SET  THE  DEAD  L.SESHOLD 

POINT  TO  DYING  THRESHOLD  TABLE 
SET  THE  DYING  THRESHOLD 

POINT  TO  INACTIVE  THRESHOLD  TABLE 
SET  THE  INACTIVE  THRESHOLD 

POINT  TO  MAXIMUM  BLOCKS  TABLE 
SET  THE  MAXIMUM  BLOCKS 
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PAGE  A 

CREF   04.00 


SYMBOL  VALUE 


LSSRET 

LSSSER 

LS$STA 

LSSSVC 

LStTAD 

LSSTHI 

LS$TH2 

LS$TH3 

LSSXMT 

LS.AST 

LS.CEX 

LS.CIR 

LS.CXO 

LS.CX5 

LS.DLM 

LS.ECH 

LS.FDX 

LS.HDX 

LS.LIN 

LS.LMC 

LS.NTI 

LS.ON 

LS.OPT 

LS.PRO 

LS.PWF 

LS.TOP 

LS.UNF 

LS.X25 

LS.11D 

LX.CEX 

LX.LIN 

LX.PRO 

LSACT 

LIBBT 

L$BLK 

L$BSA 

L$BSD 

L$BSI 

L$BUF 

LSCHN 

LSCHB 

LSCOS 

L$CTB 

L$CTL 

LICUS 

L$DDM 

LSDDT 

LSDEA 

L$DLT 

L$DTE 

LSDTEL 

LSDTEP 


REFERENCES 


=  000200 

#6-86 

=  100000 

#6-86 

=  000002 

#6-86 

=  000362 

#6-86 

=  000020 

#6-86 

=  000100 

#6-86 

=  000200 

#6-86 

=  000400 

#6-86 

=  040000 

#6-86 

=  100000 

#5-71 

=  000001 

#5-71 

=  000010 

#5-71 

=  010000 

#5-71 

=  000400 

#5-71 

=  004000 

#5-71 

=  001000 

#5-71 

=  004000 

#5-71 

=  010000 

#5-71 

=  000003 

#5-71 

=  000007 

#5-71 

=  004000 

#5-71 

=  000011 

#5-71 

=  000400 

#5-71 

=  000002 

#5-71 

=  040000 

#5-71 

=  002000 

#5-71 

=  020000 

#5-71 

=  000012 

#5-71 

=  004000 

#5-71 

=  000004 

#5-71 

=  000006 

#5-71 

=  000005 

#5-71 

000104 

#6-86 

000114 

#6-86 

000262 

;,6-86 

000122 

#b-86 

000123 

#6-86 

000124 

#6-86 

000060 

#6-86 

000054 

#6-86 

000234 

#6-86 

000101 

#6-86 

000053 

#6-86 

000002 

#6-86 

000260 

#6-86 

000000 

#6-86 

000106 

#6-86 

000105 

#6-86 

000110 

#6-86 

000240 

#6-86 

000236 

#6-86 

000250 

#6-86 

6-86 


6-86 


9-169 


8-130 


8-133 
8-134 
1-135 

18-745 

19-796 

20-876 

20-882 

11-229 

11-228 

15-598 

20-891 


24-1122 


CICHPD 
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Context  area  definition 

000020 
000040 
000100 
000200 
000360 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
010000 
020000 
040000 
100000 


LPSWDV 
LPSUCN 
LPSWUN 
LPIWTR 
LPSWLD 


20 
40 
100 
200 


Page  6-2 


WILD  CARD  DEVICE  NAME  FOUND 
WILD  CARD  CONTROLLER  NUMBER  FOUND 
WILD  CARD  UNIT  NUMBER  FOUND 
WILD  CARD  TRIBUTARY  NUMBER  FOUND 


LP$WDV!LP$WCNILf'$WUN!LP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LSSNTL^ 
LSSSTA: 
LSSCOS^ 
LSSOWN^ 
LSSTAD^ 
LSSACT^ 
LSSDEA 
LCSNTL^ 
LCSOWN 
LSSDDT 
LSSDLT 
LSSPLT 
LSJBBT 
LSSNMT 
LSSXMT 
LSSSER 


=  1 

=2 

=4 

=10 

=20 

=40 

=  100 

=200 

=400 

--1000 

--2000 

=4000 

=10000 

=20000 

=40000 

=100000 


NTL  SET  FUNCTION 

SET  STATE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLE] 


;  FLAGS  WORD  BIT  DEFINITIONS  (L$FL1) 

LS$BSA=1 

SET 

ACTIVE  BASE 

LS$8SD=2 

SET 

DYING  BASE 

LS$BSI=4 

SH 

INACTIVE  BASE 

LS$1NA=10 

SET 

ACTIVE  INCREMENT 

LS$IND=20 

SFT 

DYING  INCREMENT 

LS$INI=40 

SFT 

INACTIVE  INCREMENT 

LS$TH1=100 

SFI 

DEAD  THRESHOLD 

LS$TH2=200 

SFT 

DYING  THRESHOLD 

LS$TH3=400 

SFT 

INACTIVE  THRESHOLD 

LS$«XB=1000 

SFI 

MAXIMUM  BLOCKS 

LS$HTM=10000 

SET 

HELLO  TIMER 

LS$HDT=20000 

SH 

MODEM  TEST 

LS$LOO=40000 

SH 

CONTROLLER  LOOPBACK 

LS$N0R=1 00000 

SFI 

CONTROLLER  NORMAL 

.IF  DF  R$$PR0  ;  PRO/DECNET 

•  LOOPBACK  TYPE  WORD  BIT  DEFINITIONS 

LSLTY) 

LSSINT  =  0 

INTERNAL  LOOPBACK 

LSSEXT  =  1 

EXTERNAL  LOOPBACK 

;  MODEM  TEST  TYPE  WORD  BIT  DEFINITIONS  (LSMDT) 

LSSLCL  =  0 

•  LOCAL  MODEM  TEST 

LSSREM  =  1 

•  REMOTE  MODEM  TEST 

LSSOFF  =  2 

;  SHUT  OFF  MODEM  TESTS 

.ENDC   ;  DF  R$$PRO 

;  Flags  word  bit  definitions  for 

X.25 

circuits  and  lines 
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Symbol  table 


MB$ONE 

MBSRXO 

MBtTXO 

MBtZER 

MCtBAB 

HC$BID 

MCSBMC 

MCSBSC 

MCSCAC 

MCSCAP 

MC$CCL 

MCtCDC 

MCSCDP 

MCSCIF 

MC$CLO 

MCSCOU 

MCSCTL 

MCSCTR 

MCSCTS 

MCSDOV 

MCSLBR 

MCSLBS 

MCSLDI 

MCSLDO 

MCSLDR 

MCSLDS 

MCSLLB 

MCSLLP 

MCSLLR 

MCSLOO 

MCSLRB 

MCSLRP 

HCSLRR 

MCSLSI 

MCSLST 

MCSLUP 

MCSMAP 

MC$MBL 

MCSMBX 

MCSMBY 

MC$MPX 

WCSNAP 

MCSNBR 

MCSNBS 

MCSNCR 

HCSNCS 

MCSNML 

HCSNMR 

MCSNMS 

WCSNNO 

NCSNNU 

MCSNOP 

MCSNOR 

MCSNPF 

MCSNPR 

MCSNRE 

MCSNRT 


000001 

000001 

000000 

000000 

006073 

001765 

001767 

001766 

00UA2 

00H40 

00U45 

0020A5 

OOU^I 

001465 

00U64 

100000 

00U54 

OOU52 

00U53 

002050 

001750 

001751 

001774 

001775 

001762 

001763 

002021 

002115 

002007 

000001 

002020 

002114 

002006 

002032 

002033 

006072 

010000 

001764 

004420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

OOOCOO 

001616 

001630 

001200 

001166 


MC$NVR 
MC$P08 
MC$P11 
MCSRFL 
MCSSBU 
MCSSFL 
MCSSYC 
MCSSYL 
MCSSYR 
HCSSYS 
MCISYZ 
MCSTBR 
MCSTBS 
HCSTRR 
MCSTIH 
MCSTYP 
MCSUBU 
MCSUFD 
MCSUMR 
MCSUMS 
MCSVAX 
MCSWID 
MCSUIH 
MCSWIL 

ncsuos 

MC$W16 
MC$W32 
MCSXBR 
HCtXBS 
MCSXCJ 
MCSXCR 

rcsxcs 

HCSXDR 

MCSXDS 

MCSXFR 

MCSXFS 

HCSXLJ 

MCSXLR 

MCSXMA 

HCSXMC 

HCSXMS 

MCSXNR 

HCSXRC 

HCSXRR 

MCSXRS 

MC$020 

MD$CI 

MDSCNA 

HDSCOU 

HD$DA 

MD$DL 

MDSDLV 

MDSDHC 

HDSDMF 

HDSDMP 

MDSDHR 

MDSDMV 


001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 

000024 

000000 

001140 

001141 

002053 

000000 

007777 

002052 

002047 

001132 

001133 

000003 

060000 

040000 

020000 

020000 

040000 

060000 

001750 

001751 

000322 

002260 

002261 

001762 

001763 

002272 

002273 

000323 

002330 

000310 

002305 

002304 

002332 

002316 

002331 

002342 

000002 

000007 

000003 

000001 

000010 

000004 

000020 

000014 

000046 

000022 

000050 

000042 


MD$DN 

MD$DP 

MD$DPV 

MD$DQ 

MDSDTE 

ND$DU 

MDSDUP 

MDSDV 

HD$DZ 

HDSFUL 

MDSHAL 

HDSHEL 

MDSKCP 

MDIKDP 

MD$KDZ 

MD$KL 

MDSKMX 

MDSKMY 

MDSLEN 

MDIPCL 

MDSONA 

HDSUNA 

MDSWIT 

MD.ABO 

HD.ACC 

MD.AOB 

MD.B08 

HD.DJA 

MD.DOB 

MD.DUM 

HD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.NOB 

HD.NON 

HD.PER 

MD.RES 

MD.R08 

MD.RSH 

HD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

HD.UNR 

MD.UOB 

HD.VOL 

MESALI 

ME SAL 2 

MESARE 

MESCIR 

MESEXA 

MESEXE 

MESLIN 

MESLOG 


000016 

HESMOD 

ME$NOD 

OOOOAA 

ME$NON 

000006 

ME $08 J 

000024 

nE$0B2 

000002 

HESPRO 

000012 

MEtSYS 

000026 

ME.BLO 

000030 

ME. CON 

000000 

ME.CST 

000001 

ME.DIS 

000002 

ME. DON 

000013 

ME.FCO 

000034 

ME.FIO 

000036 

ME. FOP 

000040 

ME. FOR 

000054 

ME. FUN 

000052 

ME.GRO 

000050 

ME.HAR 

000011 

ME.IID 

000005 

ME.LCO 

000001 

ME.LPR 

000002 

ME.HPR 

000017 

ME.MVE 

000010 

ME. OPE 

000016 

ME.PLO 

000011 

ME.PMJ 

000007 

ME.PNA 

000015 

HE.PRJ 

000002 

ME.PTY 

00001 ' 

ME.PVA 

00000 1 

ME. RES 

000006 

ME.ROO 

000001 

ME.SIZ 

000020 

ME. SYS 

000012 

ME.UCO 

Mim 

MFSACT 

000000 

MFSADD 

000004 

MFSADJ 

000005 

MFSALL 

000013 

MFSBYE 

000005 

MFSCHA 

000003 

MFSDUM 

000000 

MFSEVT 

000004 

MFSFUP 

000002 

MFSKNO 

000003 

MFSLOA 

000007 

MFSLOO 

000006 

MFSREA 

000010 

MFSSIG 

000003 

MFSSPF 

000005 

MFSSYS 

000003 

MFSTES 

000000 

MFSTRA 

000200 

MFSTRI 

000001 

MFSZER 

00000? 

MLSALL 

000004 
OQOOOO 

\mii 

000007 
000004 
000005 
000006 
177744 
177753 
177765 
177755 
177600 
177762 
177756 
177763 
177776 

\nm 

177745 
177750 
177767 

177757 
177773 

wny 

177747 
177751 
177743 
177752 
177775 
177772 
177760 
177761 
177754 
177774 
177746 
177770 
177776 
000000 

000300 
000023 
000020 
000001 
000264 
■[77777 
000017 
177775 
000024 
177773 
000302 
000026 
000022 
000301 
000021 
000025 
100000 


MLSCLS 

ML$CON 

MLSEXT 

MLSFIL 

MLSFIR 

HLSINT 

MLSKNO 

ML$MON 

MLSSYS 

MLSTOP 

MNSUNL 

MOSACC 

MOSADD 

MOSALA 

HOSALI 

MOtCHA 

MOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOSINF 

HOSINS 

HOSLIN 

MOSLOG 

MOSMIR 

MOSNAH 

HOSNIC 

MOINOD 

MOSOFF 

MOSON 

MO$OPT 

HOIPER 

MOSPRO 

HOSPRS 

HOSREA 

MOSSET 

MO$STA 

MOSSUH 

MOSTSK 

MOSVOl. 

MOSZER 

MPSACB 

MPSACC 

MPSACT 

MPSADD 

MPSADJ 

MPSADP 

MPSADS 

MPSALB 

MPSAMC 

MPSAMH 

MPSANB 

HPSASB 


000000 
000001 
000001 
000002 
000000 
000000 
140000 
000003 
000002 
000001 
000377 
000200 
000002 
000004 
000000 
000040 
000003 
000100 
000060 
000000 
000000 
000000 
000017 
000100 
000160 
000002 
000001 
000001 
000031 
000001 
000023 
000000 
000001 
000000 
000001 
000200 
000002 
000001 
000200 
000000 
000020 
000000 
000000 
000000 
000000 
000012 
000514 
004526 
000766 
001440 
006325 
004406 
000036 
001640 
001641 
004420 
000024 
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1 
t 
3 

k 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3^. 
35 
36 
37 
38 
39 
40 
A1 
42 
A3 
A4 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  CIRECH  -  READ  CIRCUIT  CHARACTERISTI^i 

.IDENT  /V05.00/ 

.ENABL  LC 

.NLIST  CND 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQU1''MENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  READ  CIRCUIT  CHARACTERISTICS  INFORMATION 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00  01-JUL-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI.  1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Muro/RSX   VI. 0 
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A57 
458 
A59 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 

471  001402 

472  001402 

473  001406 

474  001412 

475  001416 

476  001420 

477  001432 

478  001434 

479  001442 

480  001450 

481  001456 

482  001460 

483  001466 

484  001472 


.SBTTL  FNDHTM  -  Find  hello  timer 


FNDHLT  -  FIND  HELLO  TIMER 

INPUTS: 

R4  -  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

CARRY  CLEAR; 

HTIM  -  HELLO  TIMER  VALUE 


103006 

000415 

016167  000030  176350 

000001  176346 

000040  000044 


012767 
132761 
001403 
012767 


000000  176330 


fNDHTM: 


10$: 


20$: 
30$: 


SWSTK$ 
SAVMAP 
CALL 

dcr 

OPTC 

BR 

MOV 

MOV 

81 TB 

BED 

MOV 

RESMAP 

RETURN 


30$ 

FNDCTR 

10$ 

RO 

20$ 

T$75(R1),HTIM 

*M8$DIS,BLKING 

#PX$eLK,T$FLAG(Rl) 

20$ 

#M8$ENA,BLKING 


ENTER  SYSTEM  STATE 
SAVE  PREVIOUS  MAPPING 
LOOK  FOR  COUNTER  BLOCK 
BR  IF  FOUND  IT 
ELSE  SET  USER  C-BIT 
AND  FXIT 

SAVE  HELLO  TIMER 
Assume  no  DLM  blocking 
Check  blocking  flag 
Branch  if  not  set 
Indicate  blocking  enabled 
RESTORE  PREVIOUS  MAPPING 
EXIT  SYSTEM  STATE 


;I:TD001] 
.-CTDOOID 
;[TD001] 
.-CTDOOl] 


CIRECH 
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M0$AL1 

MO$CHA 

MOtCIR 

MOICLE 

MOtCOU 

MOSDAC 

MOSDEF 

MO$DPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

MOSLIN 

MOJLOG 

MOtMIR 

MOtNAM 

MOSNIC 

MOSNOD 

MOSOFF 

MOSON 

MOSOPT 

MOSPER 

MOSPRO 

MOtPRS 

MOSREA 

MOSSET 

MOSSTA 

MOSSUM 

MOSTSK 

MOSVOL 

MOSZER 

MPSACB 

MP$ACC 

MPSACT 

MPSADD 

MPSADJ 

MPSADP 

MP$ADS 

HP$AL8 

MPSAMC 

MPSAMH 

MPSANB 

MPSASB 

MPSASC 

MPSAUS 

MP$8BT 

MPSBDF 

MPSBFQ 

MPSBLK 

MPSBLO 

MPSBNX 

MPSBNP 

HPSBRT 

MPSBSA 

MPSBSD 

HPSBSI 

MPSBSP 


000000 

0000^0 

000003 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000023 

000000 

000001 

000000 

000001 

000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

0005U 

00^526 

000766 

OOU^O 

006325 

00AA06 

000036 

001640 

001641 

00A420 

000024 

004432 

OOC512 

00<?165 

OC'164 

002121 

001616 

001452 

002176 

006330 

001620 

002176 

002203 

002200 

006331 


MPSBUF 

MPSBUP 

MPtBUS 

MPSCAC 

MPSCAS 

MPSCAT 

MPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

MPSCLN 

MPSCLT 

HPSCMB 

MPSCMK 

MPSCMX 

MPSCND 

MPSCNU 

MPSCOB 

MPSCON 

MPSCOS 

MPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

MPSDAL 

MP$DC0= 

MPtDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DH0= 

MPSDIA 

MPSDLB 

HPSDLG 

MP$DLI= 

MPSDLT 

MPSDRO 

MPSDST 

MPSDTE 

MP$DTY= 

MPSDUA 

MPSDUC 

MPSDUM 

HPIDUP 

MPSDVC 

MPSDWE 

MPSELT 

MPSETY 

MPSEVE 

MPSFNC 

MPSGDT 

MPSGNM 

MPSGRO 


000170 

006324 

001643 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

000537 

002153 

000310 

001753 

000311 

002126 

001604 

000230 

000232 

000226 

000161 

001755 

002127 

000540 

002570 

001464 

002177 

001131 

000156 

002114 

001320 

001465 

000173 

002571 

004521 

001466 

002200 

001441 

000454 

002140 

001452 

000207 

000210 

000202 

002127 

002114 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 


MPSGRP 
MPSGTY 
HPSHAD 
MP$HBT 
MPSHDD 
MPSHTM 
MPSHWA 
MPSIAT 
MPSIDE 
MPSIDP 
MPS I  HO 
MPSINA 
HPSIND 
MPSINJ 
MPSITI 
MPSLAA 
MPSLAN 
MPSLAR 
MPSLAS 
MPSLBS 
HPSLCO 
MPSLCT 
MPSLHL 
MPSLLE 
HPSLLO 
HPILHB 
MPSLMX 
MPSLNA 
MPSLNO 
MPSLOA 
MP$LOG 
MPJLOO 
MPSLTM 
MPSLTY 
MPSLWI 
MPIMAC 
MPSMAD 
MPSMAP 
MPSMAR 
MPSMAV 
MPSMBN 
MPSMBR 
MPSMBU 
MPSHCB 
MPSMCO 
MPSMDE 
MPSMHO 
MPSMLB 
MPSMLK 
MPSMLN 
MPSMLP 
MPSMRB 
MPSMRO 
MPSMRP 
HPSHRT 
MPSMRV 
MPSMSB 


000541 

002224 

001757 

002142 

000162 

001612 

002210 

001322 

000144 

006327 

000215 

002177 

002204 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 

000156 

000232 

000227 

004432 

002152 

002200 

000144 

000233 

000170 

004514 

000620 

001613 

004533 

000230 

004420 

001630 

006323 

001635 

006321 

001636 

001637 

001642 

000156 

001632 

004421 

001633 

000202 

001306 

001631 

006333 

002171 

001605 

006322 

002153 

006320 

000170 


MPJMVE 

MPSMVI 

HPSMVR 

MPSMWN 

MP$MXB 

MPSMXC 

MPIMXR 

MPIMXW 

MPSNAA 

HPSNAC 

MPSNAP 

HPSNCT 

MPSNET 

MPSNLI 

MPSNNA 

HPSNOD 

MPSNRA 

MPSNRB 

MPSNSA 

MPSNTi 

MPSNUM 

MPINVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

MPSONA 

MPSONR 

MPSCQL 

HPSOTI 

MPSOTY 

MPSOUS 

MPSOVE 

MPSOUN 

MPSPAR 

HPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 

HPSRET 

HPSRFA 

MPSRMX 

mpsrp: 

MPIRP"" 


000145 
001634 
001751 
002154 
002172 
000466 
001630 
002143 
006335 
001130 
006326 
000240 
002114 
00076b 
000764 
000500 
006334 
000214 
001617 
002141 
001642 
001274 
001476 
000632 
000620 
000776 
000214 
000764 
002114 
001453 
000777 
001022 
000777 
001010 
004374 
000036 
000513 
002152 
000024 
000144 
002114 
000170 
000012 
000025 
002140 
000012 
00',  374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 


MPtRRT 
MPSRST 
MP$RSV 
MPSRSZ 
MPSRTI 
MPSRTM 
MPSRVE 
MP$RVI 
MPSSAC 
MPSSAD 
HPSSCA 
MPSSCO 
MPSSCT 
MP$SDU 
MPSSDV 
MP$SEH 
MPSSER 
MPSSET 
MPSSGZ 
HPSSID 
MPSSIN 
MPtSLI 
MPSSLO 
MPSSMX 
MPSSND 
MPSSNP 
HP$SNU 
MPSSOB 
MPSSPA 
MPSSPR 
MPSSPS 
MPSSTA 
MP$STI 
MPSSTT 
MPSSTY 
HPSSUB 
HPSSUR 
MPSSUS 
MPSSVR 
MPSSUI 
MPSSYP 
MPSTFL 
MPSTHl 
MP$TH2 
MP$TH3 
MPSTLN 
MPSTLO 
MPSTPA 
MPSTRI 
MPSTST 
MPtTYP 
MPSUCS 
MPIUSR 
MPSVEC 
MPSVER 
MPSWDF 
MPSWMX 


002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 
000144 
000000 
001644 
000176 
000310 
000156 
000171 
002202 
000500 
006332 
000542 
000524 
000157 
000536 
000513 
000000 
002140 
002201 
000175 
000001 
000156 
000512 
000163 
002260 
002424 
000156 
002206 
002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
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CIRECH 

CREATED  BY 

MACRO     ON  29-JUN-85   AT   1?;16 

MACRO  CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

.LSTHD 

#5-7A 

6-74 

.LTAB 

#6-74 

.MPLHO 

#6-74 

6-74 

.MXPT8 

#6-74 

.PECHA 

#6-74 

.POOL 

#6-74 

.PRl 

#6-74 

6-74              6-74 

.SCOM 

#6-74 

.SECSR 

#6-74 

.SLNB 

#6-74 

6-74 

.SLNW 

#6-74 

6-74 

.STNB 

#6-74 

6-74 

.STNW 

#6-74 

.TIME 

#6-74 

.UNB 

#6-74 

6-74 

.UNW 

#6-74 

.VFY 

#6-74 

.X2CHB 

#6-74 

.X2CHW 

#6-74 

.X3CHB 

#6-74 

.X3CHW 

#6-74 

E  U 
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Symbol  table 

MD$FUL  000000  ME.CST  177765  MLSTOP  000001  MPSSRT  001620 

MDSHAL  000001  HE.DIS  177755  MN$UNL  600377  MP$BSA  002176 

MdIhel  000002  ME. DON  177600  MOSACC  000200  MPJBSD  002203 

MDIKCP  000013  ME.fCO  177762  MOSADD  000002  MPJBSI  002200 

MDSKDP  00003A  ME.FIO  177756  M0$ALA  OOOOO?  MPJBSP  006331 

MDSKOZ  000036  ME. FOP  177763  M0$ALI  000000  MPJBUF  000170 

MDtKL  OOOOAO  ME. FOR  177776  MOSCHA  000040  MPIBUP  006324 

MDSKMX  000054  ME. FUN  177777  MOJCIR  000003  MPWUS  00  643 

MDtKMY  000052  ME.GRO  177745  MOJCLE  000100  MPSCAC  00  750 

MDSLEN  000050  ME.HAR  177750  MOJCOU  000060  MPSCAS  001762 

MDSPCL  000011  ME.HD  177767  MOSDAC  000000  MPSCAT  002210 

MD$QNA  000005  ME.LCO  177766  MOSDEF  000000  MPSCCS  004406 

MdIuNA  000001  ME.LPR  177757  NOSDPR  000000  MPfCHN  002  4 

MDtUlT  000002  HE.MPR  177773  MOSENT  000017  MPSCIR  000  44 

MD.ABO  000017  ME.MVE  177771  MOSEVE  000100  MPJCLK  002  31 

MO.ACC  000010  ME. OPE  177747  MO$INF  000160  MPtCLN  002126 

MD.AOB  000016  ME.PLO  177751  MOSINS  000002  MPSCLT  0022  1 

MD.BOB  OOOOn  ME.PMI  177743  MOSLIN  000001  MPfCMB  002142 

MD.DIA  000007  ME.PNA  177752  MOSLOG  000001  MPSCMK  000537 

MD.DOB  000015  ME.PRI  177775  MOSMIR  000031  MPSCMX  002153 

md.dum  000002  me.pty  177772  moinam  000001  mpscnd  000310 

md.fai  000014  me.pva  177760  mosnic  000023  hpscnu  001753 

md.fna  000001  he. res  177761  mosnod  000000  mpscob  00031 

md.fob  000006  me.roo  177754  mosoff  000001  mpscon  002126 

md.loa  000001  me.siz  177774  m0$0n  000000  mpscos  001604 

md.lsh  000020  me. sys  177746  mosopt  000001  hpscpf  000230 

md.nob  000012  me.uco  177770  mosper  000200  mpscpl  000232 

md.non  177777  mfsact  177776  hospro  000002  mpscpt  000226 

md.per  000000  mfsadd  000000  hosprs  000001  mpscpu  000161 

md.res  000004  mfsadj  177774  mosrea  000200  mpjcsz  001755 

md.rob  000005  mfsall  177775  mosset  000000  mpscus  002127 

md.rsh  000013  mfsbye  000300  mossta  000020  mpscva  000540 

md.sdu  000005  mfscha  000023  mossum  000000  mpsdal  002570 

md.slo  000003  mfsduh  000020  mostsk  000000  hp$dco=  001464 

md.sna  000000  mfsevt  000001  mosvol  000000  mpsdot  002177 

md.tlo  000004  mfsfup  000264  moszer  000000  mpsdel  001131 

md.una  000002  mfskno  ^71177  mp$ac8  000012  mpsdes  000156 

md.unr  000003  mf$loa  000017  mpsacc  000514  mp$dev  002114 

md.uob  000007  mf$loo  177775  mpsact  004526  mpsl'fa  001320 

md.vol  000006  mfsrea  000024  mpsadd  000766  mp$dh0=  001465 

m:$ali  000010  mfssig  177773  mpsadj  001440  mpsdia  000173 

me$al2  000003  mf$spf  000302  mpsadp  006325  mpsdlb  00257 

mesare  000005  mfssys  000026  mpsads  004406  mpsdlg  00452 

me$cir  000003  mfstes  000022  mpsalb  000036  mp$dli=  001466 

mesexa  000000  mfstra  000301  mpsamc  001640  mpsdlt  002200 

mesexe  000200  mfstri  000021  mpsamh  001641  mpsdro  00144 

meslin  000001  mfszer  000025  mpsanb  004420  mpsdst  000454 

meslog  000002  mlsall  100000  hpsasb  000024  mp$dte  002140 

mesmod  000004  mlscls  000000  mpsasc  004432  mp$dty=  001452 

mesnod  000000  mlscon  000001  mpsaus  000512  mpsdua  000207 

mesnon  177777  mltext  000001  mpsbbt  002165  mpsduc  000210 

mesobj  000007  mlsfil  000002  mpsbdf  002164  hpsdum  000202 

me$0b2  000004  mlsfir  000000  mpsbfq  002121  mpsdup  002127 

mespro  000005  mlsint  000000  hpsblk  001616  mpsdvc  002114 

messys  000006  mlskno  140000  mpsblo  001452  mpsdwe  001321 

me.blo  177744  mlsmon  000003  mpsbmx  002176  mpselt  000157 

me. con  177753  hl$sys  000002  mpsbnp  006330  mpsety  001605 


MPSEVE 
MPSFNC 
MPSGOT 
MPSGNM 
MP$GRO 
MPSGRP 
MPSGTY 
MPSHAD 
MP$HBr 
MP$HDD 
MPSHTM 
MPSHWA 
MPIIAT 
MPSJDE 
MPSIDP 
MPS I  HO 
MPSINA 
HPSIND 
MPSINI 
MPSITI 
MPSLAA 
MPSLAN 
MP$LAR 
MPSLAS 
MPSLBS 
MPSLCO 
HPSLCT 
MPSLHL 
MPSLLE 
MPSLLO 
MPILMB 
MPSLMX 
MPSLNA 
MPSLNO 
MPSLOA 
MPSLOG 
MPSLOO 
MPSLTM 
MPSLTY 
MPSLWI 
MPSMAC 
MPSMAD 
MPSMAP 
MPSMAR 
MPSMAV 
MPSMBN 
MPSMBR 
MPSHBU 
MPSMCB 
MPSMCO 
MPSMDE 
MPSMHO 
MPSMLB 
MPSMLK 
HPSHLN 
MPSHLP 
MPSMRB 


000311 
001752 
002222 
002223 
002115 
000541 
002224 
001757 
002142 
000162 
001612 
002210 
001322 
000144 
006327 
000215 
002177 
002204 
002201 
000776 
000231 
000234 
000202 
000012 
000203 
000226 
000156 
000232 
000227 
004432 
002152 
002200 
000144 
000233 
000170 
00^114 
000620 
001613 
004533 
000230 
004420 
001630 
006323 
001635 
006321 
001636 
001637 
001642 
000156 
001632 
004421 
001633 
00020? 
OO^SOb 
001631 
006333 
002171 
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1d5  000066 

126 

127 

128 

129  000070 

no  00007A 

131  000076 

132 

133  00010A 

134  000112 

135  000116 

136  000120 
137 

138 

139 

UO  000124 

U1 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153  000124 

154  000130 
155 

156 
157 

158  000134 

159  000142 

160  000144 

161  000152 

162  000156 

163  000164 

164  000170 

165  000172 

166  000174 

167  000202 

168  000210 

169  000214 

170  000220 

171  000222 
172 

173 


001016 


BNE 


40$ 


121127 
001003 
052764 


177773 

000040     000064 
012764     000003     000120 


103402 
012700 


000002 


CHECK  AND  SAVE  LINE  FORMAT 

CMPB  (R1),#MF$SI& 

BNE  32$ 

BIS  #LF$SIG,L$FLG(R4) 

32$:    MOV  #ME$CIR,l$PAR(R4) 

CALL  CHKCIR 

BCS  40$ 

MOV  #MS.M0R,R0 


IF  NE,  VES  -  ILLEGAL 


SHOW  SIGNIFICANT  CIRCUITS 

NO 

ELSE  SET  FLAG  BIT 


;  SET  ERROR  DETAIL 

;  CHECK  LINE  FORMAT 

;  IF  CS,  ERROR 

;  ELSE,  MORE  TO  COME 


000001 


■   USE    THE   STATUS   IN  RO   TO  BUILD   THE   RETURN  MESSAGE  AND   C-BIT  RETURN 
io$: 


42$: 


.IF 

SWSTK$ 

SAVMAP 

MOV 

MOV 

MOV 

RESMAP 

RETURN 

.IFF 


DF,R$$MPL 

42$ 

SSAHDB,SKSAR6 

SISAHPT  R3 

H.LUNt<<$MBLUN-1>*4>(R3) 


017703 

OOOOOOG 

fOV 

016303 

OOOOOOC 

MOV 

.ENDC 

032763 

000200 

000014 

BIT 

001403 

BEQ 

052764 

000020 

000064 

BIS 

016403 

000060 

45$: 

MOV 

052764 

000001 

000064 

SIS 

012702 

000001 

MOV 

110013 

H0V8 

100013 

BPL 

116463 

000120 

000001 

MOVB 

r  6463 

000121 

000002 

MOVS 

02702 

000003 

MOV 

005064 

000064 

50$: 

CLR 

000261 

60$: 

SEC 
RETURN 

.END 


SAVE  CURRENT  KISAR6  MAPPING 

MAP  TO  MY  EXTERNAL  HEADER 
,  POINT  TO  THE  HEADER 

ft$R3+2(SP)  ;  POINT  TO  NS:  UCB  IN  USER  R3 
;  RESTORE  PREVIOUS  KISAR6 
;  EXIT  TO  USER  STATE 


;  DF  R$$MPL 

aHEADR,R3  ;  POINT  TO  OUR  HEADER 

H.LUN+«$MBLUN-1>*4>(R3),R3  ;  POINT  TO  NS:  UCB 

;    DF   R$$MPL 

#NF.END,U.CW3(R3) 

45$ 

#LF$.ND,L$FLG(R4) 

L$BUF(R4),R3 

#LF$REA,L$FLG(R4) 

#1,R2 

R0,(fi3) 

60i 

L$PAR(R4),1.R3) 

L$PAR*-1(R4),2(R3) 

#3,R2 

L$FLG(R4) 


;   R.i<02 
;**-1 


IS  EXECUTOR  AN  ENDNODE  ? 
IF  EQ,  NO 

ELSE  Remember  it 

RESTORE  THE  BUFFER  ADDRESS 

SAY  OPERATION  IS  READ  INFORMATION 

SET  MESSAGE  LENGTH  TO  1  BYTE 

SET  THE  RETURN  CODE 

IF  PL,  SUCCESS 

STORE  LOW  BYTE  OF  ERROR  DETAIL 

STORE  HIGH  BYTE 

UPDATE  LENGTH  OF  MESSAGE 

ELSE,  UNSUCCESSFUL  INIT 

ELSE,  NO  -  SET  ERROR  RETURN 
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cccccccc 

mill 

cccccccc 

HH 

HH 

000000 

pppppppp 

cccccccc 

mill 

CCCCClCC 

HH 

HH 

000000 

pppppppp 

c 

HH 

HH 

00 

00 

pp    pp 

c 

HH 

HH 

00 

00 

pp    pp 

c 

HH 

HH 

00 

00 

pp    pp 

c 

HH 

HH 

00 

00 

pp    pp 

c 

HHHHHHHHHH 

00 

00 

pppppppp 

c 

HHHHHHHHHH 

00 

00 

pppppppp 

c 

HH 

HH 

00 

00 

pp 

c 

HH 

HH 

00 

00 

pp 

11      c 

c 

HH 

HH 

00 

00 

pp 

II      c 

c 

HH 

HH 

00 

00 

pp 

cccccccc 

mill 

cccccccc 

HH 

HH 

000000 

pp 

cccccccc 

11 

III 

cccccccc 

HH 

HH 

000000 

pp 

SSS3SSSS 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

TT 

ss 

V 

ss 

f 

ss 

TT 

SS5SSS 

TT 

SSSSSS 

TT 

ss 

TT 

SS 

TT 

ss 

'T 

ss 

TT 

LLLLLLLLLL 

ssssssss 

TT 

LLLLLLLLLL 

ssssssss 

TT 
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SETUP  - 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 
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SET  UP  FOR  COMMAND  PROCESSING 


.S8TTL  SETUP  -  SET  UP  FOR  COMMAND  PROCESSING 
I- 
**-SETUP-SET  UP  FOR  COMMAND  PROCESSING 

THIS  ROUTINE  IS  CALLED  TO  INITALIZE  THE  CURRENT  OPERATION  FLAGS 
FOR  A  CIRCUIT. 

INPUTS: 

M   =   ADDRESS  OF  CONTEXT  BLOCK  WITH: 

L$FL2(R4)  =  FLAGS  FOR  THIS  CIRCUIT 

OUTPUTS: 

IF  A  STATE  CHANGE  WAS  REQUESTED,  AND  THE  LINE  IS  NOT 
LOADED,  AN  ERROR  MESSAGE  IS  RETURNED 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


000476 

000476  022764 
000504  001421 


000506  016400  000042 


177777  000050 


SETUP: 


IF  A  STATE  CHANGE  IS  REQUESTED, 
AN  NTL  SET  LINE  REQUEST 


.IF  NDF 

R$$11S 

CMP 

#-1,L$TPT{R4) 

BEQ 

30$ 

.IFTF 

;  NDF  R$$11S 

MOV 

L$SLT(R4).R0 
;  NDF  R$$11S 

.IFT 

000512 
000520 

000522 
000530 
000532 
000536 
000544 
000546 
000550 


032764 
001413 

032760 
001007 
012700 
012764 
000261 
000400 


000002  000070 


040000  000000 

177765 

000001  000072 


;  IS  THIS  A  PVC? 
;  BR  IF  YES 

;  GET  SLT  ADDRESS 


AND  THE  CIRCUIT  IS  NOT  SET,  MARK 


30$: 


#LS$STA,L$FL2(R4) 

30$ 

;  NDF  R$$nS 

#IF.fiDY,L.FLG(RO) 

30$ 

#ME.CST,RO 

*HE$LIN,L$PAR(R4) 

30$ 


BIT 

BEQ 

.ENDC 

BIT 

BNE 

MOV 

MOV 

SEC 

BR 

RETURN 


.IF  NDF  R$$11S  £  S$$BAS  8  R$$RTR 


STATE  CHANGE  REQUESTED  ? 
IF  EQ,  NO 

IS  THE  LINE  LOADED  ? 

IF  NE,  YES  -  PROCEED 

INDICATE  COMPONENT  IN  WRONG  STATE 

COMPONENT  =  LINE 

INDICATE  ERROR 

AND  RETURN 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VA,-UE 


L$NTI 

LtNTL 

LSNUM 

LSNUML 

L$NXT 

L$OPT 

L$OWN 

LSPAR 

L$PDV 

LSPFG 

L$PLT 

L$PRO 

LSPVC 

LSRET 

LiSCN 

LSSCR 

LISER 

LSSLEN 

LSSLT 

LSSNM 

LSSTA 

L$TAD 

L$TH1 

LtrH2 

L$TH3 

L$TNM 

LS'PT 

LSTRB 

LSTYP 

LSUNT 

LSXCH 

L$XMT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MESLIN 

ME.CST 

ME. DON 

MS. sue 


000256 
00013^ 
0002A0 
000236 
0000A4 
000062 
000102 
000072 
000055 
000041 
000112 
000075 
000004 
000256 
000020 
000166 
000230 
000074 
000042 
000046 
000100 
000103 
000130 
000131 
000132 
000052 
000050 
000040 
000063 
000003 
000232 
000120 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
=  000022 
000022 
000020 
000014 
000021 
000013 
000001 
177765 
177600 
000001 


REFERENCES 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#7-73 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 
11-328 
11-327 
9-156 
10-277 


12-361 


.9-154 
9-252 


M2-362 


»9-235 
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9-236 


9-237 


»n-328 


9-178 


9-176 
13-407 


11-316 


11-313 


13-391 


13-395 


11-325 


13-393 
13-392 


9-219 
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ERROR  MESSAGE  STRINGS 

88  .SBTTL  ERROR  MESSAGE  STRINGS 

89 

90 

91  .IF  NDF  R$$PRO  ;  PRO/DECNET 

92 
93 
9A  ;  ERROR  MESSAGE  STRINGS 

95  ; 

96  .ENABL  LC 

97  .IF  NDF  R$$11S 

98  000000  INSMSG:  MESAGS  <Network  Loader  not  instaUed> 

99  000035  NTLMSG:  MESAGS  <Network  Loader  function  failed> 

100  .ENDC^     ^   . 

101  00007A  NODMSG:  MESAGS  <Node  in  wrong  state> 
102 

103  .ENDC   ;  NDF  RSSPRO 

lOA 
105  .EVEN 

1  ()f\ 

107  .IF  NDF  SSS8AS  8  RSSRTR  8  RSSIIS 

109  .IF  NDF  RSSPRO  ;  PRO/DECNET 

110 
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576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592  001706 

593 

594 

595 

596  001706 

597  0017U 

598  001716 

599  001 72A 

600  001726 

601  001732 

602  001740 
603 

604  001742 

605  001744 

606  001746 

607  001752 

608  001754 

609  001760 

610  001762 

611  001766 

612  001770 

613  001774 

614  001776 

615  002000 

616  002002 

617  002006 

618  002010 

619  002014 

620  002022 
621 

622 
623 

624  002024 

625  002030 

626  002034 

627  002040 
628 

629 
630 

631  002042 

632  002046 


032762 
001004 
026427 
001006 
012700 
012764 
000455 

011201 
010100 
142701 
140100 
120027 
001446 
120027 
001416 
120027 
001005 
105701 
001411 
120127 
001424 
012700 
012764 
000424 


012700 
012701 

103404 


.SBTTL  STASER  -  REQUEST  CIRCUIT  STATE  "SERVICE" 

**-STASER-REQUEST  CIRCUIT  STATE  TO  "SERVICE" 

THIS  ROUTINE  IS  CALLED  TO  CHECK  THE  CURRENT  CIRCUIT  STATE,  AND 
IF  LEGAL,  CHANGE  IT  TO  SERVICE. 

INPUTS: 

R2  =  ADDRESS  OF  STATE/OUNER  WORD  IN  SLT 
R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

IF  CC  SUCCESS 

ELSE,'r0  CONTAINS  ERROR  CODE 

STASER: 

CHECK  FOR    ILLEGAL   STATES 


000400  177760 

000000  015355 

177760 

000000  000072 


177417 
000002 
000001 
000000 


000040 

177765 

000003  000072 


BIT  *LF.8R0,L.FLG-L.NMST(R2) 

BNE  3$ 

CMP  L$DDM(R4),**RDLM 

BNE  5$ 

3$:     MOV  #ME.PVA,RO 

MOV  #MP$STA,L$PAR(R4) 

BR  90$ 

5$:     MOV  (R2),R1 

MOV  Rl.fiO 

BICB  #*C360,R1 

BICB  R1,R0 

CMPB  RO,#HS$SER 

BEQ  100$ 

CMPB  R0,#MS$0FF 

BEQ  20$ 

CMPB  R0,#MS$ON 

BNE  10$ 

TSTB  Rl 

BEQ  20$ 

CMP8  R1,#<LN.REF*20> 

BEQ  40$ 

10$:    MOV  #ME.CST,R0 

MOV  #ME$CIR,L$PAR(R4) 

BR  90$ 

REASSIGN  CIRCUIT  TO  DLX 


017020 
015370 


50$: 


MOV 
MOV 
CALL 
BCS 


#<36*400!20>,R0 

#*RDLX,R1 

DLXQIO 

30$ 


012700  017000 


TELL  DLX  THAT  THE  CIRCUIT  IS  ON 


MOV 
CALL 


*<36*400>,RO 
DLXQIO 


;  IS  THIS  A  BROADCAST  CHANNEL 
IF  NE,  N.G. 
ELSE,  DLM  CIRCUIT  ? 
IF  NE,  NO  -  OK 
ELSE  PARAMETER  VALUE  ERROR 
...  STATE 
RETURN  ERROR 

GET  CURRENT  STATE  AND  OWNER 

ISOLATE  SUB-STATE  BITS 

ISOLATE  STATE  BITS 

IS  THE  CIRCUIT  ALREADY  IN  SERVICE  ? 

IF  EQ,  YES  -  NO-OP 

ELSE,  IS  STATE  OFF  ? 

IF  EQ,  YES  -  :^IP  SUB-STATE  CHECK 

ELSE,  IS  IT  ON  ? 

IF  NE,  NO  -  ERROR 

IS  SUB-STATE  CLOSED  ? 

IF  EQ,  YES  -  LEGAL 

IS  THE  SUB-STATE  REFLECTING  ? 

IF  EQ,  YES  -  LEGAL,  BUT  SKIP  DLX  QIOS 

ELSE,  CIRCUIT  IN  WRONG  STATE 

AND  RETURN  WITH  ERROR 


SET  REASSIGN  FUNCTION  CODE 
SET  NEW  LLC  NAME  (DLX) 
ISSUE  QIO 
IF  CS,  OPERATION  FAILED 


SET  ON  FUNCTION  CODE 
ISSUE  QIO 
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1058 

1059 

1060 

1061 

1062 

1063 

106^ 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

107A 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 


000424 
000430 
000434 
000442 
000444 
000450 
000452 
000454 
000460 
000466 
000470 
000476 
000500 
000502 
000510 
000512 
000520 
000522 
000530 
000532 
000536 
000540 
000542 
000544 
000550 
000552 
000554 
000560 
000562 
000564 


012700 
012264 
022764 
001447 
012703 
005722 
001413 
116403 
132764 
001015 
132764 
001431 
000410 
132764 
001404 
132764 
001420 
132764 
001414 
005064 
010401 
062201 
005000 
156100 
000300 
151100 

000401 
000261 


177752 
000072 
177777  000050 

177777 


000040 
000002  000041 

000200  000041 


000002  000041 

000200  000041 

000010  000041 
000072 

000001 


.S8TTL  DMPSET  -  DMP  SET  PARAMETERS  ROUTINE 


**-DMPSET-SET  THE  DMP  PARAMETERS 

INPUTS: 

R2  -  POINTER  TO  DMP  PARAMETER  TABLE 
R4  -  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

CARRY  CLEAR: 

THE  PARAMETER  IS  SET  IN  THE  LINE  TABLE 
CARRY  SET: 

SET  OPERATION  FAILED,  RO  =  ERROR  CODE 

R4,R5  PRESERVED 


DMPSET:  MOV 
MOV 


10$: 


20$: 


30$: 
40$: 


CMP 

BEQ 

MOV 

TST 

6E0 

MOVB 

BITS 

BNE 

BITS 

BEQ 

BR 

BITS 

BEQ 

BITB 

BEQ 

BITB 

BEQ 

CLR 

MOV 

ADD 

CLR 

BIS8 

SWAB 

BISB 

CALL 

BR 

SEC 

RETURN 

.ENDC 


#ME.PNA,RO 

(R2)+,L$PAR(R4) 

#-l,L$TPT(R4) 

30$ 

#-1,R3 

(R25  + 

10$ 

L$TRB(R4),R3 

#LP$TRB,L$PFG(R4) 

20$ 

#LP$WTR,L$PFG(R4) 

30$ 

20$ 

#LP$TRB,L$PFG(R4) 

20$ 

#LP$WTR,L$PFG(R4) 

30$ 

#LP$MPT,L$PFG(R4) 

30$ 

L$PAR(R4) 

R4,R1 

(R2)+,R1 

RO 

KRD.RO 

RO 

(RD.RO 

$DMPST 

40$ 


ASSUME  PARAMETER  NOT  APPLICABLE 

SET  PARAMETER  VALUE 

IS  THIS  A  PVC? 

BR  IF  YES 

ASSUME  APPLIED  ACROSS  ALL  TRIBS 

APPLY  PARAMETER  ACROSS  ALL  TRIBS? 

BR  IF  YES 

GET  TRIB  OF  CURRENT  CIRCUIT 

WAS  A  TRIB  SPECIFIED? 

BR  IF  YES 

WILD  CARD  TRIB  SPECIFIED? 

BR  IF  NO,  ERROR 

YES,  ATTEMPT  TO  SET  THE  PARAMETE- 

WAS  A  TRIB  SPECIFIED? 

BR  IF  NO,  O.K. 

WILD  CARD  TRIB  SPECIFIED? 

BR  IF  NO,  ERROR 

IS  THE  CIRCUIT  A  MULTIPOINT  CIRCUIT? 

BR  IF  NO,  ERROR 

CLEAR  ERROR  DETAIL 

POINT  TO  CONTEXT  AREA 

POINT  TO  SAVED  PARAMETER  VALUE 

STORE  PARAMETER  VALUE  IN  RO 

STORE  PARAMATER  VALUE  HIGH  BYTE 

STORE  IN  HIGH  BYTE 

STORE  LOW  BYTE 

FIND  DMP  LINE  TABLE 

FINISHED 

INDICATE  ERROR 


NDF  S$$BAS  &   RSIRTR  £  R$$PRO 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

L$FLG 

000064 

#6-86 

L$FLX 

000076 

#6-86 

L$FL1 

000066 

#6-86 

L$FL2 

000070 

#6-86 

L$HBT 

000254 

#6-86 

LSHTM 

000226 

#6-86 

12-303 

L$INA 

000125 

#6-86 

8-136 

L$IND 

000126 

#6-86 

8-137 

LSINI 

U00127 

#6-86 

8-138 

L$LCT 

000224 

#6-86 

LSLEN 

000264 

#6-86 

L$LHB 

000234 

#6-86 

LtLTM 

000230 

#6-86 

L$MRT 

000253 

#6-86 

L$MSG 

000056 

#6-86 

•  n-244 

♦11-254 

♦13-457 

LSMTYP 

000075 

#6-86 

LSMWN 

000252 

#6-86 

LSMXB 

000133 

#6-86 

8-142 

LtHXR 

000253 

#6-86 

L$MXW 

000252 

#6-86 

LSNAM 

000000 

#6-86 

LSNLEN 

=  000020 

#6-86 

6-86 

6-86 

L$NMT 

000116 

#6-86 

8-131 

LSNTI 

000256 

#6-86 

L$NTL 

000134 

#6-86 

9-169 

♦11-228 

♦11-229 

♦11-230 

11-233 

L$NUM 

000240 

#6-86 

LSNUML 

100236 

#6-86 

LSNXT 

J00044 

#6-86 

LSOPT 

000062 

#6-86 

L$OWN 

000102 

#6-86 

21-989 

21-1000 

21-1002 

L$PAR 

000072 

#6-86 

♦9-175 

♦12-285 

♦12-290 

♦12-294 

♦12-308 

♦13-339 

♦13-347 

♦13-414 

♦14-546 

♦15-601 

•15-619 

♦17-694 

♦18-727 

♦20-858 

♦20-862 

♦20-872 

♦21-959 

♦23-1077 

♦23-1095 

♦24-1144 

LSPDV 

000055 

#6-86 

14-552 

18-744 

19-795 

20-892 

L$PFG 

000041 

#6-86 
23-1084 

9-165 
23-1086 

10-199 
23-1089 

10-201 
23-1091 

13-368 
23-1093 

20-863 

20-865 

21-960 

21-962 

LSPLT 

000112 

#6-86 

LSPRO 

000075 

#6-86 

LSPVC 

000004 

#6-86 

LSRET 

000256 

#6-86 

LSSfN 

000020 

#6-86 

L$SCR 

000166 

#6-86 

11-234 

LSSER 

000230 

#6-86 

24-1131 

24-1138 

L$SLEN 

000074 

#6-86 

LSSLT 

000042 

#6-86 
24-1127 

9-171 

12-288 

13-345 

18-728 

18-758 

19-809 

20-867 

21-973 

L$SNM 

000046 

#6-86 

L$STA 

000100 

#6-86 
17-700 

13-351 

13-360 

13-374 

13-419 

13-481 

13-488 

13-492 

17-696 

L$TAD 

000105 

#6-86 

LSTHl 

000130 

#6-86 

8-139 

L$TH2 

000131 

#6-86 

8-140 

CICHPD 
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Context  area  definition 


105 


000001 
000002 
OOOOOA 
000010 
000020 
OOOOAO 
000100 
000200 
001000 
100000 

000400 
000002 
000020 
000040 
000200 
010000 

020000 

020053 
000362 
OOIOOA 


Circuits: 

LSSCHN 
LSSCMB 
LSSCUS 
LSSDTE 
LSSMXR 
LSSMXU 
LSSNUM 
LSSRET 
LSSBLK 
LPSNXC 

Lines: 

LSSHBT 
LS$LMB 
LSSMRT 
LSSHWN 
LS$NTI 
LSSPRO 

Common: 

LSSLCT 

Groupings: 

LSSPVC 
LSSSVC 
LSSDLM 


1 
2 

10 

20 

40 

100 

200 

1000 

100000 

400 
LSSCMB 
LSSMXR 
LSSMXW 
LSSRET 
10000 

20000 


Set  PVC  channel 

Set  maximum  data 

Set  circuit  usage 

Set  DTE 

Set  maximum  recalls 

Set  maximum  window 

Set  DLH  number 

Set  recall  timer 

Set  blocking 

Circuit  is  a  new  X.25  circuit 

Set  holdback  timer 

Set  max  block 

Set  max  retransmits 

Set  max  window 

Set  retransmit  timer 

Set  line  protocol 

Set  counter  timer 


LSSCHN I LS$CM8ILS$DTE I LSSMXW! LSSLCT 
LSSCMB 1 LSSMXR I LSSMXW! LSSNUMI LSSRE  T 
LSSBLKILSSCUS 


6  9 
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MPtASC 

MPSAUS 

MPSBBT 

MPSBDF 

MPSBFQ 

MPSBLK 

MPSBLO 

MPSBMX 

MPSBNP 

MPSBRT 

MPSBSA 

MPSBSD 

MPSBSI 

MPSBSP 

HPSBUF 

MP$BUP 

MPSBUS 

MPSCAC 

HPSCAS 

MPSCAT 

MPSCCS 

MPSCHN 

MPSCIR 

MPSCI.K 

MPSCLN 

MPSCLT 

MPSCMB 

MPSCMK 

MPSCMX 

MPSCND 

MPSCNU 

MPSCOB 

MPSCON 

MPSCOS 

MPSCPF 

MprrPL 

HPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

MPSDAL 

l»IP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DHO= 

MPSDIA 

MPSDLB 

MPSDLG 

MP$DLI= 

MPSDLT 

MPSDRO 

MPSDST 

MPSDTE 


00AA32 

000512 

002165 

00216A 

002121 

001616 

OOK52 

002176 

006330 

001620 

002176 

002203 

002200 

006331 

000170 

00632A 

001643 

001750 

001762 

002210 

00A406 

002U1 

000U4 

002131 

002126 

002211 

0021A2 

000537 

002153 

000310 

001753 

000311 

002126 

001 60A 

000230 

000232 

000226 

000161 

001755 

002127 

000540 

002570 

00U64 

002177 

001131 

000156 

0021U 

001320 

00U65 

000173 

002571 

001521 

00U66 

002200 

00U41 

OOO'M 

002U0 


MP$DTY= 

MPSDUA 

MPSDUC 

HPSDUM 

MPSDUP 

MPSDVC 

HPSDWE 

MPSELT 

MPSETY 

MPSEVE 

MPSFNC 

MPSGOT 

MPSGNM 

HPSGRO 

MPSGRP 

MPSGTV 

HPSHAD 

MPSHBT 

MPSHDD 

HP$HTH 

HPSHWA 

MPSIAT 

MPSIDE 

MPS I  DP 

MPtlHO 

MPSINA 

MPtIND 

MPSINI 

MPSITI 

MPSLAA 

HPSLAN 

MPSLAR 

MPSLAS 

MPSLBS 

MPSLCO 

HPSLCT 

MPSLHL 

MPSLLE 

MPSLLO 

MPSLHB 

MPSLMX 

MPSLNA 

MPSLNO 

MPSLOA 

MPSLOG 

NPSLOO 

HPSLTM 

MPSLTY 

MPSLWI 

MPSHAC 

MPSMAD 

MPSMAP 

MPSMAR 

MPSHAV 

MPIMBN 

MPSMBR 

MPSMBU 


00U52 

000207 

000210 

000202 

002127 

0021U 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 

001757 

002142 

000162 

001612 

002210 

001322 

000144 

006327 

000215 

002177 

002204 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 

000156 

000232 

000227 

004432 

002152 

002200 

000144 

000233 

000170 

004514 

000620 

001613 

004533 

000230 

004420 

001630 

006323 

001635 

006321 

001636 

001637 

001642 


MPSMCB 

MP$HC0 

MPSMDE 

MPSMHO 

HPSMLB 

MPSMLK 

MPSMLN 

MPSMLP 

MP$MRB 

MPSMRO 

MPSHRP 

HPSMRT 

MPSMRV 

MPSMSB 

MPSMVE 

MP$KV1 

MPSMVR 

MP$MWN 

MPSMXB 

MP$MXC 

HPSMXR 

HPSKXW 

MPSNAA 

MPJNAC 

MPSNAP 

MPSNCT 

HPSNET 

HPSNLI 

HPSNNA 

MPSNOD 

MPSNRA 

MPSNRB 

HPSNSA 

MPSNTI 

HPSNUH 

HPJNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPtOHO 

MPSONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

HPSOUS 

MPSOVE 

MPSOUN 

MPSPAR 

MPJPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSP.HA 

MPSPHY 


000156 

001632 

004421 

001633 

000202 

001306 

001631 

006333 

002171 

001605 

006322 

002153 

006320 

000170 

000145 

001634 

001751 

002154 

002172 

000466 

001630 

002143 

006335 

001130 

006326 

000240 

002114 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 

000513 

002152 

000024 

000144 

002114 

000170 

000012 


MPSPLI 
MPSPLN 
MPSPLO 
MP$PMC 
MPSPNT 
MPSPRl 
MPSPRO 
MPSPSS 
MP$PST 
MPSRET 
MPSRFA 
MPSRMX 
MPSRPA 
MPSRPR 
MPSRRT 
MPSRST 
HPSRSV 
MPSRSZ 
HPSRTI 
MPSRIM 
MPSRVE 
MPSRVT 
MPSSAC 
MPSSAD 
MPSSCA 
MPSSCO 
MPSSCT 
MPSSDU 
MPSSDV 
HPSSEH 
MPSSER 
MPSSEI 
MPSSGZ 
MPSSID 
MPSSIN 
MPSSLI 
MPSSLO 
MPSSHX 
HPSSND 
MPSSNP 
MPSSNU 
MPSSOB 
MPSSPA 
MPSSPR 
MPSSPS 
Mr-$STA 
HPSSTI 
MPSSTT 
MPSSTY 
MPSSUB 
MPSSUR 
MPSSUS 
MPSSVR 
MPSSUI 
MPSSYP 
MPSTFL 
HPSTHl 


000025 
002140 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 
000144 
000000 
001644 
000176 
000310 
000156 
000171 
002202 
000500 
006332 
000542 
000524 
000157 
000536 
000513 
000000 
002140 
002201 
000175 
000001 
000156 
000512 
000163 
002260 
002424 
000156 
002206 


HP$TH2 

MP$TH3 

MPSTLN 

MPJTLO 

MPSTPA 

HPSTRI 

MP$TST 

MPSTYP 

MPSUCS 

MPSUSR 

HPSVEC 

MPSVER 

MPSUDF 

MPSWMX 

MP$XMT 

MPSXPF 

MPSXPL 

MPSXPT 

MPSXXX 

MPJSST 

MSSACT 

MSSADU 

MSSALO 

HSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 

MSSGLO 

MSSHOL 

MSSINA 

MSSLOA 

HS$LOO 

MSSOFF 

MSSON 

HSIPRO 

MSSREA 

MSSREF 

MSSRES 

HSSRST 

MSSRSX 

MSSRT 

MSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 


002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
177777 
004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
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CIRECH  - 

READ  CIRCU 

Macro  ca 

Us 

55 

56 

57 

58 

59 

60 

61 

62 

63 

000000 

6^ 

000000 

65 

000000 

66 

000000 

67 

000000 

68 

000000 

69 

000000 

70 

000000 

71 

000000 

72 

000000 

73 

ooocoo 

74 

000000 

75 

000000 

76 

'n 

78 

79 

ooc 

80 

81 

000000 

000210 
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.SBTTL  Macro  caLLs 
MACRO  LIBRARY  CALLS 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 


000020 


.MCALL  MANDF$,SAVRG,RESRG,PDVDF$,SLTDF$,PCLDF$,MESAG$,PHBDF$ 

.HCALL  DDCDF$,SAVMAP,MAP,RESMAP,RETC,CEACC$,ECDDB$ 

.MCALL  CTRDF$,BIAS,SVCDF$,XPDDB$,PL8DF$,C1RCX$,ASL$,ADJDF$,DHBDF$ 

CTRDFS  ;  DEFINE  TRANSPORT  COUNTER  BLOCK  SYMBOLS 

ADJDFS  ;  DEFINE  ADJACENCY  OFFSETS 

DHBDFS  ;  DEFINE  DEC  HO.IE  BLOCK  OFFSETS 

MANDFS  ;  DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

ECDDBS  ;  DEFINE  ECL  DD8  OFFSETS 

XPDDBS  ;  DEFINE  XPT  DDB  OFFSETS 

PDVDF$  ;  DEFINE  PDV  OFFSETS 

SLTDFS  ;  DEFINE  SLT  OFFSETS 

SVCDFS  ;  DEFINE  SVC  OFFSETS 

DDCDFS  ;  DEFINE  DDCMP  STATION  TABLE  OFFSETS 

PHBDFS  ;  DEFINE  PSI  HOME  BLOCK  OFFSETS 

PCLDFS  ;  DEFINE  PCL  LINE  TABLE  OFFSETS 

PLBDFS  ;  DEFINE  PLB  OFFSETS 


LOCAL  DEFINITIONS 

RBIAS=2 

CIRCXS  LIST,<$X> 
CONTEXT  AREA  OFFSET  DEFINITIONS 


WE  MUST  ACCOUNT  FOR  SAVED  KISAR6 


.ASECT 
.  =  0 
LSNLEN  =  16. 


;  MAXIMUM  NAME  LENGTH 


The  offsets  L$NAM  to  L$PDV  Inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


L  Si  JAM 
LSDDM 
LSCTL 
LSUNT 
LSPVC 

LSSCN 
LSTRB 
LSPFG 
LSSLT 
LSNXT 
LSSNM 
LSTPT 
LSTNM 
LSCTB 
LSCHN 
LSPDV 
LSMSG 
LSBUF 
LSOPT 


.BLKW  1 
.BLKB  1 
.8LKB  1 
.BLKW  1 
.  =  0+LSNLEN 
.BLKB   LSNLEN 


.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.8LK8 


;  DEVICE  NAME 

;  CONTROLLER  NUMBER 

;  UNIT  NUMBER 

;  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVr  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSI) 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
...  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
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FNOLTM  -  Find  adjacent  node  and 

listen  timer 

A86 

.SBTTL 

FNDLTM  -  Find  adjacent  no 

de  and  listen  timer 

A87 

+■ 

^88 
^89 
A90 

♦•  FNDLTM  -  F 

ind  adjacent  node  and  listen  timer 

Inpi 

ts; 

L$FLG(R4):  LF$SEG  if  partial  response  in  progress 

^91 

L$8UF(R4)  =  address  of  response  message 

492 
493 

Output: 

Carry  set:   no  information. 

494 

Carry  clear:  success  - 

495 
496 

LTIM  =  current  listen  time.'                                     1 

497 

L$FLG(R4):  LFSSEG  set  if 

partial  response  message 

498 

aL$BUF(R4)  =  MS. PAR  if  partial  response  message 

499 

L$LTM(R4)  =  encoded  listener  timer 

500 

L$N0D(R4)  =  node  address 

501 

L$ADJ(R4)  =  virtual  address  of  next  adjacency 

502 

L$C0U(R4)  =  number  of  unscanned  adjacencies 

503 
504 

_Reg 

sters: 

No  registers  modified 

505 

506 

507  001474 

NDLTM:  SAVRG 

<R1,R2> 

save  registers 

508  001500 

CALL 

FNDPLD 

look  for  PLB  for  channel 

509  001504 

103002 

BCC 

1$ 

if  CC,  circuit  owned  by  transport 

510  001506 

511 

512  001512 

000167 

000432 

JMP 

90$ 

if  CS,  no  info 

$: 

SWSTKS 

60$ 

;  enter  system  state 
;  copy  PLB  address 

513  001516 

010205 

MOV 

R2,R5 

514  001520 

012702 

114224 

MOV 

#*RXPT,R2 

;  get  process  id 

;  get  PDV  index            ;  RJK10 

515  001524 

CALL 

aPDVID 

516  001530 

103551 

BCS 

30$ 

;  if  CS,  get  out  now 

517  001532 

120264 

00005"^ 

CMPB 

R2,L$PDV(R4) 

;  is  circuit  owned  by  XPT  ? 

518  001536 

001146 

BNE 

;  if  NE,  no 

519  001540 

067702 

OOOOOOG 

ADD 

aPDVTA,R2            ; 
(R2),r6 

;  point  into  PDV  vector       ;  RJK10 

520  001544 

011200 

MOV 

;  point  to  process  PDV 

521  001546 

005760 

000000 

TST 

Z.DSP(RO) 

;  is  prci  ess  loaded  ? 
;  i  f  EQ,  no 

522  001552 

001540 

BEO 

^0*    „.  .          ■ 

523  001554 

016002 

000016 

MOV 

Z.DAT(R0),R2          ; 

;  else  pi  int  to  process  DOB 

525  001560 

032764 

000020 

000064 

BIT 

#LF$ENn,L$FLG(R4) 

;  is  exec  (tor  an  endnode  ? 

526  001566 

527 

528 

529 

530  001570 

001432 

BEQ 

5$ 

;  if  EQ,  no 

;■  Au 

circui ts 

(Endnode):  return  listen  timer  for  single  adjacency 

MAP 

Z.DSP(RO) 

;  map  to  XPT  process 

531  001576 

016201 

000072 

MOV 

N$ADJ1(R2),R1 

;  get  ADJI  virtual  address 

532  001602 

BIAS 

R1                  ; 

;  bias  it 

533  001612 

132761 

000010 

000002 

BIT8 

#AT$UP,A$TYP(R1) 

;  is  adjacency  up  ? 

534  001620 

001515 

BEQ 

30$ 

;  if  EQ,  no  information 

535  001622 

016167 

000000 

176150 

MOV 

A$NID(R1),N0DE 

;  get  adjacent  node  address 

536  00163C 

016202 

000074 

MOV 

N$ADJ2(R2),R2 

;  get  ADJ2  virtual  address 
;  bias  it  for  APR6 

537  001634 

BIAS 

R2 

538  001644 

116266 

000002 

OOOOOOG 

MOVB 

A$TMI(R2),R$R1(SP) 

;  return  listen  timer 

539  001652 

540 

541  001654 

000513 

BR 

55$                ; 

;  return  success 

132765 

000200 

000001 

5$: 

BITS 

*PT$BR0,P$TYP(R5) 

is  circuit  a  broadcast  channel  ? 

542  001662 

001027 

BNE 

10$ 

if  NE,  yes 

G  12 
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MP$XMT 

002166 

MTSLPB 

000005 

MPSXPF 

0002A1 

MTSMAX 

000037 

MPtXPL 

00024s 

MTSMUL 

000100 

MPSXPT 

OOOZ'.O 

MTSNLE 

000017 

MPtXXX 

177777 

MT$N0N 

000001 

MPtSST 

0044U6 

MT$NR4 

000005 

MStACT 

000001 

MTSNTY 

000060 

MStADU 

000010 

MTtOCT 

000060 

MStALO 

000007 

MTSPHA 

000002 

MSSASE 

000006 

MTJPOI 

000000 

MSSATR 

000011 

MT$QP2 

000010 

MSSAUT 

000000 

MTSROU 

000000 

MSSCLE 

000003 

MT$R04 

000004 

MSSDED 

000004 

MTSSEC 

000000 

MSSDIE 

000003 

MTtSGD 

000020 

MSSDUM 

000004 

MT$SYS 

000002 

MSSFAI 

000013 

MTSTER 

000001 

MS$GLO 

000000 

MTSTRI 

000002 

MSSHOL 

000002 

MISTYP 

007777 

MSSINA 

000002 

MTJUSD 

000000 

MSSLOA 

000003 

MT$X25 

000003 

MSSLOO 

000002 

MUSING 

000001 

MSSOFF 

000001 

MUSOUT 

000002 

MS$ON 

000000 

MUSPER 

000000 

HSSPRO 

000006 

MVSIII 

000000 

MSSREA 

000004 

MVSIV 

000001 

MSSREF 

000001 

MXSACT 

000020 

MSSRES 

000003 

MXSCIR 

000020 

!«IS$RST 

000001 

MXSCLN 

000020 

MSSRSX 

000002 

MXSCNM 

000006 

MSSRT 

000005 

MXSCON 

000006 

MS$SER 

000002 

MXSDAC 

000020 

MSSSHU 

000002 

MXSDTE 

000020 

MStSRV 

000007 

MXSFIL 

000034 

HSSSTA 

000000 

MXSLGC 

000777 

MSSSYN 

000012 

MXSLIN 

000020 

MSSTER 

000001 

MXSLON 

000006 

MSSTOP 

000003 

MXSNMS 

000454 

MSSTRI 

000005 

MXSNOD 

000006 

MSSUNR 

000005 

MXSOBJ 

000006 

MSSVMS 

000004 

MX$OWN 

000040 

MS . DON 

177600 

MXSPAR 

000036 

MS.MOR 

000002 

MXSPAS 

000010 

MS. PAR 

000003 

MXSRAC 

000047 

MS. sue 

000001 

MXSRID 

000047 

MTPCHA 

001164R 

MXSRPS 

000047 

MTSARA 

000003 

MXSSID 

000040 

MTSASC 

000100 

MXSSNK 

000377 

MTSBIL 

000001 

MXSTYP 

000077 

MTSBYS 

'^00011 

MXSUID 

000020 

MTSCI 

U00007 

M$$CRB= 

000124 

MTSCLE 

000077 

M$$CRX= 

000000 

MTSCOD 

no,i5Qo 

M$$FCS= 

000000 

MTSCON 

OC,.''yl 

M$$MGE= 

000000 

MTSDMC 

OOOOCf 

M$$NET= 

000000 

mt$e:h 

000006 

M$$OVR= 

000000 

MTSHEX 

000040 

NF$BLK= 

000100 

turday 

f  15 
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NF$DM0= 

000010 

NIVCB 

000010 

PX$SVC= 

000100 

NF$MOU= 

000040 

N$VER 

000066 

PSCHN 

928SSi 

NF$RST= 

000002 

NSXLEN 

000124 

PSCNT 

000005 

NF$SCN= 

000020 
000004 

N$$ACC= 

000001 

PSCTR 

000034 
000015 

NF$SHU= 

N$$BUF= 

000001 

PSDRCT 

NF$TIH= 

000200 

N$$LDV= 

000001 

PSDRTR 

000036 

NM.CLN 

003400 

N$$MCP= 

000001 

PSFLG 

000012 

NM.INI 

002400 

N$$MLL= 

000001 

PSFWD 

000030 

NM.OPR 

003000 

N$$MOV= 

000010 

PSICCB 

000046 

NM.VR2 

002401 

N$$NCT= 

000001 

P$IPL 

99821^ 

NM.VR3 

002402 

N$$PEM= 

000001 

PSLCD 

000002 

NODE 

OOOOOOR 

OUNER 

000002R 

PSLEN 

000052 

NSACO 

000000 

PDVID  = 

******  Gx 

PSLST 

009999 

NSACTL 

000032 

PDVTA  = 

******  GX 

PSNRNI 

000040 

NSADJl 

000072 

PF$BLK= 

020000 

PSOCCB 

000050 

N$ADJ2 

000074 

PF$CLC= 

010000 

PSPFQ 

000006 

NSCACH 

000062 

PF$DLM= 

100000 

P$PKSZ 

000044 

NSCIR 

000034 

PF$E1P= 

000002 

PSRMXl 

000016 

NSCRC 

000120 

PF$ENB= 

000001 

P$RMX2 

000020 

NSDLA 

000020 

PF$FAI= 

004000 

PSRPRI 

099911 

NSDLY 

000014 

PF$FM1= 

000100 

PSRTIM 

000003 

NSELEN 

000054 

PF$FM2= 

000200 

P$STA1 

000022 

NSENC 

000042 

PF$OFF= 

000000 

P$STA2 

000023 

NSERRC 

000022 

PF$RH1= 

000020 

P$TIM 

000010 

NSFLG 

000005 

PF$RH2= 

000040 

PSTSCT 

000026 

NSFNC 

000006 

PF$RVR= 

000010 

PSTSIZ 

000024 

NSGENO 

000052 

PF$STA= 

000004 

PSTYP 

000001 

NSGTM 

000015 

PF$SVC= 

040000 

P$$P45= 

000000 

NSHCI 

000052 

PFSUP  = 

000004 

P$$WRD= 

000000 

N$HC2 

000056 

PR$BED= 

000200 

Q$$OPT= 

000010 

NSHIGH 

000033 

PR$BEU= 

000100 

RBIAS  = 

099992 

NSLLT 

000026 

PR$BRD= 

000040 

RF.CTL= 

000003 

NSLLTM 

000024 

PR$BRU= 

000020 

RF.LD1= 

000040 

NSLVC 

000036 

PR$DWN= 

000002 

RF.LD2= 

000199 

N$LV1 

000002 

PR$LCC= 

000010 

RF.TIM= 

177400 

N$LV2 

000010 

PR$MOP= 

000004 

RF.TMO= 

000400 

NSMBXQ 

000050 

PRSUP  = 

000001 

RF.UFC= 

000200 

NSMHCI 

000036 

PS$CHR= 

000016 

RF.UTD= 

000020 

N$MHC2 

000044 

PS$FAI= 

000014 

RF.UTM= 

000030 

NSPLD 

000016 

PS$NTI= 

000006 

RF.UTS= 

000010 

NSPLLT 

000030 

PS$OFF= 

000000 

RX.NXM= 

000020 

NSPRJ 

000076 

PS$STR= 

000002 

RX.OVR= 

000010 

NSROAI 

000022 

PSSUP  - 

000012 

R$R1  = 

******  GX 

N$R0A2 

000030 

PS$VER= 

000010 

R$R2  = 

******  GX 

NSRTMX 

000014 

PSSUT  = 

000004 

R$R3  = 

******  GX 

NSRTMl 

000014 

PT$BRO= 

000200 

RI$DER= 

000000 

N$RTM2 

000015 

PT$DRT= 

000100 

R$$K11= 

000001 

N$Rrl 

000000 

PT$END= 

000004 

R$$SND= 

000000 

N$RT2 

000006 

PT$LV1= 

000002 

R$$11M= 

000000 

NSSLA 

000016 

PT$LV2= 

000001 

R.CSR 

000056 

NSSNOD 

000012 

PT$PH3= 

000010 

R.FLG 

000064 

NSTCTL 

000112 

PT$XAR= 

000020 

R.LST 

0OC1O4 

NSTIM 

000004 

PVCBLK= 

******  GX 

R.MAP 

000110 

NSTLC 

000100 

PVCCHA= 

******  GX 

R.QUE 

000062 

NSTNC 

000114 

PVCPRT 

000010R 

R.SLN 

000070 

NSTRC 

000106 

PX$BLK= 

000040 

R.SRV 

000060 

NSTTCB 

000110 

PX$DLM= 

000200 

R.STA 

000066 
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cccccccc 

III 

III 

RRRRRRRft 

EEEEEEEEEE 

cccccccc 

000000 

cccccccc 

III 

III 

RRRRRRRR 

EEEEEEEEEE 

cccccccc 

000000 

cc 

I 

RR     RR 

EE 

00     00 

cc 

I 

RR     RR 

EE 

00     00 

cc 

I 

RR     RR 

EE 

00     00 

cc 

I 

RR     RR 

EE 

00     00 

cc 

I 

RRRRRRRR 

EEEEEEEE 

00     00 

cc 

I 

RRRRRRRR 

EEEEEEEE 

00     00 

cc 

I 

RR  RR 

EE 

on     00 

cc 

RR  RR 

EE 

00     00 

cc 

RR    RR 

EE 

00     00 

cc 

I 

RR    RR 

EE 

00     00 

cccccccc 

III 

HI 

RR      RR 

EEEEEEEEEE 

cccccccc 

000000 

cccccccc 

III 

III 

RR      RR 

EEEEEEEEEE 

cccccccc 

000000 

ssssssss 

TTTTTl 

TTTT 

SSSSS5SS 

TTTTTl 

III! 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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MPSMRO 

MPtMRP 

MP$MRT 

MP$MRV 

MPtMSB 

MPtMVE 

MP$MV! 

HPSHVR 

MP$MWN 

MPSMXfi 

MPSMXC 

MPSMXR 

MPSMXW 

MPtNAA 

MPSNAC 

MPSNAP 

MPSNCT 

HPSNET 

MPSNLI 

MPSNNA 

MPSNOD 

MPSNRA 

MPtNRB 

MPSNSA 

MPSNTI 

MPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSGAN 

MPSOCO 

MPSOHO 

MPSONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

HPSOUS 

MPSOVE 

HPSOWN 

MPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 


001605 

006322 

002153 

006320 

000170 

000U5 

001634 

001751 

002154 

002172 

000466 

001630 

002143 

006335 

001130 

006326 

000240 

002114 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 

000513 

002152 

000024 

000144 

002114 

000170 

000012 

000025 

0C2140 

000012 

004374 

002126 

004411 

002130 

001763 

001762 


MPSRET 

MPSRFA 

MP$RMX 

MPtRPA 

MP$RPR 

MPSRRI 

MPSRSI 

MPSRSV 

MPSRSZ 

MP$RT] 

MPSRTM 

MPSRVE 

MPSRVT 

HPSSAC 

MP$SAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MPSSDV 

MPtSEH 

MPSSER 

MPSSET 

MPtSGZ 

MPSSID 

MPSSIN 

MPSSLI 

MPSSLO 

MPSSMX 

MPSSND 

MP$SNP 

MP$SNU 

HPSSOB 

MPSSPA 

MPSSPR 

MPSSPS 

MPSSTA 

MPSSTl 

W;'$STT 

HPISTY 

MPSSUB 

MPSSUR 

MPSSUS 

MPSSVR 

MPSSWI 

MPSSYP 

MPSTFL 

HPSTHI 

MP$TH2 

MP$TH3 

MPSTLN 

MPSTLO 

MPSTPA 

MPSTRI 

MPSTST 

MPSTYP 

MPSUCS 


001631 

001323 

002201 

004374 

001606 

002213 

002212 

0017',4 

001756 

001616 

001611 

001604 

000156 

000514 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

001644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 

000000 

002140 

002201 

000175 

000001 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004375 

002164 

000144 

002130 

004407 


MPSUSR 

MPSVEC 

MPSVER 

MPSWDF 

MPSUMX 

MPSXMT 

MPSXPF 

MPSXPL 

MPSXPT 

HPSXXX 

MP$5ST 

MSSACT 

MSSADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MS$CLE 

MSSDED 

MS$DIE 

MSSDUM 

MSSFAl 

MSSGLO 

HSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOFF 

HS$ON 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MSSRSr 

MSSRSX 

MS$RT 

MSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MTSBIL 

MTSBYS 

MTSCI 

MTSCLE 

MTSCOD 


001750 

004410 

004406 

002165 

002177 

002166 

000242 

000244 

000240 

U7777 

004406 

000001 

000010 

000007 

000006 

000011 

000000 

000003 

000004 

000003 

000004 

000013 

000000 

000002 

000002 

000003 

000002 

000001 

000000 

000006 

000004 

000001 

000003 

000001 

000002 

000005 

000002 

000002 

000007 

000000 

000012 

000001 

000003 

000005 

000005 

000004 

177600 

000002 

000003 

000001 

000003 

000100 

000001 

000011 

000007 

000077 

000200 


MT$CON 

MTSDMC 

MT$ETH 

MT$HEX 

MT$LPB 

MTSMAX 

MTSMUL 

MT$NLE 

MT$NON 

MT$NR4 

MTSNTY 

MTSOCT 

HT$PHA 

MTSPOI 

MT$QP2 

MTSROU 

MT$R04 

MTSSEC 

MTSSGD 

MTSSYS 

MTSTER 

MT$TRI 

MTSTYP 

MTSUSD 

MT$X25 

MUSING 

MUSOUT 

MUSPER 

MVIIIl 

MVSIV 

MXSACT 

MXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

MXSDTE 

MXSFIL 

MXSLGC 

MXSLIN 

MXSLON 

MXSNMS 

MXSNOD 

MXSOBJ 

MXSOUN 

MXSPAR 

MXSPAS 

MXSRAC 

MXSRID 

MXSRPS 

MXSSID 

MXSSNK 

MXSTYP 

MXSUID 

H$$CRB: 

M$$CRX: 

MSSFCS^ 


000001 

000004 

000006 

000040 

000005 

000037 

000100 

000017 

000001 

000005 

000060 

000060 

000002 

000000 

000010 

000000 

000004 

000000 

000020 

000002 

000001 

000002 

007777 

000000 

000003 

000001 

000002 

000000 

000000 

000001 

000020 

000020 

000020 

000006 

000006 

000020 

000020 

000034 

000777 

000020 

000006 

000454 

000006 

000006 

000040 

000036 

000010 

000047 

000047 

000047 

000040 

000377 

000077 

000020 

000124 

000000 

000000 


M$$MGE= 

M$$NET= 

M$$OVR= 

NM.CLN 

NM.INI 

NM.OPR 

NM.VR2 

NM.VR3 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PCLCIR= 

PDVTA  = 

PVCC0U= 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SCRATC 

SFSANM 

SFSDNM 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

T$$KMG= 

l$$MIN= 

V$$CTR^ 

X$$l)BT  = 

ZF.C0U= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 


000000 
000000 
000000 
003400 
002400 
003000 
002401 
002402 
000001 
000001 
000001 
01/0001 
000001 
000010 
000001 
000001 


000000 

000000 

000010 

000000 

000001 

000000 

000000 

OOOOOOR 

000001 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

001000 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 


GX 
GX 
GX 
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CIREIN  -  CIKC 
Symbol  table 


A$$CPS= 
A$$PR1= 
A$$TRP= 
BITO  = 
BIT1  = 
BITIO  = 
BIT11  = 
B1T12  = 
BIT13  = 
BITU  = 
BIT15  ^ 
BIT2  = 
BIT3  = 
BIT4  = 
BITS  = 
BIT6  = 
BIT7  = 
BITS  = 
o\T)     - 

B$10 

B$11 

B$12 

B$5 

B$6 

B$7 

B$7S10 

CHKCIR^ 

CIRtIN 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DV.CCL= 

DV.COM= 

DV.D1R= 

DV.EXT= 

0V.F11= 

DV.ISP= 

DV.MBC= 

DV.MNT= 

OV.MSD= 

DV.OSP= 

DV.PSE= 

DV.REC= 

DV.SDI= 

DV.SQD= 

DV.SWL= 

D\/.TTY  = 

DV.UMD= 

D$$BUG= 

OSSISK:- 

D$$L^I= 

D$$YW= 
E$$XPR= 
F$$LVL  = 
GS$TPP= 


000000 

G$$TSS= 

000000 

000000 

G$$TTK= 

000000 

000000 

G$SWRD= 

000000 

000000 

HEADR  = 

Ir-kll*** 

000001 

H.CSP 

000000 

000002 

H.CUIC 

000010 

002000 

H.DSW 

000046 

004000 

H.DUIC 

000012 

010000 

H.EFLM 

000004 

020000 

H.EFSV 

000040 

040000 

H.FCS 

000050 

100000 

H.FORT 

000052 

000004 

H.FPSA 

000042 

000010 

H.FPSL= 

000062 

000020 

H.FPVA 

000034 

000040 

H.GARD 

000072 

000100 

H.HDLN 

000002 

000200 

H.IPC 

000016 

000400 

H.IPS 

000014 

001000 

H.ISP 

000020 

000003 

H.LUN 

000076 

000004 

H.NLUN 

000074 

000005 

H.NML 

000061 

000000 

H.ODVA 

000022 

000001 

H.ODVL 

000024 

000002 

H.OVLY 

000054 

000006 

H.PFVA 

000032 

.*«**«  GX 

H.RCVA 

000036 

OOOOOORG 

H.RRVA 

000062 

000000 

H.SPRI 

000060 

000400 

H.TKVA 

000026 

177564 

H.TKVL 

000030 

000002 

H.VEXT 

000056 

020000 

H.UND 

000044 

000010 

H.X25 

000064 

000400 

I$$RAR= 

000000 

040000 

I$$RDN= 

000000 

002000 

K$$CNT= 

177546 

000400 

K$$CSR= 

177546 

100000 

K$$LDC= 

000000 

000100 

K$$TPS= 

000074 

004000 

LCSEXT 

000000 

010000 

LCSINT 

000001 

000001 

LD$LP  = 

000000 

000020 

LF$END= 

000020 

000040 

LF$MLT= 

040000 

001000 

LF$REA= 

000001 

000004 

LF$SEG= 

100000 

000200 

LF$SIG= 

000040 

177514 

LF$SKP= 

000004 

000000 

LF$VR2= 

000010 

000001 

LF$ZER= 

000002 

000000 

LP$MPT= 

000010 

000000 

LP$MUX= 

000004 

000000 

LP$TRB= 

000002 

000001 

LP$UNT= 

000001 

000000 

LP$WCN= 

000040 

GX 
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LP$WDV= 

000020 

MC$CAP 

001440 

LP$WLD= 

MC$CCL 

001445 

LP$WTR= 

000200 

MCSCDC 

002045 

LP$WUN= 

0001 ?i 

MC$CDP 

001441 

L$ADJ 

MCSCIF 

001465 

LSBUF 

000060 

MCSCLD 

001464 

L$CHN 

000054 
000114 

MC$COU 

100000 

LSCOU 

MCSCTL 

001454 
001452 

LICTB 

000053 

MCSCTR 

L$CTL 

000002 

MC$CTS 

001 453 

L$DDM 

000000 

MCSDOV 

002050 

LSFLG 

000064 

MCSLBR 

001750 

L$FLX 

000070 

MCSLBS 

001751 

L$LEN 

000124 

MCSLDI 

001774 

L$LTM 

000070 

MC$LD0 

001775 

LSMSG 

000056 

MCILDR 

001762 

L$MTYP 

000067 

MCSLDS 

001763 

L$NAM 

000000 

MCSLLB 

002021 

L$NLEN= 

000020 

MCSLLP 

002115 

LSNOD 

000112 

MCSLLR 

002007 

L$NXT 

000044 

MCSLOO 

000001 

L$OPT 

000062 

MCSLRB 

002020 

L$PAR 

000120 

MCSLRP 

002114 

LSPDV 

000055 

MCSLRR 

002006 

L$PFG 

000041 

MCSLSl 

002032 

L$PL8 

000116 

MCSLST 

002033 

LSPRO 

000067 

MCSLUP 

006072 

L$PVC 

000004 

MCSMAP 

010000 

LSSCN 

000020 

MCSMBL 

001764 

LSSCR 

00^072 

MCSMBX 

004420 

LJSLEN 

OO0O66 

MCSMBY 

001752 

L$SLT 

000042 

MCSMPX 

004406 

L$SNM 

000046 

MCSNAP 

001604 

L$SYL 

000122 

MCSNBR 

001130 

L$TNH 

000052 

MCSNBS 

001131 

LSTPT 

000050 

MCSNCR 

001154 

LSTRB 

000040 

MCINCS 

001155 

L$rsz 

000070 

MCSNML 

001274 

L$TYP 

000063 

HCSNMR 

001142 

L$UNT 

000003 

MCSNMS 

001143 

L$$ASG= 

000000 

MCSNNO 

001606 

L$$DRV= 

000000 

MCSNNU 

001605 

L$$P11= 

000001 

MCSNOP 

001607 

L$$11R= 

000000 

MCSNOR 

000000 

MBSDIS 

000001 

MCSNPF 

001616 

MBSENA 

000000 

MCSNPR 

001630 

MBSFUL 

000002 

MCSNRE 

001200 

MBSMIX 

000002 

MCSNRT 

001166 

MBSONE 

000001 

MCSNVR 

001642 

M8$RX0 

000001 

l*IC$P08 

000000 

HBSTXO 

000000 

MC$Pn 

000001 

MBSZER 

000000 

MCSRFL 

002046 

MCSBAB 

006073 

MCSSBU 

002051 

MCSBID 

001765 

MCSSFL 

002044 

MCSBMC 

001767 

MCSSYC 

000012 

MC$8SC 

001766 

MCSSYL 

000036 

MCSCAC 

001442 

HC$SYR 

000050 

HC$SYS 

MCSSYZ 

MCST8R 

MCtTBS 

MC$TDR 

MC$riM 

MCSTYP 

MCSUBU 

MC$UFD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSWID 

MCSWIH 

MCSWIL 

MC$W08 

MC$W16 

MC$W32 

MCSXBR 

MCSXBS 

MC$XCJ 

MCSXCR 

MCSXCS 

MCSXDR 

MCSXDS 

HC$XFR 

MCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXHC 

MCSXMS 

MCSXNR 

MC$XRC 

HCSXRR 

MCSXRS 

MC$020 

MD$CI 

HDSCNA 

MDSCOU 

HD$DA 

MD$DL 

MDSDLV 

MDSDMC 

MD$DHF 

MDSDMP 

MOSDMR 

MDSDMV 

MDSDN 

MD$DP 

HDSDPV 

MDSDQ 

MDSDTE 

MDSDU 

HDSDUP 

MD$DV 

MDSDZ 


000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
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CfiEf   04.00 


SYMBOL 

VALUE 

REFERENCES 

ACTACT 

000544 

R 

#17-810 

BBTACT 

001210 

R 

#29-1088 

BSAACT 

001246 

R 

#32-1142 

BSDACT 

001 260 

R 

#33-1160 

BSIACT 

001272 

R 

"■^4-1 178 

CALL 

002024 

R 

.'-483 

CALLI 

002030 

R 

rf9-486 

CHKCIR 
CHKDMP 

=  ****** 
000606 

GX 
R 

10-546 
#19-856 

28-1070 

29-1088 

30-1106 

31-1124 

32-1142 

33-1160 

34-1178 

35-11< 

36-1214 

37-1232 

38-1250 

39-1268 

40-1286 

41-1304 

CHNACT 

000662 

R 

#20-884 

CICHIN 

000000 

RG 

#10-528 

CIRERR 

000476 

R 

#15-757 

'.lct 

002036 

R 

#9-491 

CLECIR 

000422 

R 

#8-193 

10-560 

CM8ACT 

000710 

R 

#21-904 

COSACT 

rj0170 

R 

#11-607 

CRET 

002044 

R 

#9-496 

CSTERR 

000512 

R 

#15-762 

DTEACT 

000726 

R 

#22-924 

END 

000450 

R 

#8-206 

FLGSSS 

=  177777 

#8-82 

#8-86 

8-88 

#8-88 

8-90 

#8-90 

#8-92 

#8-93 

8-94 

#8-94 

#8-95 

#8-96 

8-97 

#8-97 

#8-98 

#8-99 

8-100 

#8-100 

#8-101 

#8-102 

8-103 

#8-103 

#8-104 

#8-105 

8-106 

#8-106 

#8-107 

#8-108 

8-109 

#8-109 

#8-110 

#8-111 

8-112 

#8-112 

#8-113 

#8-114 

8-115 

#8-115 

#8-116 

#8-117 

8-118 

#8-118 

#8-119 

#8-120 

8-121 

#8-12' 

#8-122 

#8-123 

8-124 

#8-124 

#8-125 

#8-126 

8-127 

#8-127 

#8-128 

#8-129 

8-130 

#8-130 

#8-131 

#8-132 

8-133 

#8-133 

#8-134 

#8-135 

8-136 

#8-136 

#8-137 

#8-138 

8-139 

#8-139 

#8-140 

#8-141 

8-142 

#8-142 

#8-143 

#8-144 

8-145 

#8-145 

#8-146 

#8-147 

8-148 

#8-148 

#8-149 

#8-150 

8-151 

#8-151 

#8-152 

#8-153 

8-154 

#8-154 

#8-155 

#8-156 

8-157 

#8-157 

#8-158 

#8-159 

8-160 

#8-160 

#8-161 

#8-162 

8-163 

#8-163 

#8-164 

#8-165 

9-166 

#8-166 

#8-167 

#8-168 

8-169 

#8-169 

#8-170 

#8-171 

8-172 

#8-172 

#8-173 

#8-1 74 

8-175 

#8-175 

#8-176 

#8-177 

8-178 

#8-178 

#8-179 

#8-180 

8-181 

#8-181 

#8-182 

#8-183 

8-184 

#8-184 

#8-185 

#8-186 

8-187 

#8-187 

#8-188 

#8-193 

8-194 

#8-194 

#8-195 

#8-196 

8-197 

#8-197 

#8-198 

#8-199 

8-200 

#8-200 

#8-201 

#8-206 

8-208 

#8-208 

#9-215 

#9-218 

9-219 

#9-219 

#9-225 

9-226 

#9-226 

#9-227 

9-228 

#9-228 

9-229 

#9-229 

9-231 

#9-231 

#9-238 

9-239 

#9-239 

#9-240 

#9-245 

9-246 

#9-246 

#9-247 

9-248 

#9-248 

9-249 

#9-249 

#9-253 

9-254 

#9-254 

#9-255 

9-256 

#9-256 

#9-261 

9-262 

#9-262 

#9-263 

9-264 

#9-264 

#9-269 

9-270 

#9-270 

#9-271 

#9-276 

9-277 

#9-277 

#9-278 

9-279 

#9-279 

9-280 

#9-280 

#9-281 

9-282 

#9-282 

#9-284 

9-285 

#9-285 

#9-287 

9-288 

#9-288 

#9-292 

9-293 

#9-293 

#9-294 

#9-290 

9-300 

#9-300 

'■■ 

#9-301 

#9-306 

9-307 

#9-307 

#9-308 

9-309 

#9-309 

9-310 

#9-310 

y 

#9-315 

9-316 

#9-316 

#9-317 

9-318 

#9-318 

#9-322 

9-323 

#9-323 

#9-324 

9-325 

#9-325 

#9-329 

9-330 

#9-330 

#9-331 

9-332 

#9-332 

#9-336 

9-337 

#9-337 

#9-338 

9-339 

#9-339 

#9-343 

9-344 

#9-344 

#9-345 

9-346 

#9-346 

#9-350 

9-351 

#9-351 

#9-352 

9-353 

#9-353 

#9-357 

9-358 

#9-358 

#9-359 

9-360 

#9-360 

#9-364 

9-365 

#9-365 

#9-366 

9-367 

#9-367 

#9-371 

9-372 

#9-372 

#9-373 

9-374 

#9-374 

CICHIN 


CREATED  BY  MACRO  ON  29-JUN-85  AT  12:11 


PAGE  2 


H  1 


G  2 

CICHOP  -  Circuit  Change  Paramet  MACRO  V05.0?b  Saturday  29-Jun-85  12:12 
Table  of  contents 

MACRO  CALLS  AND  LOCAL  DATA 
Context  area  definition 
DISPATCH  TABLE  FOR  OPERATE  ROUTINES 
CICHOP  -  CIRCUIT  CHANGE  PARAMETERS  OPERATE 
DSPTCH  -  DISPATCH  TO  PROPER  ROUTINE 
SETUP  -  SET  UP  FOR  COMMAND  PROCESSING 
CLNUP  -  CLEAN  UP  AFTER  AN  OPERATION  FAILED 
FNDCTR  -  FIND  COUNTER  BLOCK 


6- 

S9 

l- 

^1 

R- 

IS 

9- 

l-iO 

10- 

?lr^^ 

?9P 

V- 

^5S 

15- 

iU 

H  2 

CICHOP  -  Circuit  Change  Paramet  MACRO  V05.03b  Saturday  29-Jun-85  12:12  Page  5 


CICHOP  -  Circuit  Change  Paramet  MACRO  V05.03b  Saturday  29-Jun-85 
CLNUP  -  CLEAN  UP  AFTER  AN  OPERATION  FAILED 


12:12 


Page  12 


335 
335 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 

355  000552 

356  000552 

357  000554 

358  000562 

359  000564 

360  000572 

361  000574 

362  000600 

363  000606 

364  000612 

365  000616 

366  000620 
367 

368 
369 
370 


.S8TTL  CLNUP  -  CLEAN  UP  AFTER  AN  OPERATION  FAILED 

**-CLNUP-CLEAN  UP  AFTER  AN  OPERATION  HAS  FAILED 

THIS  ROUTINE  IS  CALLED  TO  RESTORE  A  CIRCUIT  TO  IT'S  INITIAL  STATE 
AFTER  AN  OPERATION  HAS  FAILED. 

INPUTS: 

RO  =  ERROR  CODE  FROM  FAILURE 

R4  =  ADDRESS  OF  CONTEXT  BLOCK 

R5  =  POINTER  INTO  DISPATCH  TABLE  WITH: 

-4(fi5)  =  BIT  MASK  FOR  OPERATION  THAT  FAILED 


OUTPUTS: 

IF  CIRCUIT  HAD  BEEN  LOADED, 


IT  IS  CLEARED 


REGISTERS: 

RO,  R4, 


CLNUP: 


022765 
001415 
032764 
001411 
016446 
012764 


000001  177774 
000001  000070 


000134 
000006 


000134 


012664  000134 


10$: 


R5  ARE  PRESERVED 


<R0> 

#LS$NTL,-4(R5) 

10$ 

#LS$NTL,L$FL2(R4) 

10$ 

L$NTL(R4),-(SP) 

*LX.LIN,L$NTL(R4) 

CLENTL 

(SP)+,L$NTLCR4) 

<R0> 


SAVRG 

CMP 

BEQ 

BIT 

BEQ 

MOV 

MOV 

CALL 

MOV 

RESRG 

RETURN 


.ENDC  ;  NDF  R$$11S  &   S$$BAS  &   R$$RTR 


SAVE  REAL  ERROR  CODE 

WAS  THE  OPERATION  THAT  FAILED  AN  NTL  SET 

IF  EQ,  YES  -  NOTHING  TO  CLEANUP 

WAS  CIRCUIT  LOADED  IN  THIS  COMMAND  ? 

IF  EQ,  NO  -  DON'T  CLEAR  IT 

ELSE,  SAVE  NTL  FUNCTION  WORD 

SET  ''CLEAR  LINE"  FUNCTION 

TRY  TO  CLEAR  THE  LINE 

RESTORE  NTL  FUNCTION  WORD 

RESTORE  PREVIOUS  ERROR  CODE 


.IF  NDF  R$$11S 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

M$$MGE 

=  000000 

13-418 

NXTCIR 

=      ****♦« 

GX 

9-1 BA 

N$TLC 

000100 

13-A11 

13-415 

13-416 

N$$VCT 

-    tt**** 

13-A09 

13-415 

PDVTA 

=    ****** 

GX 

13-397 

R$$PRO 

=    ****** 

7-73 

7-73 

8-97 

R$$RTR 

=    ****** 

8-85 

8-97 

8-111 

R$$11D 

~    ****** 

6-67 

R$$11M 

=  000000 

6-67 

13-418 

R$$ns 

=    ****** 

6-67 

8-77 

8-84 

11-312 

11-333 

12-370 

SETACT 

=    ****** 

GX 

8-92 

SETBBT 

:;     ****** 

GX 

8-99 

SETBSA 

=    ****** 

GX 

8-1 12 

SETBSD 

-   ****** 

GX 

8-113 

SETBSI 

=    ****** 

GX 

8-1U 

SETCOS 

=   ****** 

GX 

8-88 

SETHTM 

=    ****** 

GX 

8-124 

SETINA 

r     ****** 

GX 

8-115 

SETIND 

=     ****** 

GX 

8-116 

SETINI 

=     ****** 

GX 

8-117 

SETMXB 

r     ****** 

GX 

8-121 

SETNMT 

-     ****** 

GX 

8-100 

SETNTL 

=     ****** 

GX 

8-86 

SETOWN 

=:     ****** 

GX 

8-89 

SETSER 

=:     ****** 

GX 

3-103 

SETSTA 

=     ****** 

GX 

8-95 

SETTAD 

=     ****** 

GX 

8-91 

SETTH1 

=     ****** 

GX 

8-118 

SETTH2 

=     ****** 

GX 

8-119 

SETTH3 

r     ****** 

GX 

8-120 

SETUP 

000476 

R 

9-186 

#11-311 

SETXMT 

=  ****** 

GX 

8-101 

SF.ACT 

=  000200 

#6-68 

5F.ENA 

=  000100 

#6-68 

SF.LPB 

::  000004 

#6-68 

SF.MFL 

=  000040 

#6-68 

SF.PAC 

=  000020 

#6-68 

SF.REA 

-  000010 

#6-68 

SF.SER 

=  000001 

#6-68 

SF.SVC 

=  000002 

#6-68 

SF.UNL 

-  000040 

#6-68 

SLTMA 

=   ****** 

GX 

13-402 

S$$BAS 

r  ****** 

8-85 

8-97 

8-111 

S.C05T 

000001 

#6-68 

S.FLG 

000000 

#6-68 

S.LEN 

OOOOOA 

#6-68 

S.NMST 

000002 

#6-68 

S.OWNR 

000003 

#6-68 

13-396 

TSFLAG 

00004^ 

#6-64 

TSLIF 

000013 

#6-64 

TSLIFL 

000013 

#6-64 

8-111     9-163 
10-287    11-333 


-107 


9-158 


9-175 


9-175 


9-207     9-225 


9-240 


9-192     9-222     10-287 


10-287 


11-333 
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112 
113 
11A 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12^ 
125 
126 
127 
128 
129 

130  000120  002165  000001 
000126  000074  000000 

131  000132  002U1  000001 
OOOUO  000072  000000 

132  OOOUA  002166  000001 
000152  000056  000000 

133  000156  002176  000001 
000164  000060  000001 

134  000170  002203  000001 
000176  000064  000001 

135  000202  002200  000001 
000210  000062  000001 

136  000214  002177  000001 
000222  000061  000001 

137  000226  002204  000001 
000234  000065  000001 

138  000240  002201  000001 
000246  000063  000001 

139  000252  002206  000001 
000260  000070  000001 

140  000264  002205  000001 
000272  000067  000001 

141  000276  002202  000001 
000304  000066  000001 

142  000310  002172  000001 
000316  000071  000001 

143 
144 
145 
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.SBTTL  SET  DMP  PARAMETERS  TABLES 


THESE  TABLES  ARE  USED  BY  THE  DMP  SET  ROUTINE  TO  SET 
THE  SPECIFIED  PARAMETER  IN  THE  DMP  LINE  TABLE.  EACH 
TABLE  HAS  THE  FOLLOWING  FORMAT: 

PARMVALUE,  TRIB  FLAG,  CONTEXT  AREA  OFFSET,  LINE  TABLE  OFFSET,  TYPE  FLAG 

WHERE  EACH  ENTRY  IS  A  WORD. 

TRIB  FLAG  =  0  IF  PARAMETER  IS  APPLIED  ACROSS  ALL  TRIBUTARIES 

=  1  IF  PARAMETER  IS  APPLIED  BY  TRIBUTARY 
TYPE  FLAG  =  0  IF  PARAMETER  IS  A  WORD  VALUE 

1  IF  PARAMETER  IS  A  BYTE  VALUE 
BIT      =  BIT  TO  SET  IN  POLLING  FLAG  WORD  TO  INDICATE  THAT  THE  PARAMETER 

HAS  BEEN  CHANGED 


000114 
000116 
000120 
000122 
000123 
000124 
000125 
000126 
000127 
000130 
000131 
000132 
000133 


B8TTBL: 

NMTTBL: 

XMTTBL: 

BSATBL: 

BSDTBL; 

BSITBL: 

INATSL: 

INDTBL: 

INITBL: 

THITBL: 

TH2TBL:  .WORD 

TH3TBL:  .WORD 

MXBTBL:  .WORD 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


MPSBBT, 
MPSNTI, 
MPSXMT, 
MPSBSA, 
MPSBSD, 
MP$8SI, 
MPSINA, 
MPSIND, 
MPSINI, 
MPSTHI, 
MP$TH2, 
MP$TH3, 
MPSMXB, 


LSBBT, 
L$NMT, 
L$XMT, 
LSBSA, 
LSBSD, 
L$BSI, 
L$INA, 
L$IND, 
LSINI, 
L$TH1, 
L$TH2, 
L$TH3, 


T.BTTC+0, 
T.SITC+0, 
T.DELT+0, 
T.ORAC+0, 
T.QRPD+0, 
T.QRIN+0, 
T.QRAC+1, 
T.QRPD+1, 
T.QRIN+1, 
T.TOD  +0, 
T.NDM  +1, 
T.NDM  +0, 


.ENPC   ;  NDF  RtSPRO 


LSMXB,  T.TOD  +1 , 
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633  002052 

63A  002056 

635 

636 

637 

638  002060 

639  00206A 

640  002070 
M^  002072 
642 

643  002074 

644  002076 


012700 
103406 


142712 
152712 
000241 
000401 

000261 


177747 


000017 
000002 


30$: 


MOV 
BCS 


#ME.OPE,R0 
90$ 


SET  NEW  STATE  TO  SERVICE 


40$: 


90$: 
100$: 


BICB 

BISB 

CLC 

BR      100$ 

SEC 
RETURN 


#17, (R2) 
#MS$SER,(R2) 


ASSUME  OPERATION  FAILED 
IF  CS,  IT  FAILED 


CLEAR  PREVIOUS  STATE  BITS 
SET  NEW  STATE  AS  SERVICE 

AND  RETURN 
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CICHPD  - 
SETSER  - 

1109 

1110 

1111 

1112 

1113 

11U 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

113-!, 

1135 

1136 

1137 

1138 

1139 

lUO 

1K1 

1U2 

1U3 

1K4 

1U5 

1146 

1U7 

1148 

1149 

1150 

1151 

1152 
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.SBTTL  SETSER  -  Set  SERVICE  [ENABLE/DISABLE] 
♦*  SETSER  -  Set  SERVICE  [ENABLE/DISABLE] 
Inputs: 


Output: 


R4  =  context  area  address 
L$SER(R4)  =  coded  value  for  service 

Service  is  enabled/disabled  for  the  circuit. 


000566 


000566 
000574 
000576 
000604 

000606 
000612 
000616 
000620 
000626 
000632 
000634 
000642 

000644 
000650 
000656 
000662 
000664 
000672 

000674 
000700 
000706 
000710 

000712 


SETSER:: 


026427  000000 

001437 

022764  Mim 

001433 


000042 
000014 

000040 
000230 

000040 


000050 
000001 
000230 

000001 


016400 
105760 
001012 
042760 
005764 
001427 
052760 
000423 

016400 
1^2760 
U05764 
001413 
152760 
000407 


012700  177752 
012764  000144 
000261 
000400 


015355 
000050 


000000 
000000 

000000 
000000 

000072 


10$: 


15$: 


20$: 


000001 


.IJF  NE  Me$ENA   .ERROR 


CMP 
BEQ 
CMP 
BEQ 

MOV 

TSTB 

BNE 

BIC 

TST 

BEQ 

BIS 

BR 

MOV 

BIC8 

TST 

BEQ 

BISB 

BR 

MOV 
MOV 
SEC 
BR 

RETURN 

.ENDC 

.END 


L$DDM(R4),#»RDLM 
15$ 

*-1,L$TPT(R4) 
15$ 

L$SLT(R4),R0 

L.NSTA(RO) 

10$ 

*Lf.SER,L.FLG(RO) 

L$SER(R4) 

20$ 

#LF.SER,L.fLG(RO) 

20$ 

L$TPT(R4),R0 

#SF.SER,S.FLG(RO) 

L$SER(R4) 

20$ 

#SF.SER,S.FLG(R0) 

20$ 

#ME.PNA,RO 
#MP$SER,L$PAR(R4) 

20$ 


NDF  R$$11S 


Value  error 

DLM  circuit  ? 

if  EQ,  yes-  parameter  not  applicable 

PVC  ? 

yes 

get  SLT  address 

Multipoint/Ethernet  ? 

if  NE.yes 

assume  service  enabled 

disable  service  ? 

if  NE,  no 

disable  service  on  circuit 

done 

get  trib  pointer 
assume  service  enabled 
disable  service  ? 
if  EQ,  no 
disable  service 
done 

else  parameter  not  applicable, 

service 

error 

done 
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1 _ 

CICHPD 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

12:14 

G 

PAGE  6 

8 

SYMBOL  CROSS  REFERENCE 

CREF   04. 

00 

SYMBOL 

VALUE 

REFERENCES 

L$TH3 

000132 

#6-86 

8-141 

LSTNM 
L$TPT 

000052 
000050 

#6-86 
#6-86 
21-974 

10-203 
12-286 
23-1078 

13-336 
24-1124 

13-371 
24-1136 

18-731 

19-812 

20-859 

20-881 

21-956 

LITRB 

OOOOAO 

#6-86 

9-167 

18-761 

23-1083 

LtTYP 

000063 

#6-86 

L$UNT 

000003 

#6-86 

11-230 

LIXCH 

000232 

#6-86 

L$XMT 

000120 

#6-86 

8-132 

L.COST 

000015 

#5-73 

*20-876 

L.CTL 

000012 

#5-73 

L.CVA 

177776 

#5-73 

L.DDM 

000002 

#5-73 

L.DDS 

000004 

#5-73 

L.DLC 

000003 

#5-73 

L.DLM 

000006 

#5-73 

L.DLS 
L.FLG 

000010 
000000 

#5-73 
#5-73 

9-172 

12-291 

13-348 

13-358 

13-366 

13-439 

13-441 

15-596 

*1 8-766 

19-810 

*19-825 

20-869 

20-877 

21-976 

21-980 

*24-1130 

♦24-1133 

L.KRBA 

000016 

#5-73 

L.LEN 

=  000022 

#5-73 

L.HPF 

000022 

#5-73 

13-443 

•18-765 

19-816 

L.NMST 

000020 

#5-73 

13-363 

15-596 

18-734 

♦21-1000 

L.NSTA 

000014 

#5-73 

13-356 

18-729 

18-759 

19-814 

20-873 

21-978 

21-998 

24-1128 

L.OWNR 

000021 

#5-73 

L.UNT 

000013 

#5-/^ 

MBSENA 
MESCIR 

000000 
000003 

24-ruo 

9-175 

13-347 

13-414 

14-546 

15-619 

17-694 

18-727 

20-862 

21-959 

MESLIN 

000001 

12-290 

ME.CST 

177765 

9-174 
21-975 

12-289 

13-346 

13-413 

14-545 

15-618 

17-693 

18-726 

20-868 

ME. FUN 

177777 

21-967 

ME.IID 

177767 

13-365 

20-86. 

21-958 

HE.  OPE 

177747 

11-258 

13-461 

14-565 

15-633 

16-668 

17-702 

21-1004 

ME.PNA 

177752 

12-284 

12-293 

13-338 

20-857 

21-955 

23-1076 

24-1143 

ME.PVA 

177760 

15-600 

MPSBBT 

002165 

8-130 

ilPSBSA 

002176 

8-133 

MPSBSD 

002203 

8-134 

MPSBSI 

002200 

8-135 

MPSCOS 

001604 

20-858 

MPSHTM 

001612 

12-285 

12-294 

MPSINA 

002177 

8-136 

MPSIND 

002204 

8-137 

MPSINI 

002201 

8-138 

HPSMXB 

002172 

8-142 

MPSNTI 

002141 

8-131 

MPSSER 

000144 

24-1144 

MPSSTA 

000000 

13-339 

15-601 

MPSTHI 

002206 

8-139 

MP$TH2 

002205 

8-140 

MP$TH3 

002202 

8-141 

1 
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107 
108 
109 
110 

in 

112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 

122  000000 

123  000000 

124  000016 

125  000034 

126  000052 

127  000070 

128  000106 

129  000124 

130  000142 

131  000160 

132  000176 


.SBTTL  Control  block  parameter  format  tables 

Each  table  corresponds  to  a  particular  control  block  format.  The  flags  word 
is  either  0  (denoting  an  unused  or  ignored  field  in  the  block)  or 
is  used  to  control  the  copying  of  fields  from  the  SOURCE  (the 
contex'  area)  to  the  TARGET  (the  control  block  to  be  changed). 

FORMAT  OF  FORMAT  MAPPING  TABLES  IS  AS  FOLLOWS: 


Flag    Source  Source  Source  Target 
Bit     Field   Length  Length  Field 
Parm.   Routine  Offset 


Target  Target 
Length  Length 
Parm.   Routine 


Define  SVC  descriptor 


SVCMAP: 
PARHAP 
PARMAP 
PARMAP 
PARMAP 
PARMAP 
PARMAP 
PARMAP 
PARMAP 
PARMAP 
PARMAP 


LSSCMB,  L$CMB, 

LSSMXW,  L$MXW, 

LSSNUM,  LSNUML, 

LSSMXR,  L$MXR, 

LSSMXR,  L$MXR, 

LSSRET,  LSRET, 

LSIHET,  LSRET, 

LSSNUM,  LSNUM, 

0,  0, 


SSPKSZ, 

0 

SSWNP-SSPKSZ, 

0 

SSADSZ-SSUND, 

0 

SSLFT-SSADSZ, 

0 

SSRCL-SSLFT, 

0 

SSTIM-SSRCL, 

2, 

0 

SSTMR-SSTIM, 

2 

0 

SSDTE-SSTMR, 

8., 

0 

SSLEN, 

0, 

0 
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MS. PAR 

MS. sue 

MTSARA 

MTSASC 

MTtBlL 

MTtBYS 

MTSCI 

MT$CLE 

MTtCOD 

MT$CON 

MTSDMC 

MTSETH 

MTSHEX 

MTSLPB 

MTSMAX 

MTSMUL 

MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

MTSPHA 

MTSPOI 

MT$QP2 

HTSRQU 

MT$R04 

MTSSEC 

MTSSGD 

MTSSYS 

MTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

MT$X25 

MUSINC 

MUSOUT 

MUSPER 

HVIIIl 

MV$IV 

MXSACT 

MXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

HXSDTE 

MXSFIL 

MXSLGC 

MXSLIN 

MXSLON 

MXSNMS 

MXSNOD 

MXSOBJ 

MXSOWN 

MXSPAR 

MXSPAS 

MXSRAC 


000003 

000001 

000003 

000100 

000001 

000011 

000007 

000077 

000200 

000001 

00000^ 

000006 

OOOOAO 

000005 

000037 

000100 

000017 

000001 

000005 

000060 

000060 

000002 

000000 

000010 

000000 

000004 

000000 

000020 

000002 

000001 

000002 

007777 

000000 

000003 

000001 

000002 

000000 

000000 

000001 

000020 

000020 

000020 

000006 

000006 

000020 

000020 

00003A 

000777 

000020 

000006 

000454 

000006 

000006 

000040 

000036 

000010 

000047 


MXSRID 

000047 

PT$BR0= 

000200 

MXSRPS 

000047 

PT$DRT= 

000100 

MXSSIO 

000040 

PT$END= 

000004 

MXSSNK 

000377 

PT$LV1= 

22285? 

MXSTYP 

000077 

PT$LV2= 

000001 

MXSUID 

000020 

PT$PH3= 

000010 

M$$CRB= 

00012; 

PT$XAR= 

000020 

M$$CRX= 

000000 

PX$BLK= 

000040 

M$$FCS= 

000000 

PXIDLM= 

000200 

H$$MGE= 

000000 

PX$SVC= 

000100 

M$$NET= 

000000 

P$CHN 

000004 

M$$OVR= 

000000 

PSCNT 

000005 

NM.CLN 

003400 

P$CTR 

000034 

NM.INI 

002400 

PSDRCI 

000015 

NM.OPR 

003000 

PSDRTR 

000036 

NM.VR2 

002401 

P$FLG 

000012 

NH.VR3 

002402 

PSFWD 

000030 

N$$ACC= 

000001 

P$1CCB 

000046 

N$$BUF= 

000001 

P$IPL 

000014 

N$$LDV= 

000001 

P$LCD 

000002 

N$$MCP= 

000001 

P$LEN 

000052 

NI$HLL= 

000001 

PSLST 

000000 

NS$MOV= 

000010 

PSNRNI 

000040 

N$$NCT= 

000001 

PSOCCB 

000050 

N$$PEM= 

000001 

P$PFQ 

000006 

PF$BLK= 

020000 

PSPKSZ 

000044 

PF$CLC= 

010000 

PSRMXI 

000016 

PF$DLM= 

100000 

PJRMX2 

000020 

PF$EIP= 

000002 

PSRPRI 

000042 

PF$ENB= 

000001 

PSRTIM 

000003 

PF$FAI= 

004000 

PSSTAI 

000022 

PF$FM1= 

000100 

P$STA2 

000023 

PF$FM2= 

000200 

P$T1M 

000010 

PF$OFF= 

000000 

P$TSCT 

000026 

PF$RH1= 

000020 

PSTSIZ 

000024 

PF$RM2= 

000040 

P$TYP 

000001 

PF$RVR= 

000010 

P$$P45=: 

000000 

PF$STA= 

000004 

P$$WfiD= 

000000 

PF$SVC= 

040000 

Q$$0PT= 

000010 

PF$UP  = 

000004 

RF.CTL= 

000003 

PR$BED= 

000200 

RF.LD1= 

000040 

PR$BEU= 

000100 

RF.LD2= 

000100 

PR$BRD= 

000040 

RF.TIM= 

177400 

PR$BRU= 

000020 

RF.TMO= 

000400 

PR$CWN= 

000002 

RF.UFC= 

000200 

P;<$LCC= 

000010 

RF.WTD=: 

000020 

PR$MOP= 

000004 

RF.WTM= 

000030 

PR$UP  = 

000001 

RF.UTS= 

000010 

PSIPT  = 

♦♦**»»  Gx 

R$PC  = 

000016 

PS$CHR= 

000016 

R$RO  = 

000002 

PS$FAI= 

000014 

R$R1   = 

000004 

PS$Nn  = 

000006 

R$R2  = 

000006 

PS$0FF= 

000000 

R$R3  = 

000010 

PS$STR= 

000002 

R$R4  = 

000012 

PS$UP  = 

000012 

R$R5  = 

000014 

PS$VER= 

000010 

R$$DER= 

000000 

PSSWT  = 

000004 

R$$K11= 

000001 

R$$SND= 

R$$11M= 

SETCTR 

SETLCT 

SETPVC 

SETSVC 

SFSANM 

SF$BLK= 

SFSDNM 

sf$:nc= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SVCFLG 

SVCMAP 

SJADSZ 

S$CTL 

SSDTE 

S$FLG 

SSLEN 

S$LFT 

S$LNK 

SSOUNR 

S$PKSZ 

S$RCL 

S$STA 

S$TIM 

S$THR 

SSUND 

S$$URG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S . OUNR 

TSFLAG 

T$LIF 

TSLIFL 

TSLIFO 

TSLIFS 

T$LIN 

TSLIPS 

T$LLD 

rSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 


000000 

000000 

000662R 

001070R 

000326R 

000400R 

000001 

000001 

000002 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000720R 

OOOOOOR 

000007 

000002 

000020 

000010 

000032 

000012 

000000 

000030 

000004 

000013 

0C0003 

000014 

000016 

000006 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 


TSLTIM 

TSLTPR 

T$LTPS 

TSNAPL 

T$NFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRl 

T$SVC 

T$T5 

T$T6 

T$$KMG= 

T$$MIN= 

VF$RCV= 

VF$XMT= 

V$FLG 

V$LEN 

V$RCV 

V$XMT 

V$$CTR= 

XA$NC0= 

XA$RR  = 

XA$UCL= 

XA$URE= 

XF$NCa= 

XF$OFF= 

XF$0RI= 

XF$OTI= 

XF$TJL= 

XF$TIR= 

XT$CHN= 

XT$DGR= 

XT$FAS= 

XT$INC= 

XT$OUC= 

XT$PVC= 

X$ABQ 

X$ALF 

XJAUC 

X$CLEN= 

XSCTIM 

XSDIAG 

X$DTE 

XSFLG 

XSGLEN 

X$LCN 

X$LEN 

XSMOWN 

XSNLRE 

XSNNRE 

X$NPL 

X$NPR 


000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000000 
000000 
100000 
OAOOOO 
000000 
000022 
000002 
000012 
001000 
000020 
000200 
000040 
000100 
000020 
000200 
000002 
000001 
000010 
000004 
000100 
000002 
000200 
000004 
000010 
000001 
000076 
000055 
000056 
000025 
000060 
000003 
000024 
000014 
000106 
000026 
000106 
000023 
000052 
000054 
000006 
000007 
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V05.03b 

Saturday 

29-Jun-85  12:15  Pa 

Macro  calls 

000063 

L$TYP 

.BLKB 

1 

00006^ 

LSFLG 

.BLKW 

1 

000066 

LSSLEN;  .8LKB 

1 

000067 

LSPRO 

000067 

LSMTYP:  .BLK8 

1 

000070 

L$TSZ 

000070 

LSLTM 

000070 

L$FLX 

•   .BLKW 

1 

000072 

L$SCR 

■   .BLKW 

7 

000110 

L$ADJ 

•   .BLKW 

1 

000112 

LSNOD 

:   .BLKW 

1 

0001 H 

L$C0U 

:   .BLKW 

1 

000116 

LSPLB 

:   .BLKW 

1 

000120 

L$PAR 

:   .BLKU 

1 

000122 

L$SVL 

:   .BLKW 

1 

000124 

LSXLEN: 

000000 

.PSECT 

;  OFFSETS  INTO 

SCRATCH  BUFFER  (L$S 

000124 

000000 

' 

.ASECT 
.=0 

000000 

B$5: 

.BLKB 

1 

000001 

B$6: 

.BLKB 

1 

000002 

B$7: 

.BLKB 

1 

000003 

B$10: 

.BLKB 

1 

OOOOOA 

B$11: 

.BLKB 

1 

000005 

B$12: 

.BLKB 

1 

000006 

B$7S1 

0:  .BLKB 
.EVEN 

1 

000000 

.PSECT 

LINE-ID  FORMAT  TYPE 

FLAG  WORD 

Significant  length  of  circuit  name 

Line  protocol 

Network  management  circuit  type 

Block  size  for  transport  circuits 

Listen  timer  for  transport  circuits 

Flags  word  for  X.25  circuit  commands 

SCRATCH  BUFFER 

Pointer  to  adjacency  database 

Adjacent  node  address 

Count  of  adjacency  entries 

PLB  address 

PARAMETER  TYPE 

System  line  number 

LENGTH  OF  CONTEXT  AREA 


BASF 

TABLE 

5 

BASF 

TABLE 

6 

RASE 

TABLE 

/ 

RASE 

TABLE 

10 

BASF 

TAE?LE 

11 

BASE 

TABLE 

12 

SUM  OF  BASE  TABLE  7  AND  10 
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545 
544 
545 
546  001664 

;  Non 

-Etherfiet 

circuits  (Router):  return  I 

017701 

OOOOCOG 

MOV 

aDECPT.RI 

D$NLN(ftl).L$C0U(R4) 
#140000, LtADJ(R4) 

547  001670 

016164 

000050 

0001''4 

MOV 

548  001676 

012764 

140000 

000110 

MOV 

549  001704 

CALL 

GETADJ 

550  001710 

105005 

BCC 

7$ 

551  001712 

RETC 

RO 

552  001724 

116466 

000070 

OOOOOOG 

7$: 

M0V8 

L$LTM(R4),R$R1(SP)      ;; 

555  001752 

016467 

000112 

176040 

MOV 

L$NOD(R4),N0DE 

554  001740 

555 

556 

557 

558  001742 

RETURN 

■  Ethernet  circuits  (Router);  initialize  a 

052764 

100000 

000064 

io$: 

BIT 

#LF$SEG,L$fLG(R4)      ;  ; 

559  001750 

001021 

BNE 

20$ 

560  001752 

017701 

OOOOOOG 

MOV 

aDECPT.RI 

561  001756 

016164 

000054 

000114 

MOV 

D$N8RA(R1),L$C0U{R4) 

562  001764 

066164 

000056 

000114 

ADD 

D$NBEA(R1),L$C0U(R4) 

565  001772 

066164 

000050 

000114 

ADD 

D$NLN(R1),L$C0U(R4)     ;; 
#140000, LiADJ(R4)      ;; 

564  002000 

012764 

140000 

000110 

MOV 

565  002006 

CALL 

GETADJ 

566  002012 

567 

568 

569 

570  002014 

1U3420 

BCS 

30$ 

•  Router:  get 

isten  timer  for  next  adjace 

116466 

000070 

OOOOOOG 

J0$: 

MOVB 

L$LTM(R4),R$R1(SP) 

571  002022 

016467 

000112 

175750 

MOV 

L$N0D(R4),N0DE 

572  002030 

CALL 

GETADJ 

573  002034 

105414 

BCS 

40$ 

574  002036 

052764 

100000 

000064 

BIS 

#LF$SEG,L$FLG(R4) 

575  002044 

112774 

000005 

000060 

MOVB 

#MS.PAR,aL$BUF(R4) 

576  002052 

577 

578  002054 

000415 

BR 

55$ 

30$: 

RETC 

RO 

579  002066 

042764 

100000 

000064 

40$: 

BIC 

#LF$SEG,L$FLG(R4) 

580  002074 

581 

582  002102 

112774 

000001 

000060 

MOVB 

#MS.SUC,aL$8UF(R4)      ;, 

55$: 

RETURN 

; , 

583 

584  002104 

105417 

60$: 

BCS 

90$ 

585  002106 

105701 

TSTB 

R1 

586  002110 

100406 

BMI 

70$ 

587  002112 

042701 

177400 

BIC 

#177400, R1 

588  002116 

ASL$ 

3,R1               ; 
86$  „  , 

589  002124 

000404 

BR 

590  002126 

042701 

177600 

70$: 

BIC 

#*C177,R1            ; 

591  002132 

000501 

SWAB 

Rl                  ; 

592  002154 

006501 

ASL 

Rl                  ; 

593  002156 

010167 

175652 

80$: 

MOV 

RI.LTIM              ; 

594  002142 

595 

596  002144 

000241 

CLC 

90$: 

RESRG 

<R2,R1> 

597  002150 

RETURN 

598 

point  to  DECnet  homeblock    ;  RJKIO 

get  number  of  channels.. 

scan  channel-indexed  adjacencies 

get  adjacent  node 

if  CC,  found  info 

else  no  active  adj .  info 

return  current  listen  timer... 

. . .and  node  address 

back  to  user  state  at  60$ 


preceding  partial  response  7 

if  NE,  yes  -   already  initialized 

initialize  count:  ;  RJKIO 

broadcast  router  adjacencies. 

plus  broadcast  endnode  adjacencies 

plus  number  of  channels 

save  start  address  of  adj  scan 

get  the  first  adjacency 

if  CS,  no  information 


return  current  listen  timer... 

. . .and  node  address 

get  next  adjacency  parameters 

if  CS,  last  adjacency 

indicate  partial  response 

change  return  code  to  partial 

success 

fai lure 

end  partial  response  sequence 


back  to  user  state  at  60$ 

i*  CS,  no  info 

CI 3ck  format  of  returned  data 

if  MI ,  very  high  value 

clear  out  any  leading  junk 

else  its  seconds  *  8 

done 

isolate  meaningful  bits 

get  seconds  *  256... 

. . . .seconds  *  512 

pass  back  result 

success 

restore  registers 


f IRFCH 
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CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


R.STBL 

SET NAM 

SET NOD 

SETPAR= 

SETSER 

SE.IRS= 

SE.NRS= 

SE.RBS= 

SE.RBU= 

SE.RCH= 

SE.RDC= 

SE.RRR= 

SE.S8S= 

SE.SBU= 

SE.SDC= 

SE.SHC= 

SE.SRR= 

SFSANM 

SF$BLK= 

SFSDNM 

SF$1NC= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.Uf.'L- 

SLTMA  = 

SVCADD 

SVCBLK 

SVCMAP 

SVCRCL 

SSADSZ 

S$CTL 

S$DTE 

S$FLG 

SSLEN 

S$LFT 

SSLNK 

SSOWNR 

StPKSZ 

S$RCL 


ABS. 


000210 

003320R 

002266R 

•♦♦»♦♦  GX 

003234R 

004000 

002000 

001000 

000400 

000001 

000002 

000004 

000200 

000100 

000020 

000010 

000040 

000001 

000001 

000002 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

««♦.«♦  GX 

000006R 

003114R 

000004R 

003006R 

000007 

000002 

000020 

000010 

000032 

000012 

000000 

000030 

000004 

000013 


177776 
003356 
Errors  detected: 


000 
001 
0 


SSSTA 
S$TIM 
S$TMR 
S$WND 
S$$WRG= 
S$$YSZ= 
S.ALF 
S.BLKC 
S.COST 
S.COUB 
S.COUL= 
S.CTL 
.DLCF 
.ERR 
.FLG 
.FNCP 
.HTNA 
..LBE 
S.LEN 
S.LGR 
S.LGTH= 
S.LIN 
S.LINK 
S.LMA 
S.LMOS 
S.LMRT 
S.LMS 
S.LNK 
S.LSA 
S.NCUB 
S.NCUL= 
S.NKLR 
S.NKR 
S.NKRB 
S.NKRW 
S.NKS8 
S.NKSW 
S.NMST 
S.NTD 
S.OWNR 
S.PLA 
S.PLC 
S.PLL 
S.PLS 
S.PSA 


000003 
000014 
000016 
000006 
000000 
007600 
000044 
000033 
000001 
000044 
000040 
000006 
000102 
000010 
000000 
000004 
000023 
000044 
000004 
000031 
000050 
000004 
177776 
000026 
000030 
000027 
000025 
000000 
000005 
000000 
000036 
000040 
000037 
000052 
000045 
000051 
000046 
000002 
000024 
000003 
000010 
000022 
000006 
000011 
000003 


(RW,I,GBL,A8S,0VR) 
(RW,I,LCL,REL,CON) 


•«*  Assembler  statistics 


Work  file  reads:  323 
Work  file  writes:  239 
Size  of  work  file:  45431  Words  (  178  Pages) 


29-Jun-85  ?2;15 

turday 

Page  21 

-5 

S.RBE 

000042 

TR.TLZ 

000072 

VF$RC\/= 

100000 

S.RC8 

000020 

TX.NXM= 

000002 

VF$XMT= 

040000 

S.RCV 

000014 

TX.OVR= 

000001 

VSFLG 

000000 

S.RCVB 

000072 

TX.rMO= 

000004 
000044 

VSLEN 

000022 

S.RCVC 

000056 

T$FLAG 

V$RCV 

000002 

S.RDE 

000034 

TIL  IF 

000013 

VSXMT 

000012 

S.REPR 

000050 

TSLIFL 

000013 

V$$CTR=: 

001000 

S.REPS 

000047 

TSLIFO 

000013 

X$$DBT= 

000000 

S.RST 

000036 

TSLIFS 

000013 

X$$TLC= 

89?S51 

S.RTEC 

000042 

TSLIN 

000000 

ZF.COU= 

001000 

S.RTY 

000001 

TSLIPS 

000006 

ZF.DDH=: 

000001 

S.SELC 

000066 

TSLLD 

000012 

ZF.DIA= 

004000 

S.SELT 

000053 

TSLLDC 

000045 

ZF.DLC= 

99292^ 

S.STA 

000000 

TSLLDL 

000012 

ZF.DVP= 

100000 

S.STE 

000002 

rSLLDO 

000012 

ZF.INI= 

040000 

S.STEC 

000043 

TSLLDS 

000012 

ZF.KMX= 

000020 

S.STLG 

000104 

TJLLEN 

000046 

ZF.LLC= 

000004 

S.STLN 

000035 

TSLOPR 

000002 

ZF.LHC= 

000100 

S.STPN 

000034 

TSLTCL 

000024 

ZF.MAN= 

020000 

S.TIMC 

000054 

rSLTIM 

000026 

ZF.MFL= 

999919 

S.TLZ 

000012 

TSLTPR 

000014 

ZF.MTM= 

000400 

S.TMO 

000040 

TSLTPS 

000020 

ZF.MUX= 

000040 

S.TNRP 

000032 

T$NAPL 

000004 

ZF.PSE= 

002000 

S.TTEC 

000041 

TSNFE 

000000 

ZF.SLI= 

010000 

S.WFA 

000016 

TSNLEN 

000010 

ZF.T1M= 

000200 

S.XDE 

000036 

TSNNUL 

000002 

ZF.X3P= 

000000 

S.XID 

000002 

TSNOPL 

000006 

ZS.ASN= 

100000 

S.XMB 

000030 

TSNRNI 

000042 

ZS.BSV= 

140000 

S.XMP 

000024 

TSNRPL 

000005 

Z.AVL 

000014 

S.XHT 

000012 

TSNRUL 

000007 

Z.DAT 

000016 

S.XMT6 

000076 

TSNVR 

000001 

Z.DSP 

000000 

S.XMTC 

000062 

TSRPRI 

000040 

Z.FLG 

000010 

TF.FFE= 

000004 

TSSVC 

000034 

Z.LEN  = 

000016 

TF.R0F= 

000001 

T$T5 

000030 

Z.LLN 

000006 

TF.RTO= 

000002 

T$T6 

000032 

Z.HAP 

000020 

TF.TAE= 

000010 

T$$KMG= 

000000 

Z.NAM 

000004 

TF.TOF= 

000004 

T$$M1N= 

000000 

Z.PCB 

000012 

TF.TTO= 

000010 

T.ACT 

000031 

Z.SCH 

000007 

TF.URE= 

000001 

T.CHA 

000032 

$C5TA  = 

♦♦*♦*«  GX 

TF.USA= 

000002 

T.CSR 

000022 

$HEADR= 

**«**«  GX 

TR.ALF 

000102 

T.ITM 

000001 

$$LCNT= 

000072  G 

TR.DEV 

000100 

T.OUE 

000024 

$$LLIN= 

000104  G 

TR.LEN= 

000210 

T.QU2  = 

000026 

$$$R  = 

000010 

TR.MST 

000074 

T.RTY 

000030 

$$$SYS= 

004374 

TR.PRE 

000076 

T.TMR 

000000 

$$$SYX= 

000000 
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MACRO  CALLS  AND  LOCAL  DEFINITIONS 

CONTEXT  AREA  DEFINITIONS 

BIT  DEFINITIONS 

LOCAL  DATA 

DLC  LINE  COUNTERS  DISPATCH  TABLE 

CIRECO  -  READ/ZERO  LINE  COUNIERS 


s- 

ss 

f,- 

^t 

l- 

ftV 

H- 

n 

y- 

KO 

10- 

lib 
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ZF.LMC= 

000100 

ZF.PSE=  002000 
ZF.SL1=  010000 
ZF.TIM=  000200 

ZS.8SY= 

HOOOO 

LEN 

ZF.MAN^ 

020000 

Z.AVL 

l± 

LLN 

ZF.MFL= 

000010 

Z.DAT 

MAP 

ZF.MTM= 

OOOAOO 

ZF.y3P=  000000 

Z.DSP 

n 

NAM 

ZF.MUX= 

OOOOAO 

ZS.ASN=  100000 

Z.FLG 

PL8 

,  ABS. 

177776 
000136 

000 
001 

(RW,I,GBL,ABS, 
(RW,I,LCL,REL, 

OVR) 
CON) 

$1DLC0 

000050 

002 

(RW,I,LCL,REL, 

:0N) 

ttDLCI 

000002 

003 

(RW,I,LCL,REL, 

CON) 

Errors 

detected: 

0 

Z.SrH   000007 
$PRlCO=  »♦♦♦♦♦  GX 
$$$SYS=  00'4374 
$$$SYX=  000000 
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Symbol  table 


MDSFUL 

MD$HAL 

MDSHEL 

MOSKCP 

MDtKOP 

MDtKDZ 

MD$KL 

MDtKMX 

MOtKMY 

MDtLEN 

MDSPCL 

MDSQNA 

MD$UNA 

MDSWIT 

MD.ABO 

MD.ACC 

MD.AOB 

MD.80B 

MD.DIA 

MD.DOB 

MD . DUM 

MO.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.L5H 

MD.NOB 

MD.NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSH 

MD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

MD.UNR 

MD.UOB 

MD.VOL 

ME  SAL  I 

ME  SAL  2 

MESARE 

MESCIR 

MESEXA 

MESEXE 

MESLIN 

MESLOG 

MESMOO 

MESNOD 

MESNON 

MESOBJ 

MES0B2 

MESPRO 

MESSrS 

ME.BLO 

ME. CON 


000000 

000001 

000002 

000013 

000034 

000036 

000040 

000054 

C00052 

000050 

000011 

000005 

000001 

000002 

000017 

000010 

000016 

000011 

000007 

000015 

000002 

000014 

000001 

000006 

000001 

000020 

000012 

177777 

000000 

000004 

000005 

000013 

000005 

000003 

000000 

000004 

000002 

000003 

000007 

000006 

000010 

000003 

000005 

000003 

000000 

000200 

0''0001 

00C002 

000004 

000000 

Mim 

000007 
000004 
000005 
000006 
177744 
177753 
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ME.CST 

ME.DIS 

ME. DON 

ME.FCO 

ME.FIO 

ME. FOP 

ME. FOR 

ME.fUN 

ME.GRO 

ME.HAR 

ME.IID 

ME. LCD 

ME.LPR 

ME.MPR 

ME.MVE 

ME. OPE 

ME.PLO 

ME.PMI 

ME . PNA 

ME.PRI 

ME.PTY 

ME.PVA 

ME. RES 

ME.ROO 

ME.SIZ 

ME. SYS 

ME.UCO 

MFSACT 

MFSADD 

MFSADJ 

MFSALL 

MFSBYE 

MFSCHA 

MfSDUM 

MFSEVT 

MFSFUP 

MF$<NO 

MFSLOA 

MFSLOO 

MFSREA 

MFSSIG 

MFSSPF 

MFSSYS 

MFSTES 

MFSTRA 

MFSTRI 

MFSZER 

MLSALL 

MLSCLS 

MLICON 

MLSEXT 

MLSFIL 

MLSFIH 

MLSINT 

MLSKNO 

MLSMON 

MLSSYS 


vs 


177765 

MLSTOP 

'9 

000200 

177755 

MNSUNL 

177600 

MOSACC 

177762 

MOSADD 

880884 

177756 

HOSALA 

177763 

MOSALI 

000000 

■\7717b 

MOSCHA 

000040 

'77777 

MOSCIR 

000003 

'777t,S 

MOSCLE 

000100 

177750 

MOSCOU 

000060 

177767 

MOSDAC 

000000 

177766 

MOSDEF 

000000 

177757 

MOtDPR 

000000 

177773 

MOSENT 

000017 

177771 

MOSEVE 

000100 

\777k7 

M0$  NF 

000160 

177751 

M0$  NS 

000002 

177743 

MOSLIN 

000001 

177752 

MOSLOG 

000001 

\7777'i 

MOSMIR 

000031 

\77772 

MOSNAM 

000001 

\777b^ 

MOSNIC 

000023 

\777h-\ 

MOSNOD 

000000 

\777'i'^ 

MOSOFF 

000001 

177774 

MOSON 

000000 

\777(,b 

MOSOPT 

000001 

■[77770 

MOSPER 

888^8^ 

y7777h 

MOSPRO 

000000 

MOSPRS 

000001 

177774 

MOSREA 

000200 

y7777S 

MOSSET 

000000 

000300 

MOSSTA 

000020 

000023 

MOSSUM 

000000 

000020 

MOSTSK 

000000 

000001 

MOSVOL 

000000 

000264 

MOSZER 

OOOOOQ 
000012 

\77777 

MPSACB 

000017 

MPSACC 

000514 

177775 

MPSACT 

004526 

000024 

MPSADD 

000766 

177773 

MPSADJ 

001440 

000302 

MPSADP 

006325 

000026 

MPSADS 

004406 

000022 

MPSALB 

000036 

000301 

MPSAMC 

001640 

000021 

MPSAMH 

001641 

000025 

MPSANB 

004420 

100000 

MPSASa 

000024 

000000 

MPSASC 

004432 

000001 

MPSAUS 

000512 

000001 

MPSBBT 

002165 

000002 

MPSBDF 

002164 

000000 

MPSBFQ 

002121 

000000 

MPSBLK 

001616 

140000 

MPSBLO 

001452 

000003 

HPSBMX 

002176 

000002 

MPSBNP 

006330 
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MPIBRT 

MP$BSA 

MP$BSD 

MPSBSI 

MPSBSP 

MPSBUF 

MPSBUP 

MPSBUS 

MPSCAC 

MPSCAS 

MPSCAT 

MPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

MPSCLN 

MPSCLT 

MPSCMB 

MPSCMK 

MPSCMX 

MPSCHID 

MPSCNU 

MPSCOB 

MPSCON 

MPSCOS 

MPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPICSZ 

MPSCUS 

MPSCVA 

MPSDAL 

MP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPIDEV 

MPSDFA 

MP$DHO= 

MPSDIA 

MPSDlB 

HPSDLG 

MPSDLI= 

MPSDLT 

MPSDRO 

wIRSDST 

MPSDTE 

MPf^TY^ 

MP.5  UA 

MP!  JC 

■ :,-'  *i 

MPiDUr 
MPSDVC 
fiPSDUE 
MPSELI 
HPSETY 


001620 

MPSEVE 

000311 
001752 

002176 

MPSFNC 

002203 
000170 

MP$GDT 

OO2222 

MPSGNM 

002223 

MPSGRO 

002115 

MPSGRP 

000541 
002224 

006324 

MPtGTY 

001643 

MPSHAD 

001757 

001750 

MPSHBT 

002142 

001762 

MPSHDD 

000162 

002210 

MPSHTM 

001612 

004406 

MPSHUA 

002210 

002141 

MPSIAT 

001322 

000144 

MPSIDE 

000144 

002131 

MPSIDP 

006327 

002126 

MPS I HO 

000215 

002211 

MPSINA 

002177 

002142 

MPSIND 

002204 

000537 

MPS  NI 

002201 

002153 

MPS  TI 

000776 

000310 

MPSLAA 

000231 

001753 

HPSLAN 

000234 

000311 

MPSLAR 

000202 

002126 

MPSLAS 

000012 

001604 

MPSLBS 

000203 

000230 

MPSLCO 

000226 

000232 

MPSLCT 

000156 

000226 

MPSLHL 

000232 

000161 

MPSLLE 

000227 

001755 

MPSLLO 

004432 

002127 

MPSLMB 

002152 

000540 

MPSLMX 

002200 

002570 

MPSLNA 

000144 

001464 

MPSLNO 

000233 

002177 

MPSLOA 

000170 

001131 

MPSLOG 

004514 

000156 

MPSLOO 

000620 

002114 

MPSLTM 

001613 

001320 

MPSLTY 

004533 

001465 

MPSLWI 

000230 

000173 

MPSMAC 

004420 

002571 

MPSMAD 

001630 

004521 

MPSHAP 

006323 

001466 

HPSMAR 

001635 

002200 

MPSMAV 

006321 

001441 

MPSMBN 

001636 

000454 

MPSMBR 

00163:' 

002140 

MPSMBU 

001642 

001452 

MPSMCB 

000156 

000207 

MPSMCO 

001632 

000210 

MPSMDE 

004421 

000202 

MPSMHO 

001633 

002127 

MPSMLB 

000202 

002114 

MPSMLK 

001306 

001321 

MPSMLN 

001631 

000157 

MPSMLP 

006333 

001605 

MPSMRB 

002171 
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CREF   OA.OO 


HTMACT 

INAACT 

INDACT 

INIACT 

I$$AS 

LCTACT 

LCSNTL 

LC$OUN 

LFSMlT 

LFSREA 

LFSSEG 

LFSSKP 

LFS\/R2 

LFSZER 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.OUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

IN. OOP 

^N.OPE 

LN.REF 

LN.SER 


000570  I 
001 30A  I 
001315  I 
001330  I 
=  ****** 

0C0212  I 
=  000200 
=  000400 
=  040000 
=  000001 
=  100000 
=  000004 
=  000010 
=  000002 
=  100000 
=  000400 
=  000007 
:  00200U 

001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=-  000000 
=  000000 
=  000005 
=  000004 
=  000003 
=  : 30003 
=  000001 
=  000000 
=  000004 
=  000001 
=  000002 
=  000002 


REFERENCES 

#9-378 
#9-387 
#9-399 
#9-408 
9-417 
9-430 
9-439 
#9-448 
#9-461 
#9-470 
#9-483 
#9-497 
#18-832 
#35-1196 
#36-1214 
#37-1232 
5-65 
#12-630 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#5-72 
#6-72 
#5-67 
#5-57 
#5-57 
#5-67 
#5-67 
#5-67 
#5-57 
#5-57 
#5-67 
#5-67 
#5-67 
#5-67 
#5-57 
#5-57 
#5-67 
#5-67 
#5-57 
#5-57 
#5-57 
#5-67 
#5-67 
#5-67 
#5-57 
#5-67 
#5-67 
#5-67 


9-379 

9-388 

9-400 

9-409 

#9-417 

#9-430 

#9-439 

9-449 

9-462 

9-471 

#9-486 

#9-501 


27-1046 


#9-379 
#9-388 
#9-400 
#9-409 
#9-422 
#9-431 

9-440 
#9-449 
#9-462 
#9-471 

9-487 


#9-380 
#9-392 
#9-401 
#9-413 
9-423 
9-432 
#9-440 
#9-454 
#9-453 
#9-476 
#9-487 


9-381 

9-393 

9-402 

9-414 

#9-423 

#9-432 

9-441 

9-455 

9-464 

9-477 

#9-491 


#9-381 
#9-393 
#9-402 
#9-414 
#9-424 
#9-436 
W-441 
#9-455 
#9-454 
#9-477 
9-492 


#9-385 
#9-394 
#9-406 
#9-415 
9-425 
9-437 
#9-445 
#9-456 
#9-458 
#9-478 
#9-492 


9-386 

9-395 

9-407 

9-416 

#9-425 

#9-437 

9-447 

9-457 

9-469 

9-479 

#9-496 


#9-386 
#9-395 
#9-407 
#9-416 
#9-429 
#9-438 
#9-447 
#9-457 
#9-469 
#9-479 
9-497 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2'i 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

55 

56 

37 

38 

39 

AO 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

55 

54 

55 

56 

57 
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FNDCTR  -  FIND  COUNTER  BLOCK 


572 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 

390  000622 

391  000622 

392  000626 

393  000632 

394  000636 

395  000640 

396  000644 

397  000650 

398  000654 

399  000656 

400  C00664 

401  000666 

402  000670 

403  000674 

404  000676 

405  000700 

406  000702 

407  000704 

408  000712 

409  000714 

410  000722 

411  000726 
412 

413 
414 

415  000732 

416  000740 
417 

418  000744 

419  000754 

420  000756 

421  000760 

422  000764 

423  000766 

424  000772 

425  000774 

426  000776 

427  001000 

428  001002 


.SBTTL  FNDCTR 


FIND  COUNTER  BLOCK 


016400 
116001 
105760 
001404 
016401 
116101 
067701 
011101 
022761 
001045 
005046 
017705 
020025 
001402 
005216 
000774 
116466 
012605 

016101 
016100 


FNDCTR 
INPUTS: 


FIND  TRANSPORT  LINE  COUNTER  BLOCK 


R4  -  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

CARRY  CLEAR: 

R1  -  ADDRESS  OF  FOUND  COUNTER  BLOCK 
CARRY  SET: 

COUNTER  BLOCK  NOT  FOUND 

**»   NOTE:  THIS  ROUTINE  MUST  BE  CALLED  FROM  SYSTEM  STATE. 
APR6  IS  MODIFIED 


000042 
000021 
000014 

000050 
000003 
OOOOOOG 

114224  000004 
OOOOOOu 


FNDCTR:: 


lOi: 


15$: 


000040  000001   17$: 


000016 
000100 


016101  000104 


005300 
002410 
026105 
001403 
062701 
000770 
000241 
000401 
000261 


000000 
000046 


20$: 


30$: 

40$: 
50$: 


MOV 

MOVB 

TSTB 

BEQ 

MOV 

MOVB 

ADD 

MOV 

CMP 

BNE 

CLR 

MOV 

CMP 

BEQ 

INC 

BR 

MOVB 

MOV 

HAP 

MOV 

MOV 

.IF  NDF 

MOV 

.IFF 

MAP 

MOV 

.ENDC 

BIAS 

DEC 

BLT 

CMP 

BEQ 

ADD 

BR 

CLC 

BR 

SEC 

RETURN 


,R1 


L$SLT(R4),R0 

L.0WNR(R0>,R1 

L.NSTA(RO) 

10$ 

L$TPT(R4), 

S.0WNRCR1) 

aPDVTA.RI 

(R1),r1 

**RXPT,Z.NAM(R1) 

40$ 

-(SP) 

aSLTMA,R5 

R0,(R5)t 

17i 

(SP) 

15$ 

L$TR8(R4),1(SP) 

(SP)+,R5 

Z.DSP(RI) 

2.DAT(R1),R1 

N$TLC(R1),R0 

X$$TLC 

N$TLC+2{R1),R1 

N$TLC+2(R1) 
N$TLC+4(R1),R1 

R1 

RO 

40$ 

T$LIN(R1),R5 

30$ 

#T$LLEN,R1 

20$ 

50$ 


GET  THE  SLT  ADDRESS 

ASSUME  OWNER  =  LINE  OWNER 

Multipoint  circuit  ? 

IF  EQ,  NO 

GET  THE  TRIB  FLAGS  POINTER 

ELSE,  GET  TRIB  OWNER 

POINT  TO  PDV  TABLE  ENTRY     ;  RJK02 

GET  THE  PDV  ADDRESS         .•♦♦-1 

IS  THE  OWNER  TRANSPORT  ? 

IF  NE,  NO-PARAMETER  NOT  APPLICABLE 

GET  SLN 

POINT  TO  SLT  VECTOR  TABLE    ;  RJK02 

IS  THIS  THE  CORRECT  SLT?     ;**-1 

BR  IF  YES 

ELSE  UPDATE  SLN 

TRY  AGAIN 

SET  TRIB  NUMBER  ONTO  HIGH  BYTE 

RETRIEVE  SLN/STA 

MAP  TO  NSP'S  PROCESS  SPACE 

POINT  TO  NSP'S  DDB 

GET  THE  NUMBER  OF  LINE  COUNTERS 

POINT  TO  THE  FIRST 

MAP  TO  IT 

POINT  TO  THE  FIRST 

SET  FOR  APR6  BIAS 

AT  END  OF  COUNTERS  ? 

IF  LT,  YES-PARAMETER  NOT  APPLICABLE 

ARE  THESE  THE  COUNTERS  ? 

IF  EQ,  YES  -  READ  THEM 

ELSE,  POINT  TO  NEXT  COUNTERS 

AND  KEEP  LOOKING 

INDICATE  FOUND  IT 

INDICATE  NOT  FOUND 
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CREF       04.00 


TSLIFO 

000015 

#6-64 

TSLIFS 

000013 

#6-64 

TILIN 

000000 

#6-64 

13-421 

TSLIPS 

000006 

#6-64 

T$LLD 

000012 

#6-64 

TSLLDC 

0000A5 

#6-64 

TSLLDL 

000012 

#6-64 

TtLLDO 

000012 

#6-64 

TSLLDS 

000012 

#6-64 

TSLLEN 

0000A6 

#6-64 

13-423 

TSLOPR 

000002 

#6-64 

TSLTCL 

000024 

#6-64 

TSLTIM 

000026 

#6-64 

TSLTPR 

OOOOU 

#6-64 

TSLTPS 

000020 

#6-64 

TSNAPL 

000004 

#6-64 

TSNFE 

000000 

#6-64 

TSNLEN 

000010 

#6-64 

TJNNUL 

000002 

#6-64 

TSNOPL 

000006 

#6-64 

TtNRNI 

000042 

#6-64 

TSNRPL 

000005 

#6-64 

TSNRUL 

000007 

#6-64 

T$NVR 

000001 

#6-64 

TSRPRI 

000040 

#6-64 

T$SVC 

000034 

#6-64 

T$T5 

000030 

#6-64 

T$T6 

000032 

#6-64 

X$$MCB 

=   *♦■***♦ 

6-67 

6-67 

XSSTLC 

=  000001 

#4-2 

13-412 

ZF.COU 

=  001000 

#6-67 

ZF.DDM 

=  000001 

#6-67 

ZF.DIA 

=  004000 

#6-67 

ZF.DLC 

=  000002 

#6-67 

ZF.DVP 

=  100000 

#6-67 

ZF.INI 

=  040000 

#6-67 

ZF.KMX 

=  000020 

#6-67 

ZF.LLC 

=  000004 

#6-67 

ZF.LMC 

=  000100 

#6-67 

ZF.MAN 

=  020000 

#6-67 

ZF.MFL 

=  000010 

#6-67 

ZF.MTM 

=  000400 

#6-67 

ZF.MUX 

=  000040 

#6-67 

ZF.PSE 

=  002000 

#6-67 

ZF.SLI 

=  010000 

#6-67 

ZF.TIM 

=  000200 

#6-67 

ZF.X3P 

=  000000 

#6-67 

ZS.ASN 

=  100000 

#6-67 

ZS.BSY 

=  140000 

#6-67 

Z.AVL 

000014 

#6-67 

Z.DAT 

000016 

#6-67 

13-410 

Z.DSP 

000000 

#6-67 

6-67 

13-409 
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U7 
U8 
K9 
150 
151 
152 
153 
15^ 
155 
156 
157 
158 
159 
160 
161 
162 
163 
16A  000322 

165  000322 

166  000330 

167  000332 

168  000336 

169  000340 

170  000346 

171  000350 

172  000354 

173  000362 

174  000364 

175  000370 

176  000376 

177  000400 

178  000402 

179  C00406 


.S8TTL  SETNTL  -  DISPATCH  NETLOADER  SET  FUNCTIONS 

**-SETNTL-DISPATCH  NTL  SET  FUNCTIONS 

THIS  ROUTINE  SENDS  A  REQUEST  TO  NTL  TO  LOAD  A  LINE. 

INPUTS: 

R4  =  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

IF  CC,  SUCCESS,  ELSE, 
ERROR  CODE  IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


132764  000200  000041 

001403 

105764  000040 

001023 

032764  000400  000134 

001415 

016400  000042 

032760  040000  000000 

001407 

012700  177765 

012764  000003  000072 

000261 

000402 


SETNTL: 


10$: 


20$: 
30$: 


BITS 

#LP$UTR,L$PFG(R4) 

BEQ 

10$ 

TST8 

L$TReCR4) 

BNE 

30$ 

BIT 

#LS.0PT,L$NTL+LR.STS(R4) 

BEQ 

20$ 

MOV 

L$SLT(R4),R0 

BIT 

#LF.RDY,L.FL6(R0) 

BEQ 

20$ 

MOV 

*ME.CST,RO 

MOV 

#ME$CIR,L$PAR(R4) 

SEC 

BR 

30$ 

CALL 

NTLLIN 

RETURN 


IS  THIS  PART  OF  A  WILD  TRIB  OPERATION 

IF  EQ,  NO 

ELSE  YES,  IS  THIS  THE  FIRST  TRIB  ? 

IF  NE,  NO  -  IGNORE  THE  REQUEST 

ANY  NTL  OPTIONS  SPECIFIED  ? 

IF  EQ,  NO  -  LOAD  IT 

GET  THE  SLT  ADDRESS 

IS  THE  LINE  ALREADY  LOADED  ? 

IF  EQ,  NO  -  LOAD  IT 

ELSE,  LINE  IS  IN  WRONG  STATE 


RETURN  WITH  ERROR 

ELSE,  PERFORM  NTL  SET  LINE  FUNCTION 
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CKHPD  - 
STAOFF  - 

646 
6-^7 
6A8 
6A9 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
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REQUEST  CIRCUIT  STATE  "OFF" 

.SBTTL  STAOFF  -  REQUEST  CIRCUIT  STATE  "OFF" 

♦*-STAOFF-REQUEST  CIRCUIT  STATE  TO  "OFF" 

THIS  ROUTINE  IS  CALLED  TO  CHECK  THE  CURRENT  CIRCUIT  STATE,  AND 
IF  LEGAL,  CHANGE  IT  TO  OFF. 

INPUTS: 

R2  =  ADDRESS  OF  STATE/OWNER  WORD  IN  SLT 
R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

IF  CC,  SUCCESS 

ELSE,  RO  CONTAINS  ERROR  CODE 


002100 


002100  012700  017010 

002104 

002110  012700  177747 

002114 


STAOFF: 

TELL  DLX  TO  TURN  THE  CIRCUIT  OFF 

MOV  *<36*400I10>,RO 

CALL  DLXQIO 

MOV  #ME.OPE,RO 
RETURN 


SET  OFF  FUNCTION  CODE 
ISSUE  QIO 

ASSUME  OPERATION  FAILED 
RETURN  WITH  C-STATUS 


.ENDC 


NDF  R$$11S 
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Symbol  table 


A$$CHK= 

A$SCPS= 

A$$PRI= 

A$$TRP= 

BBTTBL 

BSATBL 

BSDTBL 

BSITBL 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT  = 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.THO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.L1N= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CLENTL 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.A80= 

CS.BRO= 

CS.BUF= 

rs.rES= 

CS.rHN= 


000000 

000000 

000000 

000000 

0001 20R 

0001 56R 

0001 70R 

000202R 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

*♦*♦»♦  GX 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

00041  ORG 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 


CS.CMP= 

000200 

DLXQI0= 

»♦***♦  GX 

D$$L11= 

000001 

CS.DCR= 

000400 

DMPSET 

000424R 

002  D$$YNC= 

000000 

CS.DEF= 

000004 

DV.CCL= 

000002 

D$$YNM= 

000000 

CS.DEV= 

000002 

DV.COM= 

020000 

EXRQN  = 

****** 

CS.DIS= 

000040 

DV.D]R= 

000010 

E$NBR 

000014 

CS.ENA= 

000001 

DV.EXT= 

000400 

E$NBS 

000020 

CS.ENB= 

000020 

DV.F11= 

040000 

E$NCR 

5S55^^ 

CS.ERR= 

100000 

0V.1SP= 

002000 

E$NCS 

000036 

CS.FTL= 

001000 

DV.M8C= 

000400 

ESNIC 

000044 

CS.HCR= 

000001 

DV.MNT= 

100000 

ESNLEN 

000050 

CS.HFE= 

002000 

DV.MSD= 

000100 

ESNLLA 

000012 

CS.LST= 

040000 

DV.OSP= 

004000 

ESNLNK 

000000 

CS.HTL= 

004000 

DV.PSE= 

010000 

E$NML 

000040 

CS.RNG= 

000010 

DV.REC= 

000001 

E$NMR 

000024 

CS.ROV= 

000004 

DV.SDI= 

000020 

E$NMS 

000030 

CS.RSN= 

010000 

DV.SQD= 

000040 

ESNNOD 

000002 

CS.SHU= 

000001 

DV.SUL= 

001000 

E$NRT 

000042 

CS.S1D= 

000002 

DV.TTY= 

000004 

ESNRTP 

29999S 

CS.STR= 

000004 

DV.UMD= 

000200 

ESNSEG 

000010 

CS.SUC= 

000001 

DSAMXC 

000072 

ESNTIM 

000046 

CS.TMO= 

020000 

DSAHXH 

000074 

ESNUSE 

000004 

CS.XUR= 

000004 

D$ANN 

000000 

ESSTRT 

000006 

C$$CKP= 

000000 

DSBRPR 

000102 

E$$XPR= 

000000 

C$$ORE= 

000400 

D$8RTM 

000100 

FC.CCP= 

000020 

C$$RSH= 

177564 

DSDELF 

000045 

FC.CTL= 

000006 

C.ADD 

000034 

DSDELW 

000046 

FC.KCP= 

000016 

C.BID 

000003 

D$END  = 

000104 

FC.KIL= 

000004 

C.BUF 

000014 

D$FNB 

000034 

FC.HAN= 

000024 

C.BUF1 

000014 

DtHIOR 

000024 

FC.MLD= 

5999?^ 

C.BUF2 

000024 

DSHOST 

000022 

FC.PCT= 

000030 

C.CNT 

000020 

D$INAC 

000044 

FC.PWR= 

000022 

C.CNT1 

000020 

DSINCT 

000042 

FC.RCE= 

000002 

C.CNT2 

000030 

DSIPL 

000051 

FC.RCP= 

000014 

C.FLG 

000022 

DSLJD 

000020 

FC.TIM= 

000010 

C.FLG1 

000022 

DSLNAM 

000006 

FC.XCP= 

99991? 

C.FLG2 

000032 

DSLNUM 

000014 

FC.XNE= 

000000 

C.FNC 

000010 

DILST 

000047 

FNDCTR= 

****** 

C.LIN 

000006 

D$MAXC 

000064 

FS.AST= 

000000 

C.LNK 

000000 

DSMAXH 

000066 

FS.CI8= 

002000 

C.MOD 

000011 

DSMAXV 

000070 

FS.CRA= 

001000 

C.NSP 

000004 

D$HLL 

000040 

FS.DIS= 

013000 

C.PRO 

000042 

DSMNOD 

000041 

FS.DVC= 

001000 

C.RSV 

000002 

D$NA 

00006? 

FS.ENB= 

012000 

C.STA 

000007 

DSNBEA 

00005O 

FS.EXI= 

001000 

C.STS 

000012 

DSNBRA 

000054 

FS.GET= 

006000 

C.URM 

177776 

D$NEND= 

000054 

FS.HLT= 

000000 

C.XACP 

000004 

D$NLN 

000030 

FS.IN1= 

000000 

C.XID 

000035 

D$NN 

000060 

FS.KIL= 

000000 

C.XLEN 

000044 

DSOUTT 

000043 

FS.LCL= 

100000 

C.XPLI 

000040 

DSRETF 

000050 

FS.LTM= 

991999 

C.XPT 

000034 

D$RNN 

000002 

FS.MNT= 

004000 

C.XSVC 

000042 

DSRTMR 

000076 

FS.MSN= 

014000 

C.XTC 

000037 

D$SEG 

000036 

FS.REA= 

001000 

C.X25 

000036 

DSSER 

000032 

FS.REr= 

000000 

DEALUN= 

»♦♦»*♦  GX 

DSSORL 

000052 

FS.REZ= 

003000 

DECPT  = 

»***•*  GX 

D$$BUG= 

177514 

FS.RLB= 

992999 

DLXLUN= 

»»*♦»»  GX 

D$$ISK= 

000000 

FS.RNG= 

011000 

GX 


GX 


FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 

FS.SFS= 

FS.$PW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

FS.ULB= 

FS.XKL= 

FS.XOF= 

FS.XON= 

FS.ZER= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$URD= 

HEADR  = 

H.CSP 

H.CUIC 

H.DSU 

H.DUIC 

H.EFLM 

H.EFSV 

H.FCS 

H.FORT 

H.FPSA 

H.FPSL= 

H.FPVA 

H.GARD 

H.HDLN 

H.IPC 

H.IPS 

H.ISP 

H.LUN 

H.NLUN 

H.NML 

H.ODVA 

H.ODVL 

H.OVLY 

H.PFVA 

H.RCVA 

H.RRVA 

H.SPRI 

H.TKVA 

H.TKVL 

H.VEXT 

H.UND 

H.X25 

INAFBL 

INDTBL 

INITBL 

INSMSG 


000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
000000 
000000 
000000 
****** 

000000 

000010 

000046 

000012 

000004 

000040 

000050 

000052 

000042 

000062 

000034 

000072 

000002 

000016 

000014 

000020 

000076 

000074 

000061 

000022 

000024 

000054 

000032 

000036 

000062 

000060 

000026 

000030 

000056 

000044 

000064 

000214R 

000226R 

000240R 

OOOOOOR 


GX 
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H  8 
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CREF   OA.OO 


SYMBOL  VALUE 


MPSXMT 

MSSOFF 

MSSON 

MSSSER 

MS.  sue 

nXBTBL 

NF.END 

NMTTBL 

NODMSG 

NTLLIN 

NTLMSG 

NTLSND 

NSPLD 

N$RT1 

N$RT2 

NStVCT 

PDVID 

PDVTA 

PRSLCC 

P$CHN 

PSSTAI 

P$STA2 

R$$MPL 

R$$PRO 

R$$RTR 

R$$11D 

R$$11M 

R$$11S 

SETBBT 
SETBSA 
SETBSD 
SETBSI 
SETCOS 
SETHTM 
SETINA 
SETIND 
SETINI 
SETMX8 
SETNMT 
SETNTL 
SETOWN 
SETSER 
SETSTA 
SETTH1 
SETTH2 
SETTH3 
SETXMT 
SF.ACT 
SF.ENA 
SF.LPB 
SF.MFL 


R 
R 
R 
R 
GX 


GX 
GX 


002166 
000001 
000000 
000002 
000001 
000310 

=  000200 
000132 
000074 
000446 
000035 

=  ****** 

000016 

000000 

000006 

=  ****** 

~   ****** 

=  ****** 

=  000010 

000004 

000022 

000023 

r  ****** 

=  ****** 

=  ****** 

-  ****** 

=  000000 

=  ****** 


000222  RG 
000260  RG 
000272  RG 
000304  RG 
002604  RG 
000566  RG 
000316  RG 
000330  RG 
000342  RG 
000412  RG 
000234  RG 
000322  RG 
000000  RG 
000566  RG 
000734  RG 
000354  RG 
000366  RG 
000400  RG 
000246  RG 
000200 
000100 
000004 
000040 


REFERENCES 

8-132 

13-351 

13-419 

13-492 

20-871 
#8-142 

13-416 
*8-131 
#7-101 

9-178 
#7-99 

11-239 

20-907 

20-920 

20-923 

12-298 

20-895 

13-382 

20-918 

20-911 
*20-918 
♦20-919 

13-391 

5-60 

7-107 

5-72 

5-72 

5-72 

19-831 
#22-1018 
#22-1027 
#22-1030 
#22-1033 
#20-853 
#12-283 
#22-1036 
#22-1039 
#22-1042 
#22-1054 
#22-1021 
#9-164 
#21-954 
#24-1119 
#13-334 
#22-1045 
#22-1048 
#22-1051 
#22-1024 
#5-73 
#5-73 
#5-73 
#5-73 


13-360 
13-488 
14-533 

22-1054 

22-1021 
13-457 
10-205 
11-254 

20-908 


12-301 

14-554 
20-919 


6-86 
21-1008 


7-97 
21-948 


13-374 
14-529 
15-608 


#11-226 


12-304 
20-901 


6-86 


7-107 


14-531 
14-540 
15-639 


15-610 
14-570 


17-700 

15-612    17-696 


18-751 
21-990 


7-91 


11-265 


19-802 


7-109 


13-335 


11-242    11-252 
13-464     13-474 


13-455    21-1008 
13-484    13-503 


13-372 


13-449 


18-765 


19-813 


19-820    20-883 


21-983 


CICHPX  - 
CICHPX  - 

13A 

135 

136 

157 

138 

139 

UO 

HI 

142 

U3 

UA 

U5 

U6 

U7 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 
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Set  X.25  circuit  parameters 

.SBTTL  CICHPX  -  Set  X.25  circuit  parameters 

***  CICHPX  -  Set  X.25  circuit  parameters 

INPUTS 

R4  -  Pointer  to  context  area 

OUTPUTS 

RO  -  Error  code 


000200 
000200 

000204 
000212 
000214 

000220 
000224 

000226 
000234 
000236 
000244 

000246 
000254 
000256 

000262 
000266 
000274 

000276 
000302 
000310 

000312 
000316 
000324 


012700  000002 

026427  000050  177777 
001002 


103416 

032764 
001404 
022764 
001422 

032764 
001010 


012700 
012764 
000413 

012700 
012764 
000405 

012700 
012764 


CICHPX: 


10$: 


000004  000076 
000000  000260 

001000  000076  20$: 


177745        90$: 
Mim     000072 


177752        92$: 
001616  000072 


177760        95$: 
002127  000072 

100$: 


MOV  #MS.MOR,R0 

CMP  L$TPT(R4),#-1 

BNE  10$ 

CALLR  SETPVC 

CALL  CKDSVC 

BCS  90$ 

BIT  #LS$CUS,L$FLX(R4) 

BEQ  20$ 

CMP  #MU$PER,L$CUS(R4) 

BEQ  95$ 

BIT  #LS$BLK,L$FLX(R4) 

BNE  92$ 

CALLR  SETSVC 

MOV  *ME.GRO,R0 

MOV  #-1,L$PAR(R4) 

BR  100$ 

MOV  #ME.PNA,RO 

MOV  #MP$8LK,L$PAR(R4) 

BR  100$ 

MOV  #ME.PVA,R0 

MOV  #MP$CUS,L$PAR(R4) 

RETURN 


Assume  successful  completion 

Is  this  a  named  PVC? 

Branch  if  not 

Set  PVC  parameters 

Is  this  a  DLM  SVC? 
Branch  if  not 

Was  USAGE  specified? 

Branch  if  not 

Cannot  allow  USAGE  PERMANENT  yet 


Was  BLOCKING  specified 

Error  if  so  -  not  implemented  in  XPT 

Set  SVC  parameters 

Indicate  invalid  parameters  supplied 
No  further  information  available 


Indicate  parameter  does  not  apply 
Tell  the  user  what  we  can't  do 


Indicate  cannot  cope  with  PERMANENT 
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Symbol  table 


XSNRBV  000032 
XtNRPK  000042 
XSNRRE  000053 
XSNTBY  000036 
XSNTPK  000046 
XtPKSZ  000016 
X$PR    000011 

XIPRT   000021 
X$PS    000010 
XtRPR   000013 
XJRPS   C00012 
X'iRTRY  0OQOQ2 
xIrXI   000104 
XSRXQ   000072 

.  ABS.   177776 
001232 
Errors  detected; 

000 
001 
0 

(RW,I,GSL,ABS,aVR) 
(RW,I,LCL,REL,CON) 

♦»♦  Assembler  statistics 

Work  file  reads 
Work  file  writes 
Size  of  work  f i  le 
Size  of  core  pool 
Operating  system 

285 

195 

39024  Words  (  153  Pages) 

17608  Words  (  67  Pages) 

RSX-11M/PLUS 

X$SS 
X$ST 
X$TCLZ 
XJTIMC 

xItimr 

XiTXI 
X$TXQ 


000004 

8ogoo5 

330 


000066 


X$TYP 
X$USR 
xlUAO 

xiwsz 

X$$DBT= 

$ADPVC 

$CEACC= 


000015 

"  10022 

)0Q' 


$HEADR= 
$STPAR= 
$XLB0V= 
|$$R  = 
$|$SYS= 
$$$SYX= 


*♦♦**»  GX 
«♦♦♦♦*  GX 

looogg 
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BIT  DEFINITIONS 

.SBTTL  BIT  DEFINITIONS 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000360 


000001 
000002 
OOOOOA 


000010 
000020 
000040 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


PARSE  FLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LPSTRB 
LPSMUX 
LPSMPT 
LPSWDV 
LPSWCN 
LPSUUN 
LPSUTR 


1 

2 

4 

10 

20 

40 

100 

200 


UNIT  NUMBER  FOUND 

TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


LPSWLD  =  LP$WDVILP$WCNILP$WUNILPlwTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA  =  1 

LFSZER  =  2 

LFSSKP  =  4 


LF$Vfi2  =  10 

LFSEND  =  20 

LFSSIG  =  40 

LFSMLT  =  40000 
LFSSEG  =  100000 

BIT  POSITION  DEFINITIONS 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFICANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 


BITO  = 
BIT1  = 
BIT2  = 
B1T3  = 
BIT4  = 
BITS  = 
BIT6  = 
BIT7  = 
BITS  = 
BIT9  = 
BIT10 
BIT11 
B1T12 
BIT13 
BIT14 
BIT15 


1 
2 

4 

10 

20 

40 

100 

200 

400 

1000 
=  2000 
=  4000 
=  10000 
=  20000 
=  40000 
=  100000 


1  11 

riRFrH  -  RFsn  nRfiiiT  rHARACTFR  MACRO  v05.03b  Saturday  29-Jun-85  12:15  Page  8 


H  12 

CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85  12:15 
GETADJ  -  Get  an  adjacency 


Page 


600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6U 
615 
616 
617 
618 
619 
620 
621 

622  002152 

623  002152 

624  002156 
625 

626  002164 

627  002170 

628  002172 

629  002176 

630  002204 
631 

632  002210 

633  00221 '^ 

634  002'  . 

635  002226 
636 

637  002230 

638  002236 

639  002240 

640  002246 

641  002254 

642  002256 

643  002260 

644  002264 
645 


■SBTTL  GETADJ  -  Get  an  adjacency 
•*  GETADJ  -  Get  an  adjacency 


Inputs: 


Output: 


Registers: 
N.8. 


R2  =  address  of  XPT  DD8 

R4  =  context  area  address 

L$ADJ(R4)  =  current  position  in  adjacency  database 

L$C0U(R4)  =  count  of  unscanned  entries  in  adjacency  database 

L$CHN(R4)  =  channel  number  for  circuit 


carry  set; 
carry  clear: 


005764 
003432 
016401 
062764 
005364 

132761 
001762 
126164 
001356 

016164 
001752 

116164 
005727 
000261 


000114 

000110 
000004 
000114 

000010 

000003 

000000 

000002 


GETADJ; 


10$: 


000110 

000002 
000054 

000112 

000070 


20$: 


SAVMAP 
MAP 

TST 
BLE 
MOV 
ADD 
DEC 

BJT8 
8EQ 
CMPB 
BNE 

MOV 

BEQ 

MAP 

MOVB 

TST 

SEC 

RE  SWAP 

RETURN 


no  more  adjacent  nodes, 
success 


L$N0D(R4)  =  adjacent  node  address 
L$LTM(R4)  =  encoded  listener  timer 

R1  is  corrupted. 

**♦  This  routine  changes  APR  6  mapping  and  *** 
♦♦*  must  be  called  from  system  state       *♦* 


N$ADJ 


,:) 


L$C0U(R4) 

20$ 

L$ADJ(R4),R1 

#A$LEN,L$ADJ(R4) 

L$C0U(R4) 

*AT$UP,A$TYP(R1) 
10$ 

A$CJR(R1),L$CHN(R4) 
10$ 

A$NID(R1),L$N0D(R4) 

10$ 

N$ADJ2(R2) 

A$TMJ(R1),L$LTM(R4) 

(PCJ  + 


save  mapping 
map  to  ADJI 

any  unscanned  adjacencies 

if  LE,  no 

else  get  next  adjacency 

advance  pointer 

change  unscanned  count 

is  this  adjacency  up  ? 
if  EQ,  no 

is  it  for  correct   innel 
if  NE,  keep  walking 

else  get  node  address 
br  if  no  entry 
map  to  ADJ2  database 
get  encoded  listen  timer 
return  success 
return  failure 
restore  mapping 
and  return  success 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


OF   ITS 


MODULE  L'ESCRIPTION: 
NETWORK  MANAGEMENT 


READ  AND  ZERO  CIRCUIT  COUNTERS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  01-JUL-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SYMBOL  VALUE 
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CREF   OA.OO 


BITO 

BIT1 

B1T10 

BIT11 

BIT12 

BIT13 

BITU 

BIT15 

BIT2 

BIT3 

BITA 

BITS 

BIT6 

BIT7 

BITS 

B1T9 

B$10 

B$11 

B$12 

B|5 


B$7S10 

CIRECO 

DACIR 

DCPCIR 

DLCTBL 

DLMCOU 

DMPCIR 

I$$AS 

LFSEND 

LFSMLT 

LFSREA 

LF$SEG 

LFSSIG 

LFSSKP 

LF$VR2 

LFSZER 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 


=  000001 
=  000002 
=  002000 
=  004000 
=  010000 
=  020000 
=  OAOOOO 
=  100000 
=:  000004 
=  000010 
=  000020 
=  000040 
=  000100 
=  000200 
=  000400 
=  001000 

000003 

000004 

000005 

000000 

000001 

000002 

000006 

000002  RG 
=  *»*♦♦»  GX 

r  ******   GX 

000000  R 
=  ******  GX 
=  ******  GX 
-  ****** 
=  000020 
=  040000 
=  000001 
=  100000 
=  000040 
=  000004 
=  000010 
=  000002 
=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 


REFERENCES 

#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#10-133 

9-99 

9-95 
#9-92 

9-102 

9-100 

5-64 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 


10-156 
9-101 


10-149 
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MPSMRO 

MPSMRP 

MP$MRT 

MPtMRV 

MPtMSB 

MPIMVE 

MPSMVl 

MPSMVR 

MPtMWN 

MP$MX8 

MPSMXC 

MPSMXR 

MPtMXW 

MPtNAA 

MPSNAC 

MPSNAP 

MPtNCT 

MPSNET 

MP$NL 1 

MPSNNA 

MPSNOD 

MPSNRA 

MPSNRB 

MP$NSA 

MPSNTI 

MPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

MPSONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

MPSOVE 

MPSOWN 

MPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MP$PL I 

MPSPLN 

MPSPLO 

!1P$PMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 


001605 

006322 

002153 

006320 

000170 

000H5 

001 63A 

001751 

002154 

002172 

000466 

001630 

002U3 

006335 

001130 

006326 

000240 

0021U 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 

000513 

002152 

000024 

000144 

002114 

000170 

C00012 

000025 

002140 

000012 

004374 

002126 

004411 

002130 

001763 

001762 


MPSRET 

MPSRFA 

MPSRMX 

MPSRPA 

MPSRPR 

MP$RRT 

MPSRST 

MPSRSV 

MPSRSZ 

MP$RTI 

MPSRTM 

MPSRVE 

MPSRVT 

MPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MP$SCT 

MPSSDU 

MPSSDV 

MPSSEH 

MP$SER 

MPSSET 

MPSSGZ 

MPSSID 

MPSSIN 

MPSSLI 

MPSSLO 

MPSSMX 

MPSSND 

MPSSNP 

MPSSNU 

MPSSOB 

MPSSPA 

MPSSPR 

MPSSPS 

MPSSTA 

HPSSTI 

MPSSTT 

MPSSTY 

MPSSUB 

MPSSUR 

MPSSUS 

MPSSVR 

MPSSWI 

MPSSYP 

MPSTFL 

MPSTHI 

MP$TH2 

MP$TH3 

MPSTLN 

HP$TLO 

MPSTPA 

MPSTRl 

MPSTST 

MPSTYP 

MPSUCS 


001631 

951523 

002201 

004374 

001606 

002213 

002212 

001754 

001756 

001616 

001611 

001604 

000156 

000514 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

001644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 

000000 

002140 

002201 

000175 

000001 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004375 

002164 

000144 

002130 

004407 


MPSUSR 

MP$VEC 

MPSVER 

MPSUDf 

MP$UMX 

MPSXMT 

MPSXPF 

MPSXPL 

MPSXPT 

MP$XXX 

MP$5ST 

MS$ACT 

MS$ADU 

MSSALO 

MSSASE 

MSSATR 

MS$AUT 

MSSCLE 

HSSDED 

MS$D1E 

MSSDUM 

MS$FAI 

MSIGLO 

MSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOFF 

MSSON 

MSSPRO 

MSSREA 

MSSREF 

MS$RES 

MSSRST 

MSSRSX 

MS$RT 

MSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

HS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MT$ASC 

MISBIL 

MTSBYS 

MT$CI 

MTSCLE 

MTSCOD 


001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
177777 
004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
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MTSCON 

MTSDMC 

MTSETH 

MT$HEX 

MTSLPB 

MTSMAX 

MT$MUL 

MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

MTSPHA 

MT$POI 

MT$QP2 

MTSROU 

MT$R04 

MTSSEC 

MTSSGD 

MTSSYS 

MTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

Mr$X25 

HU$1NC 

MUSOUT 

MUSPER 

MVSJIJ 

MV$IV 

MXSACT 

MXSCJR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

MXSDTE 

MXtFIL 

MXSLGC 

MX$LIN 

MXSLON 

MXSNMS 

MXSNOD 

MX $08 J 

MXSOWN 

MXSPAR 

MXSPAS 

HXSRAC 

MXSRID 

MXSRPS 

MXSSID 

MXSSNK 

HXSTYP 

MXSUID 

M$$CRB= 

M$$CRX= 

M$$FCS= 


000001 
§00004 
000006 
000040 
000005 
000037 
000100 
000017 
00000) 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
000040 
000036 
000010 
000047 
000047 
000047 
000040 
000377 
000077 
000020 
000124 
000000 
000000 


M$$MGE= 

M$$NET= 

M$$0VR= 

NF$ACC= 

NF$EVT= 

NF.ACC= 

NF.BCP= 

NF.END= 

NF.EVTr 

NF.LLI= 

NF.LV2= 

NF.SLI= 

NF.SMC= 

NF.SWP= 

NM.CLN 

NM.INI 

NM.OPR 

NM.VR2 

NH.VR3 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MO\/= 

NSSNCTr 

N$$PEM= 

P$JP45= 

P$$URD= 

Q$$0PT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANM 

SFSDNM 

S$$WRG= 

S$$YSZ= 

S1.DEC= 

S1.DPR= 

S1.DSI= 

S1.ESC= 

S1.IBF= 

S1.IBY= 

S1.0BY= 

S1.PTH= 

S1.RES= 

S1.RNE= 

SI.RNF^ 

S1.RSP= 

S1.RST= 

S1.TNE= 

S1.TSY= 

S1.US1= 

S2.BEL= 

S2.BRQ= 

S2.CR  = 


000000 
000000 
000000 
100000 
040000 
000001 
000040 
000200 
000002 
000004 
000100 
000400 
000020 
000010 
003400 
002400 
003000 
002401 
002402 
000001 
000001 
000001 
00030! 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000001 
000002 
000000 
007600 
001000 
000400 
004000 
000002 
002000 
000200 
000100 
000010 
010000 
000020 
020000 
000004 
000001 
040000 
000040 
100000 
020000 
000020 
002000 
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CICHIN 
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CREF       OA.OO 


LN.STA 
LN.SUB 
LN.TRI 
LO.CON 
LO.CSR 
LO.CTi 
LO.LIN 
LO.PAR 
LO.PRl 
LO.SCR 
LO.STA 
LO.VCT 
LPSMPT 
LPSMUX 
LPSNXC 
LPSTRB 
LPtUNT 
lPSWCN 
LPSUDV 
LPSWLD 
LPSWTR 
LPSUUN 
LR.AST 
LR.CIR 
LR.CTL 
LR.EFN 
R.LIN 
_'?.PRM 
LR.PRO 
LR.STS 
LR.TCB 
LR.UNT 
LSSACT 
LSSBBT 
LSSBLK 
LSSBSA 
LSSBSD 
LSSBSi 
LSSCHN 
LSSCMB 
LSSCOS 
LSSCUS 
LSSDDT 
LS$Df^ 
lSSDlM 
LSSDLT 
LSSDTE 
LSSHBT 
LSSHTM 
LSSINA 
LStIND 
LSSINI 


=   000017 

=  000360 

=  000006 

000006 

000006 

OOOOU 

00000^ 

000010 

000010 

OOOOK 

00001 5 

000012 

=  000010 

=  000004 

=  100000 

■-  000002 

=  000001 

=  OOOOAO 

=  000020 

=  000360 

=  000200 

=  000100 

000026 

000002 

000004 

000004 

000002 

000030 

000002 

000000 

000002 

000005 

=  000040 

=  010000 

=  001000 

=  000001 

=  000002 

=  000004 

=  000001 

=  000002 

=  000004 

=  000004 

=  001000 

r     000100 

=  001004 
=  002000 
=  000010 
=  000400 
=  010000 
=  000010 
=  000020 
=  000040 


REFERENCES 

#5-67 
*5-67 
#5-67 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 


17-811 

6-72 

6-72 

14-719 

6-72 

6-72 


6-72 


6-72 
6-72 

6-72 


6-72 


6-72 


6-72 
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59 
60 
61 
62 
63 

64  000000 

65  000000 

66  000000 

67  000000 

68  000000 

69  000000 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 

.MCALL  BIAS,CICCX$,CTRDF$,MANDF$,MAP,NTLDF$ 

.MCALL  PDVDF$,RESRG,SAVRG,SLTDF$,XPDD8$ 


CTRDFS 
MANDFS 
NTLDFS 
PDVDFS 
SLTDFS 
XPDDBS 


Define  transport  counters 
Define  management  symbols 
Define  NTL  symt  Is 
Define  PDV  symbols 
Define  SLT  symbols 
Define  XPT  database 
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FNDCTR  -  FIND  COUNTER  BLOCK 
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A29 
430 
431 
432 


000001 


.ENDC   ;  NDf  R$$11S 
.END 
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CREF       04.00 


Z.FLG 

000010 

#6-67 

Z.LEN 

=  000016 

#6-67 

Z.LLN 

000006 

#6-67 

Z.MAP 

000020 

#6-67 

Z.NAM 

000004 

#6-67 

Z.PCB 

000012 

#6-67 

Z.SCH 

000007 

#6-67 

SADPVC 

=  ****** 

GX 

9-18 

SSAVRG 

=  ****** 

GX 

9-15 

CICHOP 
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181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 


.SBTTL  CLENTL  -  DISPATCH  NETLOADER  CLEAR  FUNCTIONS 

**-CLENTL-DISPATCH  NTL  CLEAR  FUNCTIONS 

THIS  ROUTINE  SENDS  A  REQUEST  TO  NTL  TO  CLEAR  A  LINE. 

INPUTS: 

RA  =  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

IF  CC,  SUCCESS,  ELSE, 
ERROR  CODE  IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


000410 

000410  132764  000010  000041 

000416  001410 

000420  132764  000200  000041 

000426  001404 

000430  126427  000052  000001 

000436  001002 

000440 

000444 


CLENTL: 


10$: 


20$: 


BITS 

BEQ 

BITB 

BEQ 

CMPB 

BNE 

CALL 

RETURN 


#LP$MPT,L$PFG(R4) 

10$ 

#LP$UTR,L$PFG(R4) 

10$ 

L$TNM(R4),#1 

20$ 

NTLLIN 


MULTIPOINT  LINE  ? 

IF  EQ,  NO  -  CLEAR  IT 

IS  THIS  PART  OF  A  WILD  TRIB  OPERATION 

IF  EQ,  NO 

ELSE  YES,  IS  THIS  THE  LAST  TRIB  ? 

IF  NE,  NO  -  SKIP  THE  REQUEST 

ELSE,  PERFORM  NTL  CLEAR  LINE  FUNCTION 


J  5. 


CICH°D  -  Circuit  Change  Paramet  MACRO  V05.03b  Saturday  29-Jun-85  12:13  Page  11 


CICHPD  -  Circuit  Change  Paramet  MACRO  \/05.03b  Saturday  29-Jun-85 
TU<LIN  -  TUEAK  A  CIRCUIT'S  STATE 


l2;13 


Page  17 


673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
69A 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 


.S8TTL  TWKLIN  -  TWEAK  A  CIRCUIT'S  STATE 

**-TWKLIN-TUEAK  A  CIRCUIT'S  STATE 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  STATE  OF  CIRCUIT  WHEN  DLX 
IS  NOT  IN  THE  SYSTEM.  LEGAL  STATES  ARE  LIMITED  TO  "ON"  AND  "OFF 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA 
L$STA(R4)  =  NEW  STATE 

OUTPUTS: 

CIRCUIT  TURNED  ON  OR  OFF 
ERROR  RETURN  IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


002116 

002116  012700  177765 

002122  012764  000003  000072 

002130  122764  000000  000100 

002136  001003 

002140 

002144  000412 

002146  122764  000001  000100 

002154  001404 

002156  012700  177747 

002162  000261 

002164  000402 

002166 

002172 


TWKLIN: 

MOV 

#ME.CST,RO 

ASSUME  CIRCUIT  IS  IN  WRONG  STATE 

MOV 

#ME$CIR,L$PAR(R4) 

CMPB 

#MS$0N,L$STA(R4) 

TURN  CIRCUIT  ON  ? 

BNE 

20$ 

IF  NE,  NO 

CALL 

LINON 

ELSE  TURN  IT  ON 

BR 

40$ 

AND  RETURN 

20$: 

CMPB 

#MS$0FF,L$STA(R4) 

TURN  CIRCUIT  OFF  ? 

BEQ 

30$ 

IF  EQ,  YES  -  DO  IT 

MOV 

#HE.OPE,R0 

ELSE,  OPERATION  FAILED 

SEC 

■  •  ■ 

BR 

40$ 

30$: 

CALL 

LINOFF 

TURN  IT  OFF 

40$: 

RETURN 
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I$$RAR= 

I$$RDN= 

I. OFF  = 

KISAR.= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LCSEXT 

LCSINT 

LC$NTL= 

LC$OWN= 

LD$LP  = 

LF$MLT= 

LF$REA= 

LF$SEG= 

LF$SKP= 

LF$VR2= 

LF$ZER= 

LF.ACT= 

LF.BRO= 

LF.BUT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LINOFF 

LINON 

LLCRS  = 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  =: 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LO.CON 

LO.CSR 

LO.CTL 

LO.LIN 

LO.PAR 

LO.PRI 


000000 

000000 

00002A 

»♦«»**  GX 

177546 

177546 

000000 

000074 

000000 

000001 

000200 

000400 

000000 

040000 

000001 

100000 

000004 

000010 

000002 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

00241 4R 

0021 74R 

»♦**•♦  GX 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000006 

000006 

000014 

000004 

000010 

000010 


LO.SCR 

LO.STA 

LO.VCT 

LP$MPT= 

LP$MUX= 

LP$NXC= 

LP$TRB= 

LP$UNT= 

LP$UCN= 

LP$UDV= 

LP$WLD= 

LP$WTR= 

LP$WUN= 

LR.AST 

LR.CIR 

LR.CTL 

LR.EFN 

LR.LJN 

LR.PRM 

LR.PRO 

LR.STS 

LR.TCB 

LR.UNT 

LS$ACT= 

LSSBBT= 

LS$BLK= 

LS$BSA= 

LS$BSD= 

LS$BSI= 

LS$CHN= 

LS$CMB= 

LS$COS= 

LS$CUS= 

LS$DDT= 

LS$DEA= 

LS$DLM= 

LS$DLT= 

LS$DTE= 

LS$HBT= 

LS$HTM= 

LS$INA= 

LSSIND- 

LS$INI= 

LS$LCT= 

LS$LHB= 

LS$LOO= 

LS$MDT= 

LSIMRT^ 

LS$MWN= 

LS$MXB= 

LS$MXR= 

LS$MXW= 

LS$NMT= 

LS$NOR= 

LS$NTI= 

LS$NTL= 

LS$NUM= 


000014 

000015 

000012 

000010 

000004 

100000 

000002 

000001 

000040 

000020 

000360 

000200 

000100 

000026 

000002 

000004 

000004 

000002 

000030 

000002 

000000 

000002 

000005 

000040 

010000 

001000 

000001 

000002 

000004 

000001 

000002 

000004 

000004 

001000 

000100 

001004 

002000 

000010 

000400 

010000 

000010 

000020 

000040 

020000 

000002 

040000 

020000 

000020 

000040 

001000 

000020 

000040 

020000 

100000 

000200 

000001 

000100 


LS$0WN= 

000010 

LS$PLT= 

004000 

LS$PR0= 

010000 

LS$PVC= 

020053 

LS$RET= 

000200 

LS$SER= 

100000 

LS$STA= 

000002 

LS$SVC= 

000362 

LS$TAD= 

000020 

LS$TH1= 

000100 

LS$TH2= 

000200 

LS$TH3= 

000400 

LS$XMT= 

O^tOOOO 

LS.AST= 

100000 

LS.CEX= 

000001 

LS.CIR= 

000010 

LS.CXO= 

010000 

LS.CX5= 

000400 

LS.DLM= 

004000 

LS.ECH= 

001000 

LS.FDX= 

004000 

LS.HDX= 

010000 

LS.LIN= 

000003 

LS.LMC= 

000007 

LS.NTI= 

004000 

LS.ON  = 

000011 

LS.OPT= 

000400 

LS.PRO= 

000002 

LS.PUF= 

040000 

LS.TOP= 

002000 

LS.UNF= 

020000 

LS.X25= 

000012 

LS.11D= 

004000 

LX.CEX^ 

000004 

LX.L]N= 

000006 

LX.PRO= 

000005 

L$ACT 

000104 

LSBBT 

000114 

L$BLK 

000262 

L$BSA 

000122 

LIBSD 

000123 

L$BSI 

000124 

L$BUF 

000060 

L$CHN 

000054 

LSCMB 

000234 

L$COS 

000101 

LSCTB 

000053 

L$CTL 

000002 

LSCUS 

000260 

L$DDM 

000000 

L$DDT 

000106 

L$DEA 

000105 

L$DLT 

000110 

L$DTE 

000240 

LSDTEL 

000236 

LSDTEP 

000250 

L$FLG 

000064 

LSOPT 

000062 

MCSBMC 

001767 

LSOWN 

000102 

MCSBSC 

001766 

L$PAR 

000072 

HCSCAC 

001442 

L$PDV 

000055 

MCSCAP 

001440 

LSPFG 

000041 

MCSCCL 

001445 

LSPLT 

000112 

MCSCDC 

002045 

L$PRO 

000075 

MCSCDP 

001441 

L$PVC 

000004 

MCSCIF 

001465 

L$RET 

000256 

MCSCLD 

001464 

L$SCN 

000020 

MCSCOU 

100000 

L$SCR 

000166 

MCSCTL 

001454 

LSSER 

000230 

MCSCTR 

001452 

LSSLEN 

000074 

MCSCTS 

001453 

L$SLT 

000042 

MCSDOV 

002050 

L$SNM 

000046 

HCSLBR 

001750 

L$STA 

000' 00 

MCSLBS 

001751 

LSTAD 

000- 03 

HCSLDi 

001774 

L$TH1 

000'  30 

HCSLDO 

001775 

L$TH2 

000' 31 

MCSLDR 

001762 

L$TH3 

000'  32 

MCSLDS 

001763 

L$TNM 

000052 

MClLLB 

002021 

LSTPT 

000050 

MCSLLP 

002115 

L$TRB 

000040 

HCSLLR 

002007 

L$TYP 

000063 

MCSLOO 

000001 

L$UNT 

000003 

MCSLRB 

002020 

LSXCH 

000232 

HCSLRP 

002114 

L$XMT 

000120 

MCSLRR 

002006 

L$$ASG= 

000000 

MCSISI 

002032 

L$$DRV= 

000000 

MCSLST 

002033 

L$$P11= 

000001 

MCSLUP 

006072 
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CICHPD  CREATED  BY     MACRO     ON  29-JUN-85  AT   12:U 

SYMBOL  CROSS  REFERENCE 


I     8 

PAGE  8 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SF.PAC 

=  000020 

#5-73 

SF.REA 

=  000010 

#5-73 

SF.SER 

=  000001 

#5-73 

24-1137 

SF.SVC 

=  000002 

#5-73 

SF.UNL 

=  0000^0 

#5-73 

SLTMA 

=   »*♦**♦     GX 

13-437 

STAOFF 

002100  R 

13-496 

#16-662 

STAON 

001534  R 

13-490 

#14-521 

STASER 

001706  R 

13-494 

#15-592 

S$$BAS 

r  ****** 

7-107 

21-1008 

S.COST 

000001 

#5-73 

.20-882 

S.FLC 

000000 

#5-73 

13-372 

S.LEN 

000004 

#5-73 

19-822 

S.NMST 

000002 

#5-73 

13-377 

S.OWNR 

000003 

#5-73 

TH1TBL 

000252  R 

#8-139 

22-1045 

TH2TBL 

00026A  R 

#8-140 

22-1048 

TH3TBL 

000276  R 

#8-141 

22-1051 

TUKLIN 

002116  RG 

13-478 

#17-692 

TSFLAG 

00004A 

#5-68 

TSLIF 

000013 

#5-68 

TSLIFL 

000013 

#5-68 

TSLIFO 

000013 

#5-68 

TILIFS 

000013 

#5-68 

TSLIN 

000000 

#5-68 

TSLIPS 

000006 

#5-68 

T$LLD 

000012 

#5-68 

TSLLOC 

000045 

#5-68 

TSLLDL 

000012 

#5-68 

TSLLDO 

000012 

#5-68 

TSLLDS 

000012 

#5-68 

TSLLEN 

000046 

#5-68 

TSLOPR 

000002 

#5-68 

TSLTCL 

000024 

#5-68 

TSLTIM 

000026 

#5-68 

TSLTPR 

000014 

#5-68 

T$LTPS 

000020 

#5-68 

T$NAPL 

000004 

#5-68 

TSNFE 

000000 

#5-68 

TSNLEN 

000010 

#5-68 

T$NNUL 

000002 

#5-68 

TSNOPL 

000006 

#5-68 

TSNRNI 

000042 

#5-68 

TSNRPL 

000005 

#5-68 

TSNRUL 

000007 

#5-68 

TSNVR 

000001 

#5-68 

TSRPRI 

000040 

#5-68 

TSSVC 

000034 

#5-68 

T$T5 

000030 

#5-68 

♦12-303 

T$T6 

000032 

#5-68 

T.BTTC 

000074 

8-130 

r.DELT 

000056 

8-132 

24-1140 


13-449         .19-813 


20-883 


21-983 


.24-1137       .24-1140 


18-732 


.21-1002 


CICHPD 
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CICHPX  -  Circuit  Change  Paramet  MACRO  V05.05b  Saturday  29-Jun-85 
SETPVC  -  Set  PVC  parameters 
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176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 


.SBTTL  SETPVC  -  Set  PVC  parameters 

*♦*  SETPVC  -  Set  PVC  parameters 

INPUTS 

R4  -  Address  of  context  area 

OUTPUTS 

RO  -  Error  code 


000326  SETPVC: 

000326  03276A  157724  000076        BIT 

000334  001013  BNE 

000336  032764  157777  000076        BIT 

000344  001007  BNE 

000346  032764  020000  000075        BIT 

000354  001402  BEQ 

000356  CALL 

000362  10$:    RETURN 

000364  012700  177745         90$:    MOV 

000370  012764  Mim     000072        MOV 
000376  RETURN 


#~C<LS$PVC>,L$fLXCR4) 
90$ 

#*C<LS$LCT>,L$FLX(R4) 
90$ 

#LS$LCT,L$FLXCR4) 

10$ 

SETLCT 


#ME.GRO,RO 
#-1,L$PAR(R4) 


Check  for  valid  PVC  grouping 
Branch  if  bad  parameters 
Anything  other  than  COUNTER  T 
If  so,  can't  cope  just  yet 

Check  for  counter  timer  set 
Branch  if  not  required 
Set  counter  timer 


Indicate  grouping  error 
indicate  no  information 


IMER? 
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CKHPX  CREATED  BY     MACRO     ON  29-JUN-85  AT   12:15 

SYMBOL    CROSS   REFERENCE 
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PAGE   1 

CREF       OA.OO 


SYMBOL      VALUE 


REFERENCES 


CICHPX 

000200  RG 

#8-145 

CKCSTA 

000536  R 

10-220 

:kdsvc 

001012  R 

8-152 

:$PORT 

OOOOU 

15-394 

E$NBR 

OOOOU 

#5-67 

ESNBS 

000020 

#5-67 

ESNCR 

000034 

#5-67 

:$NCS 

000036 

#5-67 

E$N1C 

000044 

#5-67 

ESNLEN 

000050 

#5-67 

ESNLLA 

000012 

#5-67 

ESNLNK 

000000 

#5-67 

ESNHL 

000040 

#5-67 

ESNMR 

000024 

#5-67 

ESNMS 

000030 

#5-67 

ESNNOD 

000002 

#5-67 

E$NRT 

000042 

#5-67 

ESNRTP 

000005 

#5-67 

ESNSEG 

000010 

#5-67 

ESNTIM 

000046 

#5-67 

ESNUSE 

000004 

#5-67 

ESSTRT 

000006 

*5-67_ 

FNDCTR 

=  *»»«*»  Gx 

10-223 

H$PTB 

000020 

15-397 

KISAR6 

=  *•««**  GX 

10-218 

LCSNTL 

=  000200 

#6-104 

LCSOWN 

=:  000400 

#6-104 

LFSMLT 

=  040000 

#6-104 

LFSREA 

=  000001 

#6-104 

LFSSEG 

=  100000 

#6-104 

LFSSKP 

=  000004 

#6-104 

LFtVR2 

=  000010 

#6-104 

LFSZER 

=  000002 

#6-104 

LF.ACT 

=  100000 

#5-72 

LF.BRO 

=  000400 

#5-72 

LF.BWT 

=  000007 

#5-72 

LF.ENA 

=  002000 

#5-72 

LF.LPB 

=  001000 

#5-72 

LF.MDC 

=  000100 

#5-72 

LF.MFL 

=  004000 

#5-72 

LF.MTP 

=  000020 

#5-72 

LF.PAC 

=  000200 

#5-72 

LF.RDY 

=  040000 

#5-72 

LF.REA 

=  010000 

#5-72 

LF.SER 

=  000040 

#5-72 

LF.TIM 

=  000010 

#5-72 

LF.UNL 

=  020000 

#5-72 

LF.X2P 

=  000000 

#5-72 

LN.CLO 

=  000000 

#5-72 

LN.DUM 

=  000005 

#5-72 

LN.LOA 

=  000004 

#5-72 

LN.LOO 

=  000003 

#5-72 

#11-260 
#14-360 


14-363 
*10-227         •10-238 


14-362 


♦14-370 


15-391 


♦15-403 


11-270 


11-262 


CICHPX 


CREATED  BY     MACRO     ON  29-JUN-85  AT   12:15 


PAGE   2 


J  10 


CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85 
Local  data 


I  11 

12:1 
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85 
84 
85 
86 
87 
88 

89  000000 

90  000002 

91  OOOOOA 

92  000006 

93  000010 

94  000012 

95  OOOOU 

96  000016 

97  000020 
98 

99 
100 
101 


.SBTTL  Local  data 


000001 
000002 
000004 


;  LOCAL 

DATA 

NODE: 

.BLKW   1 

OWNER: 

.BLKW 

SVCMAP: 

.BLKW 

SVCADD: 

.BLKW 

PVCPRT: 

.BLKW 

HTIM: 

.BLKW 

LTIM: 

.BLKW 

BLKING: 

.BLKW 

FLAG: 

.BLKW 
FL.SVC  = 

1 

FL.PVC  = 

? 

FL.INC  = 

4 

.EVEN 

ADJACENT  NODE  ADDRESS 

RAD50  OWNER  PROCESS  NAME 

APR  BIAS  FOR  SVC  DESCRIPTOR 

VIRTUAL  ADDRESS  OF  SVC  DESCRIPTOR 

PVC  PORT  NUMBER 

HELLO  TIMER 

LISTEN  TIMER 

Blocking  status 

LOCAL  FLAGS  WORD 

DLM  CIRCUIT  IS  AN  SVC 

DLM  CIRCUIT  IS  A  PVC 

DLM  CIRCUIT  IS  INCOMING  SVC 
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CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85 
SETNOD  -  Put  node  id 


i-^? 
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6A7 
6A8 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 

661  002266 

662  002272 
663 

66A 
665 

666  002274 

667  002300 

668  002306 
669 

670 
671 
672 

673  002310 

674  002312 

675  002316 

676  002322 

677  002326 

678  002332 

679  002334 
680 

681  002336 
682 

683  002342 

684  002344 

685  002346 

686  002352 

687  002354 

688  002360 

689  002362 

690  002366 

691  002370 

692  002376 

693  002402 

694  002404 

695  002406 

696  002410 

697  002412 

698  002414 

699  002420 
700 

701  002424 
7^2   002430 


010201 


016700 
032760 
001415 


010146 
042716 
017700 
016000 
042700 
020026 
001002 


.SBTTL  SETNOD  -  Put  node  id 
♦♦-SETNOD  -  Put  node  id 


Inputs: 
Output: 


SETNOD:  SAVRG 
MOV 


R2    =  node  address 

R3    =  address  of  next  byte  in  message 

(fiS)  =  parameter  id  (JSR  R5) 

R3  is  updated.  The  node  id,  adjusted  for 

the  version  of  NICE  spoken  by  the  connected  NCP, 

is  put  in  the  response. 


<R0,R1> 
R2,R1 


;  save  registers 
;  copy  node  address 


Phase  4  command  node:  return  16  bit  node  address 

OOOOOOG  MOV    CURCTX.RO  ;  push  current  context  address 

OOOOOOC  OOOOOOG        BIT     #CF$VR2! CF$VR3,C$FLAG(R0)  ;  connected  to  phase  3  NCP  ? 
BEQ     10$  ;  if  EQ,  no 

Phase  3  command  node:  mask  area  if  target  node  in  executor  area, 
otherwise  return  16  bit  node  address. 


001777 
OOOOOOG 
000014 
001777 


042701  176000 


112523 
112523 
112723 
010400 
062700 
005010 


103403 
112763 
112723 
110123 
000301 
110123 
005710 
001404 
112723 


000205 


000301 
000072 


000302  M7171 
000002 


000100 


MOV  R1,-(SP) 

BIC  #1777, (SP) 

MOV  aDECPT,RO 

MOV  D$LNUM(RO),RO 

BIC  #1777, RO 

CMP  RO,(SP)+ 

BNE  10$ 

BIC  *»C1777,R1 

10$:    Move  (fi5)+,(R3)t 

M0V8  (R5)+,(R3)r 

MOVB  #mt$codimt$hul:i,(R3)+ 

MOV  R4,R0 

ADD  #L$SCR,R0 

CLR  (RO) 

CALL  HAPADD 

BCS  20$ 

MOVB  #MT$C0DIMT$MULI2,-1(R3) 

20$:    MOVB  #2,Cfi3)t 

MOVB  R1,(R3)+ 

SWAB  R1 

MOVB  R1,(R3)+ 

TST  (R6) 

BEQ  30$ 

MOVB  #MT$ASC,(R3)t 

CALL  SETNAM 

30$:    RESRG  <R1,R0> 

RTS  R5 


copy  address 

isolate  area 

point  to  DECnet  home  block    ;  RJKIO 

get  exec  address 

area  only 

same  area  as  executor  ? 

br  if  no 

else  return  as  area  zero 

low  byte  of  parameter  number 
hi  byte  of  parameter  number 
coded  multiple  field  (default  of  1) 
point  to  scratch  buffer 

initialize  buffer  to  unique  value  (0) 

map  the  address  into  a  name 

if  CS,  no  name  found 

else,  2  fields  to  return 

set  address  data  type  (2  bytes) 

set  low  byte  of  address 

set  high  byte 

was  a  name  found  ? 

if  EQ,  no  -  return 

else,  yes  -  set  name  data  type 

set  name  into  buffer 

;  restore  registers 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

AT$UP 

=  000010 

14-533 

15-632 

A$CIR 

000003 

15-634 

A$LEN 

000004 

15-629 

AtNlD 

000000 

14-535 

15-637 

A$TMI 

000002 

14-538 

15-640 

A$TYP 

000002 

14-533 

15-632 

BCDA5C 

=      ****** 

GX 

19-867 

BF.TRC 

=  000004 

#6-74 

BITO 

=  000001 

#7-81 

BIT! 

=  000002 

#7-81 

BIT10 

=  002000 

#7-81 

BIT11 

=  004000 

#7-81 

BIT12 

=  010000 

#7-81 

BIT13 

=  020000 

#7-81 

BITU 

=  040000 

#7-81 

B1T15 

=  100000 

#7-81 

BIT2 

=  000004 

#7-81 

BIT3 

=  000010 

#7-81 

BIT4 

=  000020 

#7-81 

BITS 

=  000040 

#7-81 

BIT6 

=  000100 

#7-81 

BIT? 

=  000200 

#7-81 

BITS 

=  000400 

#7-81 

BIT9 

=  001000 

#7-81 

BLMNG 

000016 

R 

#8-96 

9-234 

B$10 

000003 

#6-81 

B$11 

000004 

#6-81 

B$12 

000005 

#6-81 

B$5 

000000 

#6-81 

B$6 

000001 

#6-81 

B$7 

000002 

#6-81 

B$7S10 

000006 

#6-81 

CF$VR2 

-      ****** 

GX 

16-667 

CF$VR3 

=      ****** 

GX 

16-667 

CIRECH 

000022 

RG 

#9-122 

CURCTX 

~   ****** 

GX 

16-666 

CSFLAG 

-   ****** 

GX 

16-667 

DECPT 

r     ****** 

GX 

9-174 

14-546 

DF.CRC 

=  000010 

#6-74 

DF.FOC 

=  000020 

#6-74 

OF. RAN 

=  000040 

#6-74 

df.unk: 

=  000100 

#6-74 

DMPCTB 

-    ****** 

GX 

11-394 

DSLNUM 

000014 

9-175 

16-676 

DSNBEA 

000056 

14-562 

DSNBRA 

000054 

14-561 

DSNLN 

000030 

14-547 

14-563 

E$NBR 

000014 

#6-63 

ESNBS 

000020 

#6-63 

ESNCR 

000034 

#6-63 

ESNCS 

000036 

#6-63 

E$NIC 

000044 

#6-63 

*13-479         413-482 


14-560 


16-675 
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55 
56 
57 
58 
59 
60 
61 

62  000000 

63  000000 

64  000000 
65 


.SBTTL  MACRO  CALLS  AND  LOCAL  DEFINITIONS 
MACRO  LIBRARy  CALLS 


.MCALL 
.MCALL 

MANDF$ 
SLTDFS 
PDVDF$ 


SAVMAP,HAP,BIAS,RESMAP,SAVRG,RESRG 
MANDFS, SLTDFS, PDVDF$,CIRCX$ 


DEFINE  NETWORK  MANAGEMENT  SYMBOLS 
DEFINE  SLT  OFFSETS 
DEFINE  PDV  OFFSETS 
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CREf       OA.OO 


LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRl 

LPSMPT 

LPSMUX 

LPSTRB 

LP$UNT 

LPSWCN 

LPSWDV 

LPSULD 

LPSWTR 

LPSWUN 

LSADJ 

LtBUF 

LSCHN 

L$COU 

LSCTB 

LSCTL 

LSDDM 

L$FLG 

LSFLX 

LSLEN 

LSLTM 

L$MSG 

LSMTYP 

LSNAM 

LSNlEN 

LSNOD 

LSNXT 

LSOPT 

LSPAR 

L$PDV 

LSPFG 

LSPLS 

LSPRO 

L$PVC 

L$SCN 

L$SCR 

LSSLEN 

LISLT 


000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000010 
000004 
000002 
000001 
000040 
000020 
000360 
000200 
000100 
000110 
000060 
000054 
000114 
000053 
000002 
OOOOOC 
000064 
000070 
000124 
000070 
000056 
000067 
000000 
:  000020 
000112 
000044 
000062 
000120 
000055 
000041 
000116 
000067 
000004 
000020 
000072 
000066 
000042 


REFERENCES 

#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#7-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 


7-69 
7-69 

7-69 
7-69 

10-167 


6-69 


6-69 


10-138 
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S2.CT0= 

S2.CTS= 

S2.ELF= 

S2.FLF= 

S2.1RQ= 

S2.0BF= 

S2.0RQ= 

S2.PCU= 

S2.RCU= 

S2.5RQ= 

S2.UAL= 

S2.WRA= 

S2.WRB= 

S3.ACR= 

S3.CTC= 

S3.F[)X  = 

S3.1CE= 

S3.MHE= 

S3.NEC= 

S3.PPT= 

S3.PTH= 

S3.RAL= 

S3.RES= 

S3.RUB= 

S3.TAB= 

S3.TME= 

S3.TSY= 

S3.8BC= 

S4.ABD= 

SA.ANI= 

S4.AV0= 

S4.BLK= 

SA.DEC= 

SA.DLO= 

S4.EDT= 

S4.HFF= 

S4.HFL= 

S4.HHT= 

S4.HSY= 

S4.RGS= 

S4.SFC= 

S4.\/FL  = 

S5.ABP= 


OAOOOO 

100000 

001000 

OOOAOO 

000200 

004000 

000100 

010000 

000001 

OOOOAO 

000010 

000006 

000002 

000001 

000004 

000200 

001000 

000400 

000020 

020000 

004000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 

004000 

000100 

010000 

000020 

000007 

000040 

000200 

020000 

040000 

000010 

100000 


ABS. 


177776 
000224 
Errors  detected: 


000 
001 
0 


S5.BCC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ITI= 
S5.0XF= 
S5.RP0= 
S5.SU1= 
S5.TMM= 
S5.VER= 
1"  -'0F  = 
S5.X0N= 
S6.E10= 
S6.RDI= 
S6.RLU= 
T$$KMG= 
T$$MIN= 
UC.ALG= 
UC.ATT= 
UC.KIL= 
UC.LGH= 
UC.NPR= 
UC.PUF= 
UC.QUE= 
UD.UNS= 
UR.160= 
UD.200= 
UD.556= 
UD.625= 
UD.8K  = 
UD.800= 
UM.CLI= 
UM.DSB= 
UM.NBR= 
UM.OVR= 
US.ABO= 
US.BSP= 
US.BSY= 
US.FOR= 
US.FRK= 
US.KPF= 
US.LAB= 
US.MDE= 


020000 
040000 
000014 
000020 
000100 
000040 
002000 
000001 
000002 
010000 
000004 
000010 
000400 
100000 
001000 
000000 
000000 
000200 
000010 
000004 
000003 
000100 
000020 
000040 
000000 
000004 
000001 
000002 
000005 
000006 
000003 
000036 
000200 
000400 
000001 
000001 
000002 
000200 
000040 
000002 
000001 
000O04 
000002 


(RW,J,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


»»•  Assembler  statistics 


Work   file  reads:  227 

Work   file  writes:  154 

Size  of  work  file:  30160  Words  (  118  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 


US.MDM= 

US.MNT= 

US.OfL= 

US.PUB= 

US.PWf= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.UCK= 

UU.ABO= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

UU.RCT^ 

UU.RDY= 

UU.SER= 

UU.S]0= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKTr 

U.BUF 

U.CBF  = 

U.CLJ 

U.CNT 

U.COTQ 

U.CTCB 

U.CTL 

U.CTYP 

U.CW1 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 


000020 
000100 
000001 
000004 
000010 
000002 
000001 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
000062 
000032 
000066 
000064 
000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 


U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.HLUN= 

U.MUP 

U.OWN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.7FLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.THT] 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNT1= 

U.USVR= 

U.UT1L= 


500040 
00102 
00032 


000040 
000050 
177772 
177776 
000112 
000113 
000110 
000002 
000034 
000020 
000076 
000074 
000036 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 
000056 
000050 
000046 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 


U.VCB  = 

U.VSER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJ1= 

U2.DZ1= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LWC= 

U2.L3S= 

U2.L8S= 

U2.NEC= 

U2.PRV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR  = 

V$$CTR= 

W.BAIT 

W.BFPD 

W.BHVR 

W  BL6H 

W.BLPD 

W.BLVR 

W.BNPD 

W.BOFF 

W.BPCB 

W.BSIZ 

X$$DBT= 

$MBLUN= 

$SAVRG= 

$$$SYS= 

$$$SYX= 


000034 
000120 
000070 
060020 
002000 
100000 
040000 
000100 
001000 
010000 
000040 
000400 
000001 
000004 
010000 
004000 
000010 
020000 
100000 
000004 
000200 
000002 
010000 
100000 
040000 
020000 
000100 
001000 
000006 
000014 
000004 
000020 
000016 
000002 
000015 
000012 
000000 
00001c 
000000 
****** 
****** 

004374 
000000 


GX 
GX 
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CREF   04.00 


LSSLCT 

LSSLMB 

LSSLOO 

LSSMDT 

LSSMRT 

LSSMWN 

LSSMXB 

LSSMXR 

LSSMXU 

LSSNMT 

LSSNOR 

LSSNTI 

LSSNTL 

LSSNUM 

LSSOUN 

LSSPLT 

LSSPRO 

LSSPVC 

LSSRET 

LSSStR 

LStSTA 

LSSSVC 

LSSTAD 

LSSTHI 

LS$TH2 

LS$TH3 

LSSXMT 

LS.AST 

LS.CEX 

LS.CIR 

LS.CXO 

LS.CX5 

LS.DLM 

LS.ECH 

LS.FDX 

LS.HDX 

LS.LIN 

L5.LMC 

LS.NTI 

LS.ON 

LS.OPT 

LS.PRO 

LS.PWF 

LS.TOP 

LS.UNF 

LS.X25 

LS.110 

LX.CEX 

LX.LIN 

LX.ORO 

LSACT 

L$BBT 


=  020000 
=  000002 
=  OAOOOO 
=  020000 
=  000020 
=  000040 
=  001000 
=  000020 
=  OOOOAO 
=  020000 
=  100000 
=  000200 
=  000001 
=  000100 
=  000010 
=  004000 
=  010000 
=  020053 
=  000200 
=  100000 
=  000002 
=  000362 
=  000020 
=  000100 
=  000200 
=  000400 
=  040000 
=  100000 
=  000001 
=  000010 
=  010000 
=  000400 
=  004000 
=  001000 
=  004000 
=  010000 
=  000003 
=  000007 
=  004000 
=  000011 
000400 
=  000002 
=  040000 

=  oo:joo 

=  020000 
=  000012 
=  004000 
=  000004 
=  000006 
=  000005 
000104 
000114 


REFERENCES 

#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 

»t-n 

#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#5-o4 
#5-64 
#5-64 
#5-64 

115-6', 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#6-72 
#6-72 


6-72 


6-72 
6-72 


6-72 


6-72 


6-72 
6-72 


6-72 


6-72 
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Context  area  definition 

.SBTTL  Context  area  definition 


71 
72 
73  000000 


OOOOOA 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 

000040 

000041 

000042 

000044 

000046 

C00050 

000052 

000053 

000054 

000055 

000056 

000060 

000062 

000063 

000064 

000066 

000070 

000072 

000074 

000075 

000075 

000076 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000110 

000112 

000114 

000116 

000120 

000122 

000123 

000124 


000020 


CICCXS  LIST 

;  CONTEXT  AREA  OFFSET  DEFINITIONS 

.ASECT 
.  =  0 
LSNLEN  =  16. 


MAXIMUM  NAME  LENGTH 


The  offsets  LSNAM  to  L$PDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


L$NAH 
LSDDM 
L$CTL 
L$UNT 
LSPVC 

LSSCN 

LSTRB 

L$PFG 

L$SLT 

LSNXT 

L$SNM 

LSTPT 

L$TNM 

L$CTB 

L$CHN 

LSPDV 

L$MSG 

LSBUF 

L$OPT 

L$TYP 

L$FLG 

L$FL1 

L$FL2 

LSPAR 

LSSLEN 

L$PR0: 

LSMTYP 

L$FLX 

L$STA 

LSCOS 

L$OWN 

L$TAD 

L$ACT 

L$DEA 

L$DDT 

LSDLT 

L$PLT 

LSBBT 

L$NMT 

L$XMT 

L$8SA 

LSBSD 

L$8SI 


.BLKW  1  ;  DEVICE  NAME 

.BLKB  1  ;  CONTROLLER  NUMBER 

.BLKB  1  ;  UNIT  NUMBER 

.8LKW  1  ;  3RD  WORD  OF  PVC  NAME 

.  =  0+L$NLEN    ;  SPACE  FOR  EXPANDED  CIRCUIT  NAME 

.BLKB  LSNLEN  ;  CURRENT  NAME  IN  WILDCARD  SCAN 

.BLKB  1  ;  TRIBUTARY  NUMBER 

.BLKB  1  ;  PARSE  FLAGS 

.BLKW  1  ;  Current  SLT/PVC  address 

.BLKW  1  ;  Pointer  to  next  SLT/PVC  address 

.BLKW  1  ;  REMAINING  NUMBER  OF  SYSTEM  LINES 

.BLKW  1  ;  Current  tributary  pointer  (-1  for  PSD 

.BLKB  1  ;  REMAINING  NUMBER  OF  TRIBUTARIES 

.BLKB  1  ;  CURRENT  TRIBUTARY  NUMBER 

.BLKB  1  ;  Channel  number  /  X.25  port  number  and 

.BLKB  1  ;  ...  PDV  assigned 

.BLKW  1  ;  ERROR  MESSAGE  STRING  POINTER 

.BLKW  1  ;  SAVED  BUFFER  POINTER 

.BLKB  1  ;  SAVED  OPTIONS  BYTE 

.BLKB  1  ;  CIRCUIT-ID  FORMAT  TYPE 

.BLKW  1  ;  FLAG  WORD  (FOR  COMMAND) 

.BLKW  1  ;  FLAG  WORD  (FOR  COMMAND) 

.BiKW  1  ;  FLAG  WORD  (FOR  CURRENT  CIRCUIT) 

.BLKW  1  ;  CURRENT  PARAMETER  TYPE 

.BLKB  1  ;  Significant  length  of  circuit  name 

;  Line  protocol 

.BLKB  1  ;  Network  management  circuit  type 

.BLKW  1  ;  Flags  word  for  X.25  circuit  commands 

.BLKB  1  ;  CIRCUIT  STATE 

.BLKB  1  ;  CIRCUIT  COST 

.BLKB  1  ;  CIRCUIT  OWNER  (PDV  INDEX) 

.BLKB  1  ;  TRIBUTARY  ADDRESS 

.BLKB  1  ;  MULTIPOINT  ACTIVE  RATIO 

.BLKB  1  ;  MULTIPOINT  DEAD  RATIO 

.BLKW  1  ;  DMP  DEAD  TIMER 

.BLKW  1  ;  DMP  DELAY  TIMER 

.BLKW  1  ;  DMP  POLL  TIMER 

.BLKW  1  ;  DMP  BABBLE  TIMER 

.BLKW  1  ;  DMP  NORMAL  TIMER 

.BLKW  1  ;  DMP  TRANSMIT  TIMER 

.BLKB  1  ;  DMP  ACTIVE  BASE 

.BLKB  1  ;  DMP  DYING  BASE 

.BLKB  1  ;  DMP  INACTIVE  BASE 
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At$CHK= 

000000 

LF$MLT= 

040000 

LR.EFN 

000004 

LS.CXO= 

018925 

L$MXB 

000133 

A$tCPS= 

000000 

LF$REA= 

000001 

LR.LIN 

000002 

LS.CX5= 

000400 

L$MXR 

000253 

A$$PRI= 

000000 

Lf$SEG= 

100000 

LR.PRM 

000030 

LS.DLH= 

004000 

L$HXW 

000252 

A$$TRP= 

000000 

LF$SKP= 

000004 

LR.PRO 

000002 

LS.ECH= 

001522 

L$NAM 

000000 

CI  CHOP 

W  W  V  w  v 

0001 3ARG 

LF$VR2= 

000010 

LR.STS 

000000 

LS.FDX= 

004000 

L$NLEN= 

000020 

CICHPX= 

»***««  GX 

LF$ZER= 

000002 

LR.TCe 

000002 

LS.HDX= 

010000 

L$NI*IT 

000116 

CLENTL= 

******  GX 

LF.ACT= 

100000 

LR.UNT 

000005 

LS.LIN= 

000003 

LSNTI 

000256 

CLNUP 

000552R 

LF.BRO- 

000400 

LS$ACT= 

000040 

LS.LHC= 

000007 

LSNTL 

000134 

C$$CKP= 

000000 

LF.BUT= 

000007 

LS$BBT= 

010000 

LS.NT1= 

004000 

LJNUM 

000240 

C$$ORE= 

000^00 

LF.ENA= 

002000 

LS$BLK= 

001000 

LS.ON  = 

000011 

LSNUML 

000236 

C$$RSH= 

17756A 

LF.LPB= 

001000 

LS$BSA= 

000001 

LS.OPT= 

000400 

L$NXT 

000044 

DISTBL 

OOOOOOR 

LF.HDC= 

000100 

LS$BSD= 

000002 

LS.PRO= 

000002 

L$OPT 

000062 

D1STB1 

000056R 

LF.HFL= 

004000 

LS$BS]= 

000004 

LS.PWF= 

040000 

LSOUN 

000102 

DSPTCH 

0004AOR 

LF.MTP= 

000020 

LS$CHN= 

000001 

LS.TOP= 

002000 

LSPAR 

000072 

D$$BUG= 

1775U 

LF.PAC= 

000200 

LS$CMB= 

000002 

LS.UNF= 

020000 

L$PDV 

000055 

OS$ISK= 

000000 

LF.RDY= 

040000 

LS$C0S= 

000004 

LS.X25= 

000012 

LSPFG 

000041 

D$$L11= 

000001 

LF.REA= 

010000 

LS$CUS= 

000004 

LS.11D= 

004000 

L$PLT 

000112 

D$$YNC= 

000000 

LF.SER= 

000040 

LS$DDT= 

001000 

LX.CEX= 

000004 

L$PR0 

000075 

D$$YNM= 

000000 

LF.TIM= 

000010 

LS$DEA= 

000100 

LX.LIN= 

000006 

LSPVC 

000004 

E$NBR 

oooou 

LF.UNL= 

020000 

LS$DLM= 

001004 

LX.PRO= 

502925 

L$RET 

000256 

ESNBS 

000020 

LF.X2P= 

000000 

LS$DLT= 

OO2O0O 

L$ACT 

000104 

LSSCN 

000020 

ESNCR 

00003A 

LN.CLO= 

000000 

LS$DTE= 

000010 

L$8BT 

000114 

LSSCR 

5221^6 

ESNCS 

000036 

LN.DUH= 

000005 

LS$HBT= 

000400 

LSBLK 

022?^? 

L$SER 

000230 

E$NIC 

000044 

LN.L0A= 

000004 

LS$HTM= 

010000 

L$BSA 

000122 

LSSLEN 

000074 

ESNLEN 

000050 

LN.LOO= 

000003 

LS$JNA= 

000010 

LSBSD 

000123 

L$SLT 

000042 

ESNLLA 

000012 

LN.OAU= 

000003 

LS$JND= 

000020 

L$BSI 

002F1 

L$SNM 

000046 

ESNLNK 

000000 

LN.OFF= 

000001 

LS$INI= 

000040 

L$BUF 

000060 

LSSTA 

000100 

ESNML 

000040 

LN.ON  = 

000000 

LS$LCT= 

020000 

LSCHN 

000054 

L$TAD 

000103 

E$NMR 

000024 

LN.OOP= 

000004 

LS$LHB= 

000002 

L$CHB 

000234 

L$TH1 

000130 

ESNMS 

000030 

LN.OPE= 

000001 

LS$L00= 

040000 

LSCOS 

000101 

L$rH2 

000131 

E$NNOD 

000002 

LN.REF= 

000002 

LS$MDT= 

020000 

LSCTB 

000053 

L$TH3 

000132 

ESNRT 

000042 

LN.SER= 

000002 

LS$MRT= 

000020 

L$CTL 

000002 

L$TNM 

000052 

ESNRTP 

000005 

LN.STA= 

000017 

LS$MWN= 

000040 

L$CUS 

000260 

L$TPT 

000050 

ESNSEG 

000010 

LN.SUB= 

000360 

LS$«X6= 

001000 

L$DDM 

000000 

LSTRB 

000040 

ESNTIM 

000046 

LN.TRI= 

000006 

LS$MXR= 

000020 

L$DDT 

000106 

L$TYP 

000063 

ESNUSE 

000004 

LO.CON 

000006 

LS$MXU= 

000040 

LSDEA 

000105 

L$UNT 

000003 

ESSTRT 

000006 

LO.CSR 

000006 

LS$NMT= 

020000 

LSDLT 

022112 

L$XCH 

000232 

E$$XPR= 

000000 

LO.CIL 

000014 

LS$N0R= 

100000 

L$DTE 

000240 

L$XMT 

000120 

FHTLIN= 

«♦*♦**  GX 

LO.LIN 

000004 

LS$NT]= 

000200 

LSDTEL 

000236 

L$$ASG= 

000000 

FNDCTR 

000622RG 

LO.PAR 

000010 

LS$NTL= 

000001 

LSDTEP 

000250 

L$$DRV= 

000000 

F$$LVL= 

000001 

LO.PRI 

000010 

LS$NUM= 

000100 

L$FLG 

000064 

L$$P11= 

000001 

G$$TPP= 

000000 

LO.SCR 

000014 

LS$OUN= 

000010 

LSFLX 

000076 

L$$11R= 

000000 

G$$TSS= 

000000 

LO.STA 

000015 

LS$PLT= 

004000 

L$FL1 

005566 

L.COST 

000015 

G$$TTK= 

000000 

LO.VCT 

000012 

LS$PR0= 

010000 

L$FL2 

000070 

L.CTL 

000012 

G$$WRD= 

000000 

LP$MPT= 

000010 

LS$PVC= 

020053 

LSHBT 

000254 

L.CVA 

177776 

I$$RAR= 

000000 

LP$MUX= 

000004 

LS$RET= 

000200 

L$HTM 

000226 

L.DDM 

000002 

I$$RDN= 

000000 

LP$NXC= 

100000 

LS$SER= 

100000 

LSINA 

000125 

L.DDS 

000004 

K1SAR6= 

»♦*«**  GX 

LP$TRB= 

000002 

LS$STA= 

000002 

L$IND 

0('0126 

L.DLC 

000003 

K$$CNT= 

177546 

LP$UNT= 

000001 

LSSSVC- 

000362 

LSINI 

000127 

L.DLM 

000006 

K$$CSR= 

177546 

LP$UCN= 

000040 

LSSTAD 

^0020 

LSLCT 

555??^ 

L.DLS 

000010 

K$$LDC= 

000000 

LP$UDV= 

000020 

LS$TH1= 

1100 

L$LEN 

000264 

L.FLG 

000000 

*C$$TPS  = 

000074 

LPSWLD: 

000360 

LS$TH2= 

0. J200 

L$LMB 

000234 

L.KRBA 

000016 

LCirXT 

000000 

LP$WTR= 

000200 

LS$TH3= 

000400 

L$LTM 

5S2??9 

L.LEN  : 

000022 

LCSINT 

000001 

LPSWUN= 

000100 

LS$XMT= 

040000 

L$MR1 

000253 

L.MPF 

9222?^ 

LC$NTL= 

000200 

LR.AST 

000026 

LS.AST= 

100000 

L$MSG 

000056 

L.NMST 

000020 

LC$OWN= 

000400 

LR.CIR 

000002 

LS.CEX= 

000001 

LSMTYP 

0229^5 

L.NSTA 

000014 

LD$LP  = 

000000 

LR.CTL 

000004 

LS.CIR= 

000010 

L$MWN 

000252 

L.OWNR 

000021 
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MACRO  NAME 

REFERENCES 

BIAS 

#6-60 

13-A18 

CALL 

9-180 

9-184 

CICCXS 

#6-60 

7-73 

CTRDFS 

#6-60 

6-6A 

Aman 

#6-60 

6-65 

"lAP 

#6-60 

13-409 

MTLDFS 

#6-60 

6-66 

^DVDFS 

#6-61 

6-67 

^ESRG 

#6-61 

12-365 

RETURN 

9-261 

10-290 

SAVRG 

#6-61 

12-356 

SLTDFS 

#6-61 

6-68 

XPDDBI 

#6-61 

6-69 

9-186  9-198  9-204  9-211 


13-415 


11-331  12-366  13-428 


9-254 


10-282 


10-288 


12-363 


**F1LE«*ID»»C!CHPD 
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208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 

226  OO0A46 

227  0O0A46 

228  000A50 

229  000456 

230  000464 

231  000472 

232  000474 

233  000476 

234  000502 

235  000506 

236  000510 

237  000514 

238  000516 

239  000522 

240  000526 
241 

242 

243 

244  000530 

245 

246 

247 

248  000536 

249  000540 

250  000544 
251 

252 

253 

254  000546 

255 

256 

257 

258  000554 

259  000560 

260  C00562 

261  000564 
262 

263 
264 


.SBTTL  NTLLIN  -  PERFORM  NTL  SET/CLEAR  LINE  FUNCTIONS 

"**-NTLLIN-PERFORM  NTL  SET/CLEAR  LINE  FUNCTIONS 

THIS  ROUTINE  MANAGES  THE  SEND/RECEIVE  INTERFACE  TO  NTL  TO  SET 
AND  CLEAR  LINES. 

INPUTS: 

R4  =  POINTER  TO  CONTEXT  AREA 

OUTPUTS: 

IF  CC,  SUCCESS,  ELSE, 
ERROR  CODE  !N  RO 

REGISTERS: 

R4,   R5  ARE   PRESERVED 


NTLLIN: 


016464 
116464 
116464 
010400 
010402 
062700 
062704 
010403 
012701 
012023 


103004 


000000     000136 

000002  000140 

000003  000141 


000134 
000166 


000015 


5$: 


SAVRG 
MOV 

Move 
wove 

MOV 

MOV 

ADD 

ADD 

MOV 

MOV 

MOV 

SOB 

CALL 

BCC 


<fi4> 

L$DDM( 

L$CTL( 

L$UNT( 

R4,R0 

R4,R2 

#L$NTL 

#L$SCR 

R4,R3 

#13. ,R 

(R0)+,(R3)t 

Rl,5$ 

NTLSND 

10$ 


,  SAVE  R4 
R4),L$NTL+LR.LIN(R4)  ;  SET  LIN  DDM  NAME 
R4),L$NTL+LR.CTL(R4)  ;  SET  CONTROLLER  NUMBER 
R4),L$NTL+LR.UNTCR4)  ;  SET  UNIT  NUMBER 

COPY  CONTEXT  BLOCK  ADDRESS 


,R0 
,R4 


R1 


012762  000000'  000056 


.IF  NDF  R$$PRO  ;  PRO/DECNET 
MOV     #INSMSG,L$MSG(R2) 
.ENDC   ;  NDF  R$$PRO 


POINT  TO  NTL  MESSAGE 

POINT  TO  SCRATCH  SEND  BUFFER 

SET  13.  WORDS  TO  MOVE 

HOVE  MESSAGE  INTO  SEND/RECEIVE  BUFFER 

SEND  IT  TO  NTL 
IF  CC,  CONTINUE 


ELSE,  SET  "INSTALLED"  ERROR 


000406 
005764 
100006 


000004 


10$: 


012762     000035'  000056 

012700     177747 
000261 


20$: 
30$: 


20$ 

4Cfi4) 

30$ 

R$$PfiO  ;  PRO/DECNET 

#NTLMSG,L$HSG(R2) 

;  NDF  R$$PRO 

*ME.OPE,R0 

<R4> 


BR 

TST 

BPL 

.IF  NDF 

MOV 

.ENDC 

MOV 
SEC 
RESRG 
RETURN 

.ENDC   ;  NDF  R$$11S  t   S$$BAS  8  R$$RTR 


AND  RETURN 

DID  THE  NTL  FUNCTION  SUCCEED 

IF  PL,  SUCCESS 


ELSE,  NTL  FUNCTION  FAILED 


SAY  OPERATION  FAILED 
RETURN  UITH  ERROR 
RESTORE  R4 
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708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722  00217A 

723 

724 

725 

726  002174 

727  002200 

728  002206 

729  002212 

730  002216 

731  002220 

732  002224 

733  002230 

734  002232 

735  002236 

736  002242 
737 

738 
739 

740  0022^4 

741  002250 

742  002252 

743  002256 

744  002260 

745  002266 

746  002274 

747  002300 

748  002306 

749  002314 
750 

751  002320 

752  002332 
753 

754  002334 

755  002336 

756  002344 
757 

758  002346 

759  002352 

760  002356 

761  002360 

762  002364 

763  002366 

764  002370 


012700 
012764 
016401 
105761 
001405 
016401 
062701 
000402 
062701 
122711 
001062 


010405 

103420 
116564 
116564 
005064 
012764 
012764 


103004 

000737 

016401 
105761 
001410 
116400 
006300 
006300 
060100 


.S6TTL  LINON  -  TURN  CIRCUIT  ON 

»*-LINON-TURN  CIRCUIT  ON 

THIS  ROUTINE  IS  CALLED  TO  TURN  A  CIRCUIT  ON 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

IF  CC,  CIRCUIT  TURNED  ON, 
ELSE,  ERROR  RETURN  IN  RO 


LINON: 


177765 

000003  000072 

000042 

000014 

000050 
000002 

000020 
000001 


CHECK  THAT  CIRCUIT  IS  IN  CORRECT  STATE 

MOV  #ME.CST,RO 

MOV  #ME$CIR,L$PAR(R4) 

MOV  L$SLT(R4),R1 

TSTB  L.NSTA(RI) 

BEO  5$ 

MOV  L$TPT(R4),R1 

ADD  #S.NMST,R1 

BR  7$ 

ADD  #L.NMST,R1 

CMP8  #LN.0FF,(R1) 

BNE  60$ 


5$: 
7$: 


SET  CIRCUIT  ON 


10$: 


000055  000007 

000054  000006 
000004 

000004  000012 

001006  000010 


000042 
000014 

000040 


20$: 
30$: 

40$: 


SWSTK$ 

MOV 

CALL 

BCS 

MOVB 

MOVB 

CLR 

MOV 

MOV 

CALLR 

RETC 
RETURN 

BCC 

WSIG$S 

BR 

MOV 

TSTB 

BEQ 

MOVB 

ASL 

ASL 

ADD 


30$ 

R4,R5 

aCCBGT 

20$ 

L$PDV(R5),C.STA(R4) 

L$CHN(R5),C.LIN(R4) 

C.NSP(R4) 

#4,C.STS(R4) 

#FC.CTL!FS.STR,C.FNC(R4) 

aLLCRS 

RO 


40$ 
10$ 


L$SLT(R4),R1 

L.NSTA(RI) 

50$ 

L$TRB(R4),R0 

RO 

RO 

R1,R0 


ASSUME  CIRCUIT  IS  IN  WRONG  STATE 

GET  SLT  ADDRESS 

MULTI-POINT/ETHEPNET  CIRCUIT? 

BR  IF  NO 

POINT  TO  CURRENT  TRIB  TABLE 

POINT  TO  MANAGEMENT  STATE  BYTE 

CONTINUE 

POINT  TO  MANAGEMENT  STATE  BYTE 

IS  THE  CIRCUIT  OFF? 

If   NH,   m  -   ERROR 


ENTER  SYSTEM  STATE 

SAVE  ADDRESS  OF  CONTEXT  AREA 

TRY  TO  ALLOCATE  A  CCB       ;  RJK08 

IF  CS,  ALLOCATION  FAILURE 

SET  UP  PDV  AND 

CHANNEL  #  TO  TURN  ON 
SET  RETURN  TO  AUX 
TURN  ON  THE  CIRCUIT 
SET  UP  FUNCTION  CODE 
QUEUE  CCB  TO  NETACP         ;  RJK08 

;  SET  USER  C-BIT 

;  LEAVE  SYSTEM  STATE 

IF  CC,  REQUEST  QUEUED 
ALLOCATION  FAILURE  ...  WAIT  A  BIT 
THEN  TRY  AGAIN 

GET  SLT  ADDRESS  FOR  CIRCUIT 
IS  THIS  MULTI-DROP/ETHERNET  ? 
IS  EQ,  NO 

GET  TRIBUTARY  NUMBER 
MULTIPLY  IT  BY  4 

POJNT  AT  THE  TRIB 


rirwpn  -  rirmit  rha 
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MCSHAP 

MCSMBL 

MCtHBX 

MCSMBY 

MCSMPX 

MCSNAP 

MCSNBR 

HCSNBS 

MCSNCR 

HCSNCS 

HCSNML 

MCSNMR 

MCSNMS 

MCSNNO 

MCSNNU 

MCSNOP 

MCSNOR 

MCSNPF 

MCSNPR 

HCSNRE 

MCSNRT 

MCSNVR 

MC$P08 

MC$P11 

MCSRFL 

MCSSBU 

HCSSFL 

MCSSYC 

dCSSYL 

MCSSYR 

MCSSYS 

MCSSYZ 

MCSTBR 

MCSTBS 

MCSTDR 

MCSTIM 

MCSTYP 

MCSUBU 

MCSUFD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSWID 

MCSWIH 

MCSWIL 

MCSWOS 

MC$W16 

MCSW32 

WCSXBR 

MCSXBS 

MCSXCJ 

HCSXCR 

MCSXCS 

MCSXDR 

MCSXDS 

MC$XFR 

MCSXFS 


010000 

001 76^ 

00A420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 

000024 

000000 

001140 

001141 

002053 

000000 

007777 

002052 

002047 

001132 

001133 

000003 

060000 

040000 

020000 

020000 

040000 

060000 

001750 

001751 

000322 

002260 

002261 

001762 

001763 

002272 

002273 


MCSXLJ 

MCSXLR 

MCSXMA 

MCSXMC 

MCSXMS 

MCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

MC$020 

HD$CI 

MDSCNA 

MDSCOU 

MD$DA 

HD$DL 

MDSDLV 

MDSDMC 

MDSDMF 

MDSDMP 

HDSDMR 

HDSDMV 

HD$DN 

MDSDP 

HDSDPV 

MD$DQ 

MDSDTE 

MD$DU 

MDSDUP 

MDSDV 

MD$DZ 

MDSFUL 

MDSHAL 

HDSHEL 

MDSKCP 

MDSKDP 

MDSKDZ 

MD$KL 

MDSKMX 

MDSKMY 

MDSLEN 

MDSPCL 

MDSQNA 

MDSUNA 

MD$WU 

MD.ABO 

MD.ACC 

MD . AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.NOB 


000323 

002330 

000310 

002305 

002304 

002332 

002316 

002331 

002342 

000002 

000007 

000003 

000001 

000010 

000004 

000020 

000014 

000046 

000022 

000050 

000042 

000016 

000000 

000044 

000006 

000024 

000002 

000012 

000026 

000030 

000000 

000001 

000002 

000013 

000034 

000036 

000040 

000054 

000052 

000050 

000011 

000005 

000001 

000002 

000017 

000010 

000016 

000011 

000007 

000015 

000002 

000014 

000001 

000006 

000001 

000020 

000012 


MD.NON 
HD.PER 
HD.RES 
MD.ROB 
MD.RSH 
MD.SDU 
MD.SLO 


SNA 
TLO 
MD . UNA 
MD.UNR 
MD.UOB 
MD.VOL 
MESALI 
ME$AL2 
MESARE 
MESCIR 
MEJEXA 
MESEXE 
HESLIN 
ME SLOG 
MESMOD 
MESNOD 
MESNON 
MESOBJ 
ME $082 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
ME. DON 
ME.FCO 
ME.FIO 
ME. FOP 
ME. FOR 
ME. FUN 
ME.GRO 
ME . HAR 
HE.JID 
ME.LCO 
ME.LPR 
ME.MPR 
ME.MVE 
ME. OPE 
ME.PLO 
ME.PMJ 
ME.PNA 
ME.PRI 
ME.PTY 
ME.PVA 
ME. RES 
ME.ROO 
ME.SIZ 
ME. SYS 
ME.UCO 


177777 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
000000 
000200 
000001 
000002 
000004 
000000 
■\77777 
000007 
000004 
000005 
000006 
^7771,1, 
V7751 
\777fi 
V7755 
177600 
\777b2 
}777'ib 
V77tl 
\7777b 
\77777 
\777t,'i 
177750 
\777k7 
■\777bt 
■\77757 
\7777l 
\7777\ 
■[7771^7 
177751 
\777kl> 
177752 
^7777"^ 
■[77772 
^77760 
177761 
177754 
y7777U 
\777i,b 
177770 


MFSACT 

177776 

MOSPRO 

000002 

MFSADD 

000000 

MOSPRS 

000001 

MFSADJ 

177774 

MOSREA 

000200 

MFSALL 

177775 

MOSSET 

000000 

MFSBYE 

000300 

MOSSTA 

000020 

MFSCHA 

000023 

MOSSUH 

0892S9 

MFSDUM 

000020 

MOSTSK 

000000 

HFSEVT 

000001 

MOSVOL 

000000 

MFSFUP 

000264 

MOSZER 

000000 

MFSKNO 

\77777 

MPSACB 

000012 

HFSLOA 

000017 

MPSACC 

000514 

MFSLOO 

m775 

HPSACT 

004526 

MFSREA 

000024 

MPSADD 

000766 

MFSSIG 

177773 

MP$ADJ 

001440 

HF$SPF 

000302 

MPSADP 

006325 

MFSSYS 

000026 

MPSADS 

004406 

MFSTES 

000022 

MPSALB 

000036 

MFSTRA 

000301 

MPSAMC 

001640 

MFSTRI 

000021 

MPSAMH 

001641 

MF$ZER 

000025 

MPSANB 

004420 

MLSALL 

100000 

MPSASB 

000024 

MLSCLS 

000000 

MPSASC 

004432 

MLSCON 

000001 

MPSAUS 

000512 

MLSEXT 

000001 

HPSBBT 

002165 

MLSFIL 

000002 

MPSBDF 

002164 

ML$FIR 

000000 

MPSBFQ 

002121 

MLSINT 

000000 

MPSBLK 

001616 

HLSKNO 

140000 

MPSBLO 

001452 

MLSMON 

000003 

MPSBMX 

002176 

MLSSYS 

000002 

MPtBNP 

006330 

MLSTOP 

000001 

HPSBRT 

001620 

MN$UNL 

000377 

HPJBSA 

002176 

MOSACC 

000200 

MPSBSD 

002203 

MOSADD 

000002 

MPSBSI 

002200 

MOSALA 

000004 

HPSBSP 

006331 

MOSALI 

000000 

MPSBUF 

000170 

HOSCHA 

000040 

MPSBUP 

006324 

MOSCIR 

000003 

MPSBUS 

001643 

MOSCLE 

000100 

MPSCAC 

001750 

MOSCOU 

000060 

MPSCAS 

001762 

MOSDAC 

000000 

MPSCAT 

002210 

MOSDEF 

000000 

MPSCCS 

004406 

MOSDPR 

000000 

MP$CHN 

002141 

MOSENT 

000017 

MPSCIR 

000144 

MOSEVE 

000100 

MPSCLK 

002131 

MOSINF 

000160 

MPSCLN 

002126 

MOSINS 

000002 

HPSCLT 

002211 

MOSLIN 

000001 

HPSCMB 

002142 

MOSLOG 

000001 

MPSCMK 

000537 

MOSMIR 

000031 

MPSCMX 

002153 

MOSNAM 

000001 

MPSCND 

000310 

MOSNIC 

000023 

MPSCNU 

001753 

MOSNOD 

000000 

MPSCOB 

000311 

MOSOFF 

000001 

MPSCON 

002126 

MO$ON 

000000 

MPSCOS 

001604 

MOSOPT 

000001 

MPSCPF 

000230 

MOSPER 

000200 

MPSCPL 

000232 
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SYMBOL  VALUE 


T.NDM 

T.QRAC 

T.QRIN 

T.QRPD 

T.SITC 

T.TOD 

US.MDM 

US.MNT 

U.CW3 

U.STS 

XMTTBL 

X$$MCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLi 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.L'.N 

Z.MA? 

Z.NAM 

Z.PCB 

Z.SCH 

SDMPST 

SHEADR 

ITMLUN 

S$$L 


000066 
000060 
000062 
000064 
000072 
000070 
=  000020 
=  000100 
OOOOU 
000005 
0001 AA  I 

r  ****** 

=  001000 

=  000001 

=  004000 

=  000002 

=  100000 

=  040000 

=  000020 

=  000004 

=  000100 

=  020000 

=  000010 

=  000400 

=  000040 

=  002000 

=  010000 

=  000200 

=  000000 

=  100000 

=  140000 

000014 

000016 

000000 

000010 

=  000016 

000006 

000020 

000004 

000012 

000007 

=   ****** 


000023 


GX 
GX 
GX 


REFERENCES 


8-140 

8-141 

8-133 

8-136 

8-135 

8-138 

8-134 

8-137 

8-131 

8-139 

8-142 

13-408 

13-408 

13-416 

13-408 

#8-132 

22-1024 

5-72 

5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

#5-72 

13-428 

#5-72 

#5-72 

#5-72 

20-903 

#5-72 

5-72 

#5-72 

#5-72 

#5-72 

13-422 

#5-72 

13-424 

#5-72 

13-384 

#5-72 

#5-72 

23-1102 

12-301 

18-75 i 

13-388 

13-404 

#7-98 

7-98 

J    8 
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14-556 


19-802 


#7-99 


21-992 


7-99 


#7-101 


7-101 
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Circuit  Change  Paramet  MACRO  V05.03b  Saturday  29-Jun-85 
Set  SVC  parameters 


iz-' 


U  Page  10 


202 

203 

20^ 

205 

206 

207 

208 

209 

210 

211 

212 

213  000400 

2H  OOOAOO 

215  000406 

216 

217  000410 

218  000414 
219 

220  000420 

221  000424 

222  000426 

223  000430 

224  000434 

225  000436 

226  000442 

227  000446 

228  000454 

229  000460 

230  000464 

231  000470 

232  000474 
233 

234  000476 

235  000502 

236  000510 
237 

238  000514 

239  000520 
240 

241  000522 

242  000526 
243 

244  000534 


.SBTTL  SETSVC  -  Set  SVC  parameters 

•*♦  SETSVC  -  Set  SVC  parameters 

INPUTS 

R4  -  Address  of  context  area 

OUTPUTS 

RO  -  Error  code 


032764 
001045 


005700 
100430 

103420 

016105 


016401 
012703 

000407 

012700 
012764 
010066 


012700 
012764 


176411  000076 


SETSVC: 


000036 


000076 
000000' 


177765        5$: 

000003  000072 

000004  10$: 

20$: 


17774  5         30$: 
M7777     000072 

40$: 


BIT 
BNE 

SWSTK$ 
SAVHAP 

CALL 

TST 

BMI 

CALL 

BCS 

CALL 

MOV 

MAP 

CALL 

MOV 

MOV 

CALL 

BR 

MOV 
MOV 
MOV 

RESMAP 
RETURN 

MOV 
MOV 

RETURN 


#^C<LS$DLM!LS$SVC>,L$FLX(R4)  ;  Check  only  SVC  DLM  parameters 
30$  ;  Error  if  trying  to  set  something  else 


40$ 


CKCSTA 

RO 

10$ 

FNDCTR 

5$ 

SETCTR 

T$SVC*-2(R1),R5 

T$SVC(R1) 

SVCFL6 

L$FLX(R4),R1 

#SVCMAP,R3 

$STPAR 

20$ 

#ME.CST,RO 

*ME$CIR,L$PAR(R4) 

R0,fi$R0+2(SP) 


#ME.GRO,R0 
#-1,L$PAR(R4) 


Do  SVC  processing  in  system  state 
Save  current  mapping 

Check  circuit  is  off 

Check  error  status 

Branch  if  circuit  in  wrong  state 

Find  XPT  counters 

Error  if  counters  do  not  exist 

Set  counter  block  flags 

Get  virtual  SVC  block  address 

Map  to  SVC  descriptor 

Set  SVC  flags 

Get  remaining  parameters  to  set 

Point  to  parameter  descriptions 

Set  remaining  parameters 

Exit 

Return  wrong  state  if  no  counters 
...  this  should  be  obvious 
Return  error  to  caller 

Restore  mapping 


Parameter  grouping  error 
No  further  information 
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SYMBOL  CROSS  REFERENCE 


J  10 

PAGE  2 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

LN.OAU 

=  000003 

#5-72 

LN.OFF 

=  000001 

#5-72 

11-272 

11-283 

LN.ON 

=  000000 

#5-72 

LN.OOP 

=  OOOOOA 

#5-72 

LN.OPE 

=  000001 

#5-72 

LN.REF 

=  000002 

#5-72 

LN.SER 

=  000002 

#5-72 

LN.STA 

-  000017 

#5-72 

LN.SUB 

=  000360 

#5-72 

LN.TRI 

=  000006 

#5-72 

LPSMPT 

=  000010 

#6-104 

11-265 

LPSMUX 

=  000004 

#6-104 

LPSNXC 

=  100000 

#6-104 

LPSTRB 

=  000002 

#6-104 

11-278 

LPSUNT 

=  000001 

#6-104 

LPSUCN 

=  OOOOAO 

#6-104 

6-104 

LPSWDV 

=  000020 

#6-104 

6-104 

LPSWLD 

=  000360 

#6-104 

LPSWTR 

=  000200 

#6-104 

6-104 

LPSWUN 

=  000100 

#6-104 

6-104 

LSSACT 

=  OOOOAO 

#6-104 

LSSBBT 

=  010000 

#6-104 

LSSBLK 

=  001000 

#6-104 

6-104 

8-160 

12-313 

13-34( 

LSSSSA 

=  000001 

#6-104 

LSSBSD 

=  000002 

#6-104 

LSSBSI 

=  OOOOOA 

#6-104 

LSSCHN 

=  000001 

#6-104 

6-104 

LSSCMB 

=  000002 

#6-104 

6-104 

6-104 

6-104 

7-123 

LSSCOS 

=  000004 

#6-104 

LSSCUS 

=  000004 

#6-104 

6-104 

8-155 

13-334 

LSSDDT 

=  001000 

#6-104 

LSSDEA 

=  000100 

#6-104 

LSSDLM 

=  001004 

#6-104 

10-214 

LSSDLT 

=  002000 

#6-104 

LSSDTE 

=  000010 

#6-104 

6-104 

LSSHBT 

=  000400 

#6-104 

LSSHTM 

=  010000 

#6-104 

LSSINA 

=  000010 

#6-104 

LS$IND 

=  000020 

#6-104 

LSSINI 

=  000040 

#6-104 

LSSLCT 

=  020000 

#6-104 

6-104 

9-190 

9-193 

LSSLMB 

=  000002 

#6-104 

LSSLOO 

=  040000 

#6-104 

LSSMDT 

=  020000 

#6-104 

LSSMRT 

=  000020 

#6-104 

LSSMWN 

=  000040 

#6-104 

LSSMXB 

=  001000 

#6-104 

LSSMXR 

=  000020 

#6-104 

6-104 

6-104 

7-126 

7-127 

LSSHXW 

=  000040 

#6-104 

6-104 

6-104 

6-104 

7-124 

LSSNMT 

=  020000 

#6-104 

LSSNOR 

=  100000 

#6-104 

LSSNTI 

=  000200 

#6-104 

r irHPx 
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CIRECH  -  Read  circuit  characteristics 


103 
10^ 
105 
106 
107 
108 
109 
110 
111 
112 
113 
11A 
115 
116 
117 
118 
119 
120 
121 

122  000022 

123  000022 
12A  000026 

125  000032 

126  000036 

127  0000'i2 
128 

129 

130 

131  000044 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142  000050 

143  000056 

144  000060 
145 

146  000066 

147  000072 
148 

149  000076 

150  000104 

151  000106 
152 

153  000112 

154  000116 

155  000122 

156  000124 

157  000130 

158  000134 

159  000136 


.SBTTL  CIRECH  -  Read  circuit  characteristics 

»*-CIRECH-READ  CIRCUIT  CHARACTERISTICS 

THIS  ROUTINE  IS  CALLED  TO  RETURN  INFORMATION  ABOUT  A  CIRCUIT'S      .„„„.„ 
CHARACTERISTICS.  PARAMETERS  RETURNED  INCLUDE  COST,  TYPE,  TRIBUTARY  NUMBER, 
OUNER  AND  MULTIPOINT  POLLING  PARAMETERS. 

INPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 


016400  000042 

016401  000050 
005067  177762 
022701  177777 
001002 


CIRECH:: 


MOV 
MOV 
CLR 
CMP 
BNE 


L$SLT(R4),R0 

L$TPT(R4),R1 

FLAG 

#-1,R1 

15$ 


.IF  NDF  R$$PRO  ;  PRO/DECNET 

CALLR  PVCCHA 

.IFF  ;  NDF  R$$PRO 

RETURN 

.ENDC  ;  NDF  R$$PRO 


GET  THE  SLT  POINTER 

GET  THE  TRIB  FLAGS  POINTER 

INITIALIZE  LOCAL  FLAGS  WORD 

IS  THIS  A  PVC? 

BR  IF  NO 


GET  PVC  CHARACTERISTICS 


RETURN 


032760  040000 

001007 

042764      100000 


032764     040000 
001002 


005067  177676 

103405 

016702  177650 

004567  002132 

001440 

032764  040000 


000000 
000064 


Return  service,  adjacent  node,  designated  router,  cost. 


15$: 


000064  17$: 


18$: 


000064  20$: 


BIT  #LF.RDY,L.FLG(R0) 

BNE  17$ 

BIC  #LF$SEG,L$FLG(R4) 

SWSTK$  45$ 

CALLR  FNDCTR 

BIT  #LF$MLT,L$FLG(R4) 

BNE  18$ 

CALL  SETSER 

CLR  LTIM 

CALL  FNDLTM 

BCS  20$ 

MOV  N0DE,R2 

JSfi  R5,SETN0D 

.WORD  MPSADJ 

BIT  *LF$MLT,L$FLG(R4) 


Is  line  Loaded? 

if  NE,  ok 

eLse  avoid  infinite  loop, 

;  get  counter  block  for  DLM  usage 
;  and  return  to  user  state  at  45$ 

processing  multiple  adjacencies  ? 
Service  not  qualified  by  adjacent  node 
Get  service  parameter 

assume  no  listen  timer/adjacent  node 

get  adjacent  node  info 

1 f  CS,  no  adjacency 

get  node  address 

stuff  it  into  message 

parameter  =  adjacent  node 

processing  multiple  adjacencies  ? 
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704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7U 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 

728  002432 

729  002436 

730  002442 

731  002450 

732  002452 

733  002460 

734  002462 

735  002466 

736  002470 

737  002474 

738  002500 

739  002504 

740  002506 

741  00251^ 

742  0025^ '3 

743  0025:O 

744  002524 

745  002526 

746  002530 

747  002532 

748  002534 

749  002542 

750  002544 

751  002552 

752  002556 
753 

754 
755 
756 
757 
758 
759 
760  002562 


016400 
116001 
032760 
001007 
032760 
001407 
105760 
001404 
016401 
116101 
067701 
011101 
022761 
001132 
005046 
017705 
020025 
001402 
005216 
000774 
116466 
012605 

016101 
016100 


000042 
000021 
000400  000000 

000020  000000 

000014 

000050 
000003 
OOOOOOG 

114224  000004 
OOOOOOG 


.S8TTL  FNDCTR  -  Find  counter  block 

FNDCTR  -  FIND  TRANSPORT  LINE  COUNTER  BLOCK 

INPUTS: 

R4  -  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

CARRY  CLEAR: 

R1  -  ADDRESS  OF  FOUND  COUNTER  BLOCK 
FLAG  -  INDICATES  IF  CIRCUIT  IS  DLM  SVC  OR  PVC 
SVCMAP  -  MAPPING  BIAS  FOR  SVC  DESCRIPTOR  IF  SVC 
SVCADD  -  VIRTUAL  ADDRESS  OF  SVC  DESCRIPTOR  IF  SVC 
PVCPRT  -  PVC  PORT  NUMBER  IF  PVC 
CARRY  SET: 

COUNTER  BLOCK  NOT  FOUND 

REGISTERS:    RO,  R1  AND  R5  ARE  CHANGED. 

**♦  NOTE:  THIS  ROUTINE  MUST  BE  CALLED  FROM  SYSTEM  STATE 
APR6  IS  MODIFIED 


FNDCTR: 


5$: 
10$: 


15$: 


000040  COOOOl  17$: 


000016 
000100 


MOV  L$SLT(R4),R0 

Move  L.0UNR(R0),R1 

BIT  #LF.8RO,L.FLG(R0) 

BNE  5$ 

BIT  #LF.«TP,L.FLG(RO) 

BEQ  10$ 

TST8  L.NSTA(RO) 

BEQ  10$ 

MOV  L$TPT(R4),R1 

MOVB  S.0WNR(R1),R1 

ADD  aPDVTA.Rl 

MOV  (R1),Rl 

CMP  #»fi)(PT,Z.NAM(Rl) 

BNE  40$ 

CLR  -(SP) 

MOV  aSLTMA,R5 

CMP  R0,(R5)t 

BEQ  17$ 

INC  (SP) 

BR  15$ 

M0V8  L$TR8CR4),1(SP) 

MOV  (SP)+,R5 

MAP  Z.DSP(RI) 

MOV  Z.DAT(R1),R1 

MOV  N$TLC(R1),R0 

.IF  NDF  X$$TLC 

MOV  N$TLC+2(R1),R1 

.IFF  ;  NDF  X$$TLC 

MAP  N$TLCt2(R1) 


GET  THE  SLT  ADDRESS 

ASSUME  OWNER  =  LINE  OWNER 

BROADCAST  CIRCUIT? 

BR  IF  YES 

MULTIPOINT  LINE  ? 

IF  EQ,  NO 

MULTIPOINT  TRIB  (SLAVE)? 

BR  IF  YES 

GET  THE  TRIB  FLAGS  POINTER 

ELSE,  GET  TRIB  OWNER 

POINT  TO  PDV  TABLE  ENTRY 

GET  THE  PDV  ADDRESS 

IS  THE  OWNER  TRANSPORT  ? 

IF  NE,  NO-PARAMETER  NOT  APPLICABLE 

GET  SLN  NUMBER 

POINT  TO  SLT  VECTOR  TABLE 

IS  THIS  THE  CORRECT  SLT? 

BR  IF  YES 

ELSE  UPDATE  SLN 

AND  CHECK  NEXT 

SET  TRIB  NUMBER  ONTO  HIGH  BYTE 

RETRIEVE  SLN/STA 

MAP  TO  XPT'S  PROCESS  SPACE 

POINT  TO  XPT'S  DDB 

GET  THE  NUMBER  OF  LINE  COUNTERS 


POINT  TO  THE  FIRST 


RJK10 


;  RJK10 


MAP  TO  IT 
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CIRECH 

CREATED  BY 

MACRO  ON  2'^ 

-JUN-85  AT 

12:16 

SYMBOL 

[ROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ESNLEN 

000050 

#6-63 

ESNLLA 

000012 

#6-63 

E$NLNK 

000000 

#6-63 

E$NML 

OOOOAO 

#6-63 

ESNMR 

00002A 

#6-63 

E$NMS 

000030 

#6-63 

EtNNOD 

000002 

#6-63 

ESNRT 

000042 

#6-63 

ESNRTP 

000005 

#6-63 

ESNSEG 

000010 

#6-63 

ESNTIM 

000046 

#6-63 

ESNUSE 

000004 

#6-63 

ESSTRT 

000006 

#6-63 

FLAG 

000020  R 

#8-97 
♦18-832 

*9-125 

9-235 

FL.INC 

=  000004 

#8-100 

9-268 

17-789 

FL.PVC 

=  000002 

#8-99 

17-794 

FL.SVC 

=  000001 

#8-98 

9-235 

9-265 

FMTOWN 

001340  R 

9-257 

#12-442 

FNDCTR 

002432  R 

9-147 

13-474 

#17-728 

FNDDCP 

=  *«♦♦**  GX 

11-386 

11-411 

FNDHTM 

001402  R 

9-208 

#13-471 

FNDLTM 

001474  R 

9-154 

#14-507 

FNDPCL 

=  *♦»»♦*  GX 

11-390 

FNDPLD 

001064  R 

9-162 

9-194 

#10-348 

GETADJ 

002152  R 

14-549 

14-565 

14-572 

HTIM 

000012  R 

#8-94 

9-2IJ 

9-214 

1$$AS 

-  ****** 

6-69 

14-588 

KISAR6 

=  ******  GX 

11-385 

*11-397 

11-410 

*1 5-639 

M5-643 

♦17-750 

*18-833 

19-854 

♦19-855 

LFSEND 

=  000020 

#7-81 

9-198 

14-525 

LFSMLT 

=  040000 

#7-81 

9-149 

9-159 

LFSREA 

=  000001 

#7-81 

LFSSEG 

=  100000 

#7-81 

9-144 

9-330 

LFSSIG 

=  000040 

#7-81 

LFSSKP 

=  000004 

#7-81 

LF$VR2 

=  000010 

#7-81 

LFSZER 

=  000002 

#7-81 

LF.ACT 
LF.BRO 
LF.BWT 
LF.ENA 
LF.LPB 
LF.MDC 
LF.MFL 
LF.MTP 
LF.PAC 
LF.RDY 
LF.REA 
LF.SER 
LF.TIM 


100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 


#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 


9-287 


9-290 
9-142 
20-908 


17-730 


9-320 
9-180 
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9-265 

18-832 

9-305 


14-508 
#15-622 
♦13-478 

♦11-418 
♦17-760 
♦19-883 

9-223 

14-558 


9-268 


}7-777 


9-305 


*]7-777 


♦17-789         ^17-794 


13-473 
17-783 


9-241 
14-574 


♦13-483 
♦17-785 


9-329 
14-579 


♦14-530 
♦  17-791 


9-332 


15-623 
18-818 


♦15-624 
♦  18-819 


17-732 
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67 
68 
69  000000 


000020 


000000 
000020 


000000 
000000 
000002 
000003 
OOOOOA 

000020 
0000^0 
000041 
0000A2 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000000 


000124 

000000 
000001 


000020 


000000 


.S8TTL  CONTEXT  AREA  DEFINITIONS 
CIRCXS  LIST 
CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 

.  =  0 

L$NLEN  =  16. 


MAXIMUM  NAME  LENG1H 


•  The  offsets  L$NAM  to  LSPDV  inclusi\/e  must  appear  in  the  same  order 
;  as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM 
LSDDM 
LSCTL 
LSUNT 
LSPVC 

LSSCN 

L$TR8 

LSPFG 

LSSLT 

LSNXT 

LSSNM 

LSTPT 

LSTNM 

L$CT8 

LSCHN 

LSPDV 

L$MS6 

LSBUF 

LSOPT 

LSTYP 

LSFLG 

LSSLEN 

LSPRO: 

LSMTYP 

LSTSZ 

L$LTM 

LSFLX 

LSSCR 

LSADJ 

LSNOD 

LSCOU 

LSPLB 

LSPAR 

LSSYL 

LSLEN 


.BLKW  1 
.8LKB  1 
.BLKB  1 
.BLKW  1 
.  =  0+L$NLEN 
.BLKB   LSNLEN 


.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKB 


.BLKB   1 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.PSECT 


;  DEVICE  NAME 

;  CONTROLLER  NUMBER 

;  UNJT  NUMBER 

;  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. . .  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


;  OFFSETS  INTO  SCRATCH  BUFFER  (L$SCR)  FOR  DMC  BASE  TABLE  COUNTERS 


B$5: 
B$6: 


.ASECT 
.=0 

.BLKB   1 
.BLKB   1 


BASE  TABLE 
BASE  TABLE 


WAC   A7k   C  r. 


r—St;  13-17   D=. 


LSSNM 
LtSYL 
LtTNM 
L$TPT 
L$TRB 
LtTSZ 
LSTYP 
L$UNT 


CIRECO     CREATED  BY  MACRO  ON  P9-JUN-85  AT  12:17 
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CREf   04.00 


SYMBOL  VALUE 


,COST 
,CTL 


L.CVA 


DDM 

DD5 
..DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
MESCIR 
ME.UCO 
PCLCIR 
PDVTA 
PVCCOU 
R$$PRO 
R$$RTR 
R$$11D 
RSSITM 
R$$11S 
SCRATC 
SF.ACT 
SF.ENA 
SF.LPB 
SF.MFL 
SF.PAC 
SF.REA 
SF.SER 
SF.SVC 
SF.UNL 
S$$BAS 
S.COST 
S.FLG 
S.LEN 
S.NMST 
S.OWNR 
X$$MCB 
ZF.COU 


0000A6 
000122 
000052 
000050 
OOOOAO 
000070 
000063 
000003 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
=  000022 
000022 
000020 
OOOOU 
000021 
000013 
000003 
177770 
=  ****** 
=  ****** 
=  ****** 
=  ****** 


GX 
GX 
GX 


000000 

****** 

000000  R 

000200 

000100 

OOOOOA 

000040 

000020 

000010 

000001 

000002 

000040 

****** 

000001 
000000 
000004 
000002 
000003 

*♦»♦♦* 

001000 


REFERENCES 

#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

10-169 

10-168 

9-103 

10-152 

10-144 

9-97 

9-93 

5-64 

5-64 

5-64 
#8-78 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

9-93 
#5-63 
#5-65 
#5-63 
#5-63 
#5-63 

5-64 
#5-64 


10-142 


10-151 
10-149 


10-140 


10-140 


5-64 
10-154 
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CICHIN  CREATED  BV     MACRO     ON  29-JUN-85  AT   12:11 

SYMBOL   CROSS  REFERENCE 


SYMBOL      VALUE 


REFERENCES 


LIBLK 

000262 

#6-72 

LtBSA 

000122 

#6-72 

L$BSD 

000123 

#6-72 

LSBSl 

00012^ 

#6-72 

LSBUF 

000060 

#6-72 

lSCHN 

000054 

#6-72 

.$CMB 

00023A 

#6-72 

L$CO? 

000101 

#6-72 

LSCTB 

000053 

#6-72 

.$CTL 

000002 

#6-72 

-tCUS 

000260 

#6-72 

LSDDM 

000000 

#6-72 

LSDDT 

000106 

#6-72 

LSDEA 

000105 

#6-72 

L$DLT 

000110 

#6-72 

LlOIE 

0002A0 

#6-72 

LSDTEL 

000236 

#6-72 

LSDTEP 

000250 

#6-72 

LSFLG 

00006'!. 

#6-72 

L$FLX 

000076 

#6-72 

LtFLl 

000066 

#6-72 

L$FL2 

000070 

#6-72 

LSHBT 

000254 

#6-72 

LSHTM 

000226 

#6-72 

LSINA 

000125 

#6-72 

LSIND 

000126 

#6-72 

LSINI 

000127 

#6-72 

LSLCT 

000224 

#6-72 

L$LEN 

000264 

#6-72 

LSLMB 

000234 

#6-72 

L$LTM 

000230 

#6-72 

LSMRT 

000253 

#6-72 

L$MSG 

000056 

1b-72 

LSMTYP 

000075 

D6-7Z 

LSMWN 

000252 

#6-72 

LSMXB 

000133 

lt6-72 

L$MXR 

000253 

#6-72 

L$MXW 

000252 

#6-72 

L$NAM 

COOOOO 

#6-72 

LSNLEN 

=  000020 

#6-72 

LSNMT 

000116 

#6-72 

LSNTI 

000256 

#6-72 

LINTL 

000134 

#6-72 

L$NUM 

000240 

#6-72 

L$NUML 

000236 

#6-72 

L$NXT 

000044 

#6-72 

L$OPT 

000062 

#6-72 

lSown 

000102 

#6-72 

■  $PAR 

000072 

#6-72 

L$PDV 

000055 

#6-72 

LSPFG 

000041 

#6-72 

L$PLT 

000112 

#6-72 

•32-1143 
*33-1161 
*34-1179 
•10-534  10-571 


•21-906 
•11-612 


14-723 


22-930 
•22-928 

•10-574 


•18-833 

•35-1197 

•36-1215 

•37-1233 

•12-631 


•41-1305 

•24-977 

•25-994 

6-72 
•30-1107 


23-956 
•23-954 


14-719 
♦2S-1071 
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CRCF        04.00 


10-580 


•21-907 


19-856 


19-858 


08-834 


•12-632 


6-72 


10-539 


•  10-533 

•  13-691 
•10-545         ^10-554 


10-540 
10-575 


10-557 
•15-758 


•15-763 


•16-788 


17-811 
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Context  area  definition 

000125 
000126 
000127 
000130 
000131 
000132 
000133 
000134 
000166 
000224 
000226 
000230 
000230 
000232 
000234 
000234 
000236 
000236 
000240 
000240 
000250 
000252 
000252 
000253 
000253 
000254 
000256 
000256 
000260 
000262 


000264 
000000 


000001 
000002 
000004 


000010 
040000 
100000 


000001 
000002 
000004 
000010 


LSJNA 

.BLKB   1 

DMP 

ACTIVE  INCREMENT 

L$IND 

.BLKB   1 

DMP 

DYING  INCREMENT 

LtlNI 

.BLKB   1 

DMP 

INACTIVE  INCREMENT 

L$TH' 

.BLKB   1 

DMP 

DEAD  THRESHOLD 

L$TH2 

.BLKB   1 

DMP 

DYING  THRESHOLD 

L$TH3 

.BLKB   1 

DMP 

INACTIVE  THRESHOLD 

LSMXB 

.BLKB   1 

DMP 

MAXIMUM  BLOCKS 

L$NTL 

.BLKW   13. 

NIL 

MESSAGE  BUFFER 

LSSCR 

.BLKW   15. 

SCRATCH  BUFFER 

LSLCT 

.BLKW   1 

COUNTER  TIMER 

LSHTM 

.BLKW   1 

HELLO  TIMER 

LSSER 

SERVICE 

L$LTM 

.BLKW   1 

LISTEN  TIMER 

L$XCH 

.BLKW   1 

X25 

Logical  Channel  Number  (LCN) 

L$LMB 

X^5 

Max  Block  (Line) 

L$CH8 

.BLKW   1 

X25 

Max  Data  (Circuit) 

LSNUML: 

DLM 

Number  length 

L$DTE.:  .BLKW   1 

X25 

DTE  length  (Circuit) 

LJNUM 

DLM 

Number 

L$DTE 

.BLKB   8. 

X25 

DTE  (Circuit) 

LSDTEP:  .BLKW   1 

X25 

Pointer  to  DTE  descriptor  (Circui 

t) 

LSMUN 

X25 

Max  Window  (Line) 

LSMXW 

.BLKB   1 

X25 

Max  Window  (Circuit) 

L$MRT 

X25 

Max  Retransmits  (Line) 

L$MXR 

.BLKB   1 

■  DIM 

Max  Recalls  (Circuit) 

LSHBT 

.BLKW   1 

•  X25 

Holdback  Timer  (Line) 

L$NTI 

•  X25 

Retransmit  Timer  (Line) 

L$RET 

■   .BLKW   1 

•  DLM 

Recall  Timer  (Circuit) 

L$CUS 

•   .BLKW   1 

■  DLM 

Usage 

L$BLK 

•   .BLKW   1 

.IF  DF   R$$PfiO   ; PRO/DEC 

•  DLM 
net 

blocking  state 

L$LTY 

:   .BLKW   1 

;  Loopback  Type 

L$HDT 

:   .BLKW   1 

;  Modem  Test 

.ENDC   ;  DF  R$$PR0 

.EVEN 

LSLEN; 


.PSECT 


LENGTH  OF  CONTEXT  AREA 


FLAGS  WORD  BIT  DEFINITIONS  (L$rLG) 


LF$REA  =  1 
LFSZER  =  2 
LFSSKP  =  4 


LF$VR2  =  10 
LFSMLT  =  40000 
LFiSEG  =  100000 

PARSE  FLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LP$TR8 
LPSMUX 
LPSMPT 


1 
2 
4 
10 


READ  COUNTERS  OPERATION 
ZERO  COUNTERS  OPERATION 
SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSION  2.0  NCP 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  PROGRESS 


UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUND 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
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L.UNT 

000013 

MCSNOR 

000000 

HDSDMC 

000014 

MESCIR 

MBSDIS 

000001 

MCSNPF 

001616 

HDIDMF 

2252^^ 

MESEXA 

MBSEiJA 

000000 

MCSNPR 

001630 

MDSDMP 

000022 

MESEXE 

MBSFUL 

000002 

MC$NRE 

001200 

MDSDMR 

000050 

MESLJN 

MBSMIX 

000002 

MCSNRT 

001166 

MDSDHV 

000042 

MESLOG 

MBtONE 

000001 

MCSNVR 

001642 

HD$DN 

922216 

ME SHOD 

MBSRXO 

000001 

MC$P08 

000000 

MD$DP 

000000 

MESNOD 

MBSTXO 

000000 

MCSPII 

000001 

MDSDPV 

000044 

HEJNON 

MBSZER 

000000 

MCSRFL 

002046 

MD$DQ 

000006 

MESOBJ 

MCSBAB 

006073 

MCSSBU 

002051 

MDSDTE 

2222?^ 

HE$0B2 

MCSBID 

001765 

MCSSFL 

002044 

MD$DU 

000002 

MESPRO 

MCSBMC 

001767 

HCSSYC 

000012 

MDSDUP 

000012 

MESSYS 

MCSBSC 

001766 

MCSSYL 

000036 

MD$DV 

000026 

ME.BLO 

HCSCAC 

00UA2 

HCSSYR 

000050 

MDSDZ 

2222^2 

ME. CON 

MCSCAP 

00U40 

HCSSYS 

000024 

MDSFUL 

000000 

ME.CST 

MCSCCL 

00UA5 

HCSSYZ 

000000 

MDSHAL 

000001 

ME.DIS 

MCSCDC 

0020A5 

MCSTBR 

001140 

MDSHEL 

000002 

HE. DON 

MCSCDP 

00UA1 

HCSTBS 

001141 

HDSKCP 

000013 

HE.FCO 

MCSCIF 

00U65 

MCSTDR 

002053 

MDSKDP 

000034 

HE.FIO 

MCSCLD 

00U6A 

MCSTIM 

000000 

MDSKDZ 

000036 

HE. FOP 

MCSCOU 

100000 

MCSTYP 

007777 

MD$KL 

000040 

ME. FOR 

MCSCTL 

00U5^ 

MCSUBU 

002052 

MDSKMX 

000054 

ME. FUN 

MCSCTR 

001A52 

MCSUFD 

002047 

MDSKHY 

000052 

ME.GRO 

MCSCTS 

00U53 

HCSUMR 

001132 

HDSLEN 

000050 

HE.HAR 

MCSDOV 

002050 

nCSUMS 

001133 

MDSPCL 

000011 

ME.IID 

MCSLBR 

001750 

HCSVAX 

000003 

MDSQNA 

000005 

ME.LCO 

MCSLBS 

001751 

MCSUID 

060000 

HDSUNA 

22222i 

ME.LPR 

MCSLDI 

001 77A 

MCSWIH 

040000 

MDSWIT 

000002 

ME.MPR 

nCSLDO 

001775 

MCSUIL 

020000 

HD.A80 

000017 

ME.MVE 

MCSLDR 

001762 

MC$U08 

020000 

MD.ACC 

000010 

HE. OPE 

MCSLDS 

001763 

MC$U16 

040000 

MD.AOB 

000016 

HE.PLO 

MCtLLB 

002021 

MC$U32 

060000 

MD.B08 

000011 

HE. PHI 

MCSLLP 

002115 

HCSXBR 

001750 

MD.DIA 

000007 

ME.PNA 

MCSLLR 

002007 

MCSXBS 

001751 

MD.D08 

000015 

ME.PRI 

MCSLOO 

000001 

MCSXCJ 

000322 

MD.DUM 

222°?? 

ME.PTY 

MCSLRB 

002020 

MCSXCR 

002260 

MD.FAJ 

000014 

HE.PVA 

MCSLRP 

00211A 

MCSXCS 

002261 

MD.FNA 

000001 

ME. RES 

MCSLRR 

002006 

MCSXDR 

001762 

MD.FOB 

000006 

ME.ROO 

MCSLSI 

002032 

HCSXDS 

001763 

MD.LOA 

000001 

HE.SIZ 

MCSLST 

002033 

MCSXFR 

002272 

MD.LSH 

000020 

HE.  SYS 

MCSLUP 

006072 

HCSXFS 

002273 

MD.N08 

000012 

ME.UCO 

MCSMAP 

010000 

HCSXLJ 

000323 

MD.NON 

]77777 

MFSACT 

MCSMBL 

001764 

MCSXLR 

002330 

MD.PER 

000000 

MFSADD 

MC$«BX 

004A20 

MCtXMA 

000310 

MD.RES 

22222^ 

MFSADJ 

MCSMBY 

001752 

MCSXMC 

002305 

MD . ROB 

000005 

HFSALL 

MCSMPX 

004406 

MCSXMS 

002304 

MD.RSH 

000013 

HFSBYE 

MCSNAP 

001604 

NCSXNR 

00233? 

MD.SDU 

002225 

HFSCHA 

MCSNBR 

001130 

MCSXRC 

002316 

MD.SLO 

000003 

HFSDUM 

MCSNBS 

001131 

MCSXRR 

002331 

MD.SNA 

000000 

MFSEVT 

MCSNCR 

001154 

MCSXRS 

002342 

MD.TLO 

00222^ 

MFSFUP 

MCSNCS 

001155 

MC$020 

000002 

MD . UNA 

000002 

MFSKNO 

m'-;nml 

001274 

MDSCI 

000007 

MD.UNR 

000003 

HFSLOA 

r..  Mm 

001142 

MDSCNA 

000003 

MD.UOB 

000007 

HFSLOO 

MC$NMS 

001143 

MDSCOU 

000001 

MD.VOL 

000006 

HFSREA 

MCSNNO 

001606 

MDSDA 

000010 

MESALI 

000010 

HFSSIG 

MCSNINU 

001605 

MDSDL 

000004 

ME$AL2 

000003 

MFSSPF 

MCSNOP 

001607 

MDSDLV 

000020 

MESARE 

000005 

HFSSYS 

000003 
000000 
000200 
000001 
000002 
000004 
000000 
\77777 
000007 
000004 
000005 
000006 
M77i,i, 
177753 
177765 
177755 
177600 
177762 
177756 
177763 
V/777b 
\77777 
■[777'^'i 
177750 
\777b7 
\777tt 
■\77757 
177773 
■{7777\ 
\777i,7 
}7775y 
}777i,l 
177752 
■\77775 
^77772 
■[777bQ 
177761 
177754 
177774 
■\777i,k 
^7777') 
^7777b 
000000 
\7777i, 
177775 
000300 
000023 
000020 
000001 
000264 
177777 
000017 
177775 
000024 
177773 
000302 
000026 


MFSTES 

HF$7RA 

HFSTRI 

HFSZER 

HLSALL 

HLSCLS 

HLSCON 

HLSEXT 

MLSFIL 

HLSFIR 

HLSINT 

HLSKNO 

HLSHON 

HLSSYS 

MLSTOP 

HNSUNL 

HOSACC 

HOSADD 

HOSALA 

HOSALI 

HOSCHA 

MOSCIR 

HOSCLE 

HOSCOU 

HOSDAC 

HOSDEF 

MO$DPR 

HOSENT 

MOSEVE 

MOSINF 

HOSINS 

HOSLIN 

HOSLOG 

HOSHIR 

HOSNAH 

HOSNIC 

HOSNOD 

HOSOFF 

HOSON 

MOSOPT 

MOSPER 

MOSPRO 

MOSPRS 

MOSREA 

HOSSET 

HOSSTA 

HOSSUM 

HOSTSK 

MOSVOL 

HOSZER 

MPSACB 

MPSACC 

MPSACT 

HPSADD 

HPSADJ 

HPSADP 

HPSADS 


000022 
000301 
000021 
000025 
100000 
000000 
000001 
000001 
000002 
000000 

oooroo 

140000 
000003 
00000? 
00000 ■ 
00Ci77 
000200 
000002 
000004 
000000 
000040 
000003 
000100 
000060 
000000 
000000 
000000 
000017 
000100 
000160 
000002 
000001 
000001 
000031 
000001 
000023 
000000 
000001 
000000 
000001 
000200 
000002 
000001 
000200 
000000 
000020 
000000 
000000 
000000 
000000 
000012 
000514 
004526 
000766 
001440 
006325 
004406 
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cccccccc 

III 

III 

cccccccc 

HH 

HH 

PPPPPPPP 

DDDDDDDD 

cccccccc 

MI 

HI 

cccccccc 

HH 

HH 

PPPPPPPP 

DDDDDDDD 

HH 

HH 

PP      PP 

DD     DD 

HH 

HH 

PP      PP 

DD     DD 

HH 

HH 

PP      PP 

DD     DD 

HH 

HH 

PP      PP 

DD     DD 

HHHHHHHHHH 

PPPPPPPP 

DD     DD 

HHHHHHHHHH 

PPPPPPPP 

DD     DD 

HH 

HH 

PP 

DD     DD 

HH 

HH 

PP 

DD     DD 

HH 

HH 

PP 

DD     DD 

HH 

HH 

PP 

DD     DD 

cccccccc 

III 

in 

cccccccc 

HH 

HH 

PP 

DDDDDDDD 

cccccccc 

III 

III 

cccccccc 

HH 

HH 

PP 

DDDDDDDD 

LL 

ssssssss 

TTTTTl 

TTTT 

LL 

ssssssss 

TTTTT 

III! 

-L 

ss 

-L 

ss 

-L 

ss 

-L 

ss 

LL 

ssssss 

LL 

ssssss 

-L 

ss 

LL 

ss 

_L 

ss 

LL 

ss 

T 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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765  002572 

152760 

000200  000022 

BISB 

#SF.ACT,L.HPF(R0) 

766  002A00 

052761 

100000  000000 

50$: 

BIS 

#LF.ACT,L.FLG(R1) 

767  002^06 

005727 

TST 

(PC)  + 

768  002A10 

000261 

60$: 

SEC 

769  002412 

RETURN 

MARK  THE  STATION  ACTIVE 
MARK  THE  CIRCUIT  ACTIVE 
SET  SUCCESS 
FAILURE 
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MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MP$CVA 

MPSDAL 

MP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

(«IP$DHO= 

MPSDIA 

MPSDLB 

MPSOLG 

MP$DLI= 

MPSDLT 

MPSDRO 

MPSDST 

MPSDTE 

MP$DTY= 

HPSDUA 

HPSDUC 

HPSDUM 

MPSDUP 

MPSDVC 

MPSDWE 

IPSELT 

MPSETY 

MPSEVE 

MPSFNC 

MPSGDT 

HPSGNM 

MP$GRO 

MPSGRP 

HPSGTY 

MPSHAD 

MPSHBT 

MPSHDD 

MPSHTM 

flPSHUA 

flPSIAT 

MPS  IDE 

MPS I  DP 

HPSIHO 

MPSINA 

MPSIND 

MPSINI 

MPSITI 

WPSLAA 

MPSLAN 

!:.   ;LAR 

MPSLAS 

MPSLSS 

MPSLCO 

MPSLCT 


000226 

000161 

001755 

002127 

000540 

002570 

00U64 

002177 

001151 

000156 

0021 1A 

001320 

00U65 

000173 

002571 

004521 

00K66 

002200 

00UA1 

000454 

002140 

001452 

000207 

000210 

000202 

002127 

002114 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 

001757 

002142 

000162 

001612 

002210 

001322 

000144 

006327 

000215 

002177 

002204 

002201 

000776 

000231 

000234 

000202 

000012 

000203 

000226 

000156 


MPSLHL 

MPSLLE 

HPSLLO 

MPSLHB 

HPSLMX 

MPSLNA 

MPSLNO 

MPSLOA 

MPSLOG 

MPSLCO 

MPSLTM 

MPSLTY 

MPSLWI 

MPSMAC 

MPSMAD 

MPSMAP 

MPSHAR 

HPSMAV 

MPSMBN 

MPSHBR 

MPSMBU 

MPSMCB 

HPSMCO 

MPSMDE 

MPSHHO 

MPSMLB 

HPSMLK 

MPSMLN 

MPSMLP 

MPSMRB 

HPSMRO 

MPSMRP 

MPSMRI 

MPSMRV 

MPSMSB 

MPSMVE 

MPSMVI 

MPSMVR 

MPSMUN 

MPSHXB 

MPSMXC 

HPSMXR 

MPSHXU 

MPSNAA 

MPSNAC 

MPSNAP 

MPSNCT 

MPSNET 

MPSNLI 

MPSNNA 

MPSNOD 

MPSNRA 

MPSNRB 

MPSNSA 

MPSNTI 

MPSNUM 

MPSNVE 


000232 

000227 

004432 

002152 

002200 

000144 

000233 

000170 

004514 

000620 

001613 

004533 

000230 

004420 

001630 

006323 

001635 

006321 

001636 

001637 

001642 

000156 

001632 

004421 

001633 

000202 

001306 

001631 

006333 

002171 

001605 

006322 

002153 

006320 

000170 

000145 

001634 

001751 

002154 

002172 

000466 

001630 

002143 

006335 

001130 

006326 

000240 

002114 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 


MP$NXN= 

HPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

MPSONA 

MPSONR 

MPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

MPSOVE 

MPSOWN 

MPSPAR 

HPSPAS 

MPSPCH 

MPSPCO 

MPSPCT 

MPSPDT 

MPSPHA 

MPSPHY 

MPSPLJ 

HPSPLN 

MPSPLO 

HPSPHC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 

MPSRET 

MPSRFA 

MPSRMX 

MPSRPA 

HPSRPfi 

HPSRRT 

MPSRST 

MPSRSV 

MPSRSZ 

MPSRTI 

MPSRTM 

MPSRVE 

MPSRVT 

MPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MPSSDV 

MPSSEH 

HPSSER 

MPSSET 

MPSSGZ 

MPSSID 

MPSSIN 

MPSSU 


001476 
000632 
000620 
000776 
000214 
000764 
002114 
001453 
000777 
001022 
000777 
001010 
004374 
000036 
000513 
002152 
000024 
000144 
002114 
000170 
000012 
000025 
002140 
000012 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 
000144 
000000 
001644 
000176 
000310 
000156 


HPSSLO 
MPSSMX 
MPSSND 
MPSSNP 
MPSSNU 
MPSSOB 
MPSSPA 
MPSSPR 
MPSSPS 
MPSSTA 
MPSSTI 
MPSSTT 
MPSSTY 
MPSSUB 
MPSSUR 
MPSSUS 
MPSSVR 
MPSSWI 
MPSSYP 
HPSTFL 
HPSTHI 
MP$TH2 
MP$TH3 
HPSTLN 
MPSTLO 
HPSTPA 
MPSTR] 
MPSTST 
MPSTYP 
MPSUCS 
MPSUSR 
MPSVEC 
MPSVER 
MPSUDF 
HPSWMX 
MPSXMT 
MPSXPF 
MPSXPL 
MPSXPT 
MPSXXX 
MP$5ST 
MSSACT 
MSSADU 
MSSALO 
MSSASE 
MSSATR 
MSSAUT 
MSSCLE 
MSSDED 
MSSDIE 
MSSDUM 
MSSFAI 
MSSGLO 
MSSHOL 
MSSINA 
MSSLOA 
MSSLOO 


000171 
002202 
000500 
006332 
000542 
000524 
000157 
000536 
000513 
000000 
002140 
002201 
000175 
000001 
000156 
000512 
000163 
002260 
002424 
000156 
002206 
002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
]77777 
004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 


MSSOFF 

MSSON 

MSSPRO 

MSSREA 

HSSREF 

HSSRES 

MSSRST 

MSSRSX 

MSSRT 

MSSSER 

MSSSHU 

MSSSRV 

HSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MTSAR4 

MTSASC 

MTSBIL 

MTSBYS 

MTSCI 

MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

MTSETH 

HTSHEX 

MTSLPB 

MTSHAX 

MTSHUL 

MTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

HTSPHA 

MTSPOI 

MTSQP2 

MTSROU 

HTSR04 

MTSSEC 

MTSSGD 

MTSSYS 

MISTER 

MTSTRI 

MTSTYP 

MTSUSD 

HTSX25 

HUSINC 

MUSOUT 


000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
000001 
000004 
000006 
000040 
000005 
000037 
000100 
000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
0OOC02 
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CICHPO     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:U 
MACRO  CROSS  REFERENCE 


MACRO  NAME 

REFERENCES 

ALUNSS 

#5-55 

13-388 

3IAS 

#5-56 

CALL 

#5-58 

9-178 

10-205 

11-239 

13-A9^ 

13-496 

14-558 

14-564 

18-7A2 

19-791 

19-793 

20-893 

22-1022 

22-1025 

22-1028 

22-1031 

22-1052 

22-1055 

23-1102 

CALLR 

#5-58 

18-749 

19-800 

CALLX 

#5-58 

CCBDFS 

#5-56 

5-76 

CEACCS 

#5-55 

CICCXS 

#5-58 

6-86 

CTRDFS 

#5-56 

5-68 

DHBDFS 

#5-57 

5-81 

DIRS 

#13-388 

13-388 

#18-755 

18-755 

DMPDFS 

#5-62 

5-64 

ECDDBS 

#5-55 

5-74 

HDRDFS 

#5-57 

5-77 

MANDFS 

#5-53 

5-69 

MAP 

#5-56 

#5-56 

MESAGS 

#5-54 

7-98 

7-99 

7-101 

MOV$ 

#13-388 

13-388 

13-388 

13-388 

NSFDFS 

#5-54 

5-70 

NTLDFS 

#5-53 

5-71 

PDVDFS 

#5-53 

5-72 

PLBDFS 

#5-57 

5-79 

RE  SNAP 

#5-56 

12-304 

RESRG 

#5-53 

11-260 

13-431 

13-451 

RETC 

#5-56 

12-301 

18-751 

19-802 

RETURN 

9-179 

10-206 

11-261 

12-305 

18- ^52 

18-769 

19-803 

19-827 

22-1029 

22-1032 

22-1035 

22-1038 

23-1105 

24-1148 

SAVMAP 

#5-56 

12-298 

SAVRG 

#5-53 

11-227 

13-427 

13-477 

SLTDFl 

#5-54 

5-73 

SOB 

11-238 

13-430 

20-913 

SWSTKS 

12-297 

18-740 

19-791 

20-893 

TCBDFS 

#5-57 

5-80 

UCBDFS 

#5-57 

5-78 

WSIGSS 

#5-55 

18-755 

19-806 

XPODBS 

#5-57 

5-75 

K  8 
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12-297 
15-626 
20-895 
22-1034 


12-299 
15-632 
20-922 
22-1037 


13-387 
16-667 
20-925 
22-1040 


13-468 
17-698 
21-968 
22-1043 


13-478 
17-705 
21-993 
22-1046 


13-490 
18-740 
22-1019 
22-1049 


#19-806 


19-806 


13-479 

12-311 
20-926 
22-1041 


13-501 
20-929 
22-1044 


14-574 

21-1006 

22-1047 


15-644 

22-1020 

22-1050 


16-669 

22-1023 

22-1053 


17-706 

22-1026 

22-1056 
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CICHPX  - 
CKCST«  - 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 
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Check  circuit  is  in  STATE  OFF 

.SBTTL  CKCSTA  -  Check  circuit  is  in  STATE  OFF 
I- 
•**  CKCSTA  -  Check  circuit  is  in  STATE  OFF 

INPUTS 

R4  -  Address  of  context  area 

OUTPUTS 

Carry  clear  if  STATE  OFF  and  tine  loaded 
RO  -  error  code 
L$PAR(R4)  -  error  detail 
r1  destroyed 


000536 

000536  016401  000042 

000542  032761  040000  000000 

000550  001433 

000552  132764  000010  000041 

000560  001011 


000562  032761  100000  000000 

000570  001023 

000572  122761  000001  000020 

000600  001017 

000602  001426 


000604  132764  000002  000041 

000612  001415 

000614  016401  000050 

000620  132761  000200  000000 

000626  001004 

000630  1227',1  000001  000002 

000636  001410 


000640  012700  177765 
000644  000402 


000646  012700  177767 

000652  012764  000003  000072 


C00660 


CKCSTA: 


MOV     L$SLT(R4),R1 

BIT     #LF.fiDY,L.FLG(R1) 

BEQ     20$ 


BITB 
BNE 


#LP$HPT,L$PFG(R4) 
10$ 


;  Point  to  point  ' line' 

BIT  #LF.ACT,L.FLG(R1) 

BNE  20$ 

CMPB  #LN.0FF,L.NMST(R1) 

BNE  20$ 

BEQ  50$ 

;  Multipoint  'line' 

io$:    BITB  #LP$TRB,L$PFG(R4) 

BEQ  30$ 

MOV  L$TPT(R4),R1 

BITB  *SF.ACT,S.FLG(R1) 

BNE  20$ 

CMPB  #LN.0FF,S.NMST(R1) 

BEQ  50$ 

•  Wrong  state  error 


J0$: 


MOV     *ME.CST,RO 
BR      40$ 


;  No  tributary  error 

^0$; 
40$: 


MOV     #ME.IID,RO 

MOV     #ME$CIR,L$PAR(R4) 


Common  return 


RETURN 


50$: 


Get  SLT  pointer 
'Line'  must  be  loaded 
Branch  if  not  loaded 

Is  this  a  multipoint  line? 
Branch  if  multipoint 


Is  this  circuit  active? 
Error  if  circuit  is  active 
Check  line  is  OFF 
Branch  if  not  OFF 
Branch  if  OFF 


Was  trib  specified? 
Branch  if  no  trib  given 
Get  pointer  to  trib  flags 
Ensure  trib  not  active 
Branch  if  active 
Check  trib  is  OFF 


Return  wrong  state  error 


Return  invalid  format  error 
Indicate  component  in  error 
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CKHPX  CREATED  BY     MACRO     ON  29-JUN-85  AT   12:15 

SYMBOL   CROSS   REFERENCE 


7-125 


SYMBOL 

VALUE 

REFERENCES 

LSSNTL 

=  000001 

#6-104 

LSSNUM 

=  000100 

#6-104 

6-104 

LStOWN 

=  000010 

#6-104 

LSSPLT 

=  OOAOOO 

#6-104 

LStPRO 

=  010000 

#6-104 

LSSPVC 

=  020053 

#6-104 

9-188 

LSSRET 

=  000200 

#6-104 

6-104 

LStSER 

=  100000 

#6-104 

LSSSTA 

=  000002 

#6-104 

LSSSVC 

=  000362 

#6-104 

10-214 

LSSTAD 

=  000020 

#6-104 

LS$TH1 

=  000100 

#6-104 

LS$TH2 

=  000200 

#6-104 

LSSTH3 

=  OOOAOO 

#6-104 

LSSXMT 

=  040000 

#6-104 

L$ACT 

000104 

#6-104 

L$BBT 

000114 

#6-104 

L$BLK 

000262 

#6-104 

12-316 

LSBSA 

000122 

#6-104 

LSBSD 

000123 

#6-104 

L$BS1 

000124 

#6-104 

LSBUF 

000060 

#6-104 

LSCHN 

000054 

#6-104 

LSCMB 

000234 

#6-104 

7-123 

LSCDS 

000101 

#6-104 

L$CTB 

000053 

#6-104 

L$CTL 

000002 

#6-104 

LSCUS 

000260 

#6-104 

8-157 

LtDDM 

000000 

#6-104 

LSDDT 

000106 

#6-104 

L$DEA 

000105 

#6-104 

LSDLT 

000110 

#6-104 

L$DTE 

000240 

#6-104 

LSDTEL 

000236 

#6-104 

LSDTEP 

000250 

#6-104 

LSFLG 

000064 

#6-104 

L$FLX 

000076 

#6-104 

8-155 

13-334 

13-340 

L$FL1 

000066 

#6-104 

L$FL2 

000070 

#6-104 

LSHBT 

000254 

#6-104 

L$HTM 

000226 

#6-104 

L$INA 

000125 

#6-104 

L$IND 

000126 

#6-104 

LSINl 

000127 

#6-104 

L$LCT 

000224 

#6-104 

15-402 

L$LEN 

000264 

#6-104 

L$L1S 

000234 

#6-104 

L$lTM 

000250 

#6-104 

L$MRT 

000253 

#6-104 

LSMSG 

000056 

#6-104 

LIMTVP 

000075 

#6-104 
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7-130 


6-104 


7-128 


7-129 


13-343 


13-337 


8-160 


9-15 


9-190 


9-193 


10-214 


10-229 


12-313 
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CIRECH  -  Read  circuit  characteristics 


160  OOOKA 
161 

162  000H6 

163  000152 
16A  00015^ 

165  000162 

166  00016^ 

167  000172 

168  00017^ 

169  000200 

170  000202 

171  000206 

172  000212 

173  000216 

174  000220 

175  000224 
176 

177  000230 

178  000234 
179 

180  000236 

181  000244 

182  000246 

183  000252 

184  000254 
185 

186  000256 

187  000262 

188  000266 

189  000270 

190  000274 
191 

192 
193 

194  000276 

195  000302 

196  000304 

197  000312 

198  000314 

199  000322 

200  000324 

201  000330 

202  000334 
203 

204  000340 

205  000344 

206  000350 
207 

208  000354 

209  000360 

210  000362 

211  000366 

212  000370 

213  000372 

214  000376 


215 
216 


001116 


103431 
122762 
001025 
132762 
001421 
005762 
001416 
116246 
016202 
132726 
001404 
017702 
016202 

004567 
001441 

032760 
001414 
004567 
001604 
000001 

116002 
105760 
001402 
116102 
110223 


103424 
132762 
001420 
032764 
001014 
004567 
001605 
116223 

004567 
001606 
116223 


103410 
004567 
001612 
000002 
116723 
116723 


000012  000000 

000200  000001 

000036 

000001 
000036 
000100 

OOOOOOG 
000014 

002032 


040000  000000 
OOOOOOG 


000015 
000014 


22$: 
25$: 


000001 


000200  000001 

000020  000064 

OOOOOOG 

000001 

000040 

OOOOOOG 

000001 

000042 


30$: 


BNE  35$ 

CALL  FNDPLD 

BCS  25$ 

CMPB  #PS$UP,P$LST(R2) 

BNE  25$ 

BITB  #PT$BR0,P$TyP(R2) 

BEQ  25$ 

TST  P$DRTR(R2) 

BEQ  25$ 

MOVB  P$TYP(R2),-(SP) 

MOV  P$DRTR(R2),R2 

BJTB  #PT$DRT,(SP)+ 

BEQ  22$ 

HOV  aDECPT,R2 

MOV  D$LNUM(R2),R2 

JSfi  R5,SETN0D 

.WORD  MP$DfiO 

BIT  #LF.RDY,L.FLGCR0) 

BEQ  31$ 

JSR  RS.SETPAR 

.WORD  MP$COS 

.WORD  1 

MOVB  L.COST(R0),R2 

TST8  L.NSTA(RO> 

BEQ  30$ 

MOVB  S.C0ST(R1),R2 

MOVB  R2,(fi3)+ 


if  NE,  yes  -  skip  to  listen  timer 

locate  PL8  for  circuit 

if  CS,  not  a  transport  circuit 

is  [ink  state  =  up  ? 

if  EQ,  no 

Is  this  a  broadcast  channel  ? 

If  EQ,  no,  not  applicable 

any  endnodes  on  Ethernet  ? 

if  EQ,  no  -  not  applicable 

push  link  type  flags 

get  node  address  oT  designated  router 

are  WE  the  designated  router  ? 

if  EQ,  no 

else  point  to  DECnet  home  block;  RJKIO 

fetch  exec  address 

;  stuff  node  id 
;  designated  router 

;  Is  line  Loaded? 

;  if  EQ,  no  -  skip  cost  parameter 

;  SET  COST  PARAMETER 

;  ONE  DECIMAL  BYTE 

ASSUME  COST  =  LINE  COST 
MULTIPOINT  ? 
IF  EQ,  NO  -  WE  HAVE  COST 
ELSE,  GET  TRIB  COST 
SET  COST  INTO  MESSAGE 


RETURN  ROUTER  PRIORITY,  HELLO  AND  LISTEN  TIMERS 
5l$: 


CALL  FNDPLD 

BCS  32$ 

BITB  #PT$BR0,P$TYP(R2) 

BEQ  32$ 

BIT  #LF$END,L$FLG(R4) 

BNE  32$ 

JSR  R5,SETPAR 

.WORD  MP$MR0,1!MT$USD 

MOVB  P$NRNI(R2),(R3)+ 

JSR  RS.SETPAR 

.WORD  MP$RPR,11MT$USD 

MOVB  P$RPRI(R2),(R3)t 


OOOOOOG 


177414 
177411 


000402  005767  177406 


32$: 


35$: 


CALL 

BCS 

JSfi 

.WORD 

.WORD 

MOVB 

MOVB 

TST 


FNDHTM 

35$ 

R5,SETPAR 

MPiHTM 

2 

HTIM,(R3)+ 

HTIM+1,(R3)t 

LTIM 


get  PLB  address 

if  CS,  couldn't  do  it 

is  it  a  broadcast  channel  ? 

if  EQ,  no 

Is  this  an  end  node? 

If  yes  no  max  routers  or  router  pri 

set  parameter  =  MAXIMUM  ROUTERS 

1  byte  decimal  unsigned 

move  it 

else  set  parameter  =  ROUTER  PRIORITY 
1  byte,  decimal  unsigned 
moue  it 

get  hello  timer 

if  CS,  look  for  listen  timer 

HELLO  TIMER  PARAMETER 


STORE  LOU  BYTE  OF  HELLO  TIMER 
STORE  HIGH  BYTE 


;  any  listen  timer  found 
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FNDCTR  -  Find  counter  block 
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761  002570 

762 

763 

765  00257^, 

766  002604 

767  002606 

768  002610 

769  0026H 

770  002616 

771  002622 

772  002624 

773  002626 

774  002634 

775  002636 

776  002644 

777  002646 

778  002654 

779  002662 

780  002670 

781  002676 

782  002700 

783  002714 

784  002720 

785  002722 

786  002730 

787  002734 

788  002742 

789  002744 

790  002752 

791  002754 

792  002760 

793  002762 

794  002^64 

795  002772 

796  003000 

797  003002 

798  003004 


016101  000104 


005300 
002475 
026105 
001403 
062701 
000770 
000241 
032761 
001463 
032761 
001447 
012767 
016167 
016167 
022767 
101006 


010146 

016701 
032761 
001403 
052767 
012601 

000241 
000410 
012767 
116167 
000401 
000261 


000000 
000046 

000200  000044 
000100  000044 


000001 
000034 


175144 

175122 

000036  175116 
120000  175110 


175052 

000002  000010 

000004  175046 


000002  175026  35$ 
OOOC,  175010 


MOV 

N$TLCt4(R1>,Rl 

.ENDC 

;  NDF  X$$TLC 

BIAS 

R1 

20$: 

DEC 

RO 

BLT 

40$ 

CMP 

T$LIN(R1),R5 

BEQ 

30$ 

ADD 

#T$LLEN,R1 

BR 

CLC 

BIT 

20$ 

JUS: 

#PX$DLM,T$FLAG(R1) 

BEQ 

50$ 

BIT 

#PX$SVC,T$FLAG(R1) 

BEQ 

35$ 

MOV 

#FL. SVC. FLAG 

MOV 

t$svc(r1),svcmap 
t$svc+2(r1),svcadd 

MOV 

CMP 

#120000, SVCADD 

BHl 

33$ 

BIAS 

SVCADD 

3^: 

SAVMAP 

MOV 

R1,-(SP) 

MAP 

SVCMAP 

MOV 

SVCADD, Rl 

BIT 

#SF$INC,S$FLG(R1) 

BEQ 

34$ 

BIS 

#FL. INC, FLAG 
(SP)+,R1 

34$: 

MOV 

RESMAP 

CLC 

BR 

50$ 

3S$: 

MOV 

#FL.PVC,FLAG 

M0V8 

T$SVC+2(R1),PVCPRT 

BR 

50$ 

40$: 

SEC 

50$: 

RETURN 

POINT  TO  THE  FIRST 


SET  APR6  BIAS 

AT  END  OF  COUNTERS  ? 

IF  LT,  YES-PARAMETER  NOT  APPLICABLE 

ARE  THESE  THE  COUNTERS  ? 

IF  EQ,  VES  -  READ  THEM 

ELSE,  POINT  TO  NEXT  COUNTERS 

AND  KEEP  LOOKING 

INDICATE  FOUND  IT 

IS  THIS  A  DLM  CIRCUIT? 

BR  IF  NO 

IS  IT  AN  SVC? 

BR  IF  NO 

ELSE  INDICATE  SVC 

SAVE  SVC  APR  MAPPING 

SAVE  VIRTUAL  ADDRESS 

IS  DESCRIPTOR  IN  DSR? 

BR  IF  YES 

SET  APR6  BIAS 

save  mapping 

save  Rl  CTD002] 

map  to  SVC  descriptor 

point  to  SVC  descriptor 

is  this  an  incoming  SVC  ? 

if  EQ,  no-  must  be  outgoing 

else  set  incoming  bit  in  flags 

restore  Rl  [TD002] 

restore  mapping 

BE  SURE  CARRY  IS  CLEAR 

AND  EXIT 

INDICATE  PVC 

SAVE  PVC  PORT  NUMBER 

AND  EXIT 

INDICATE  NOT  FOUND 


■TDcru    _    DCAr»    riDriHT    ruADATTCD    MATDn    UCi'^    n?h    ^AfiirHav    ?9- 
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CREf       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

Lf .UNL 

=  020000 

#6-70 

LF.X2P 

=  000000 

#6-70 

LN.CLO 

=  000000 

#6-70 

LN.DUM 

=  000005 

#6-70 

LN.LOA 

=  OOOOOA 

#6-70 

LN.LOO 

=  000003 

#6-70 

LN.OAU 

=  000003 

#6-70 

LN.OFF 

=  000001 

#6-70 

LN.ON 

=  000000 

#6-70 

LN.OOP 

=  00000^ 

#6-70 

LN.OPE 

=  000001 

#6-70 

LN.REF 

=  000002 

#6-70 

LN.SER 

=  000002 

#6-70 

LN.STA 

=  000017 

#6-70 

LN.SUB 

=  000360 

#6-70 

LN.TRI 

=  000006 

#6-70 

LPSMPT 

=  000010 

#7-81 

LPSMUX 

=  000004 

#7-81 

LPSTRB 

=  000002 

#7-81 

LPIUNT 

=  000001 

#7-81 

LPSUCN 

=  000040 

#7-81 

7-81 

LPSWDV 

=  000020 

#7-81 

7-81 

LPSWLD 

=  000360 

#7-81 

LPSUTR 

=  000200 

#7-81 

7-81 

LPSWUN 

=  000100 

#7-81 

7-81 

LTIH 

OOOOK  R 

#8-95 

*9-153 

9-216 

9-221 

9-222 

♦14-593 

L$ADJ 

000110 

#6-81 

♦14-548 

♦14-564 

15-628 

♦15-629 

LSBUF 

000060 

#6-81 

14-575 

14-580 

LSCHN 

000054 

#6-81 

10-360 

15-634 

LSCOU 

000114 

#6-81 

*14-547 

♦14-561 

♦14-562 

•14-563 

15-626 

♦15-630 

L$CT8 

000053 

#6-81 

LSCTL 

000002 

#6-81 

L$DDM 

000000 

#6-81 

9-229 

9-262 

9-284 

9-303 

20-900 

LSFLG 

000064 

#6-81 

♦9-144 

9-149 

9-159 

9-198 

9-223 

9-241 

*9-332 

14-525 

14-558 

♦14-574 

♦14-579 

LSFLX 

000070 

#6-81 

L$LTM 

000070 

#6-81 

14-552 

14-570 

♦15-640 

LSMSG 

000056 

#6-81 

LSMTYP 

000067 

#6-81 

LSNAM 

000000 

#6-81 

LSNLEN 

=  000020 

#6-81 

6-81 

6-81 

L$NOD 

000112 

#6-81 

14-553 

14-571 

15-637 

L$NXT 

000044 

#6-81 

LSOPT 

000062 

#6-81 

LSPAR 

000120 

#6-81 

LSPDV 

000055 

#6-81 

10-353 

14-517 

L$PFG 

000041 

#6-81 

L$PLB 

000116 

#6-81 

LSPRO 

000067 

#6-81 

LSPVC 

000004 

#6-81 

LSSCN 

000020 

#6-81 

L$5CR 

000072 

#6-81 

16-687 

9-330 


i-nc  A  Tr:r\ 


IM-OQ     AT     lO-IA 
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000002 
000003 
000004 
000005 
000006 

000000 


Page  6-1 


B%7: 

.BLKB   1 

BtlO: 

.BLKB   1 

B$11: 

.8LKB   1 

B$12: 

.BLKB   1 

B$7S10: 

.BLKB   1 

.EVEN 

.PSECT 

BASE  TABLE  +  7 

BASE  TABLE  +  10 

BASE  TABLE  +  11 

BASE  TABLE  ♦  12 

SUM  OF  BASE  TABLE  7  AND  10 


nr\     r  r  nr  [ 


i/AC     A7k     Q^t-.i: 


L  U 

-o";   19.17     0= 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

ZF.DDM 

=  000001 

#5-64 

ZF.DIA 

=  004000 

#5-64 

ZF.DLC 

=  000002 

#5-64 

ZF.DVP 

=  100000 

#5-64 

Zf.INl 

=  040000 

#5-64 

ZF.KMX 

=  000020 

#5-64 

ZF. LLC 

=  000004 

#5-64 

ZF.LMC 

=  000100 

#5-64 

ZF.MAN 

=  020000 

#5-64 

10-164 

ZF.MFL 

=  000010 

#5-64 

ZF.MTM 

=  000400 

#5-64 

ZF.MUX 

=  000040 

#5-64 

ZF.PSE 

=  002000 

#5-64 

ZF.SLI 

=  010000 

#5-64 

ZF.TIM 

=  000200 

#5-64 

ZF.X3P 

=  000000 

#5-64 

ZS.ASN 

=  100000 

#5-64 

ZS.BSY 

=  140000 

#5-64 

Z.AVL 

000014 

#5-64 

Z.DAT 

000016 

#5-64 

Z.05P 

000000 

#5-64 

5-64 

Z.FLG 

000010 

#5-64 

10-154 

Z.LEN 

=  000016 

#5-64 

2.LLN 

000006 

#5-64 

Z.MAP 

000020 

#5-64 

Z.NAM 

000004 

#5-64 

10-15? 

Z.PCS 

000012 

#5-64 

Z.SCH 

000007 

#5-64 

SPRCCO 

=  «♦♦*••  GX 

10-166 

10-164 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

BITO 

=  000001 

#5-62 

BIT1 

=  000002 

#5-62 

B  T10 

=  002000 

#5-62 

B  Til 

=  004000 

#5-62 

3IT12 

=  010000 

#5-62 

31T13 

=  020000 

#5-62 

3ITU 

=  040000 

#5-62 

31 T'.  5 

=  100000 

#5-62 

B1T2 

=  000004 

#5-62 

3IT3 

=  000010 

#5-62 

BITA 

=  000020 

#5-62 

3  T5 

=  000040 

#5-62 

3  T6 

=  000100 

#5-62 

BIT7 

=  000200 

#5-62 

BITS 

=  000400 

#5-62 

BIT9 

=  001000 

#5-62 

B$10 

000003 

#5-62 

B$11 

000004 

#5-62 

000005 

#5-62 

9^5 

000000 

#5-62 

BSo 

000001 

#5-62 

bI? 

000002 

#5-62 

B$7S10 

000006 

#5-62 

CHKCIR 

=  *»»*«»  GX 

6-134 

CIREIN 

000000  RG 

#6-93 

HE  ADR 

-  »*««•*  GX 

6-153 

H.LUN 

000076 

6-154 

LFSENO 

=  000020 

#5-62 

6-160 

LfSMLT 

=  040000 

#5-62 

LFtREA 

=  000001 

#5-62 

6-162 

LFSSEG 

=  100000 

#5-62 

LFSSIG 

=  000040 

#5-62 

6-131 

LFSSKP 

=  000004 

#5-62 

LF$VR2 

=  000010 

#5-62 

LFSZER 

=  000002 

#5-62 

LPSMPT 

=  000010 

#5-62 

LPSMUX 

=  000004 

#5-62 

LPITRB 

=  000002 

#5-62 

LPSUNT 

=  000001 

#5-62 

LPSWCN 

=  000040 

#5-62 

5-62 

LPSWDV 

=  000020 

#5-62 

5-62 

LPSWLD 

=  000360 

#5-62 

LPIWTR 

=  000200 

#5-62 

5-62 

LPSWUN 

=  000100 

#5-62 

5-62 

LtADJ 

000110 

#5-62 

L$BUF 

000060 

#5-62 

•6-96 

LICHN 

000054 

#5-62 

6-107 

L$COU 

000114 

#5-62 

L$CTB 

000053 

#5-62 

L$CTL 

000002 

#5-62 

L$DDM 

000000 

#5-62 

LSFLG 

000064 

#5-62 

•6-131 

6-161 


•6-160 


•6-162 


♦6-169 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

LtPRO 

C00075 

#6-72 

LSPVC 

OOOOOA 

#6-72 

L$RET 

000256 

#6-72 

♦26-1011 

LtSCN 

000020 

#6-72 

L$SCR 

000166 

#6-72 

LtSER 

000230 

#6-72 

LSSLEN 

000074 

#6-72 

LSSLT 

000042 

#6-72 

L$SNM 

000046 

#6-72 

LtSTA 

000100 

#6-72 

L$TAD 

000103 

#6-72 

♦14-727 

L$TH1 

000130 

#6-72 

♦38-1251 

Lr.TH2 

000131 

#6-72 

♦39-1269 

L$TH3 

000132 

#6-72 

♦40-1287 

LSTNM 

000052 

#6-72 

LSTPT 

000050 

#6-72 

LITRB 

000040 

#6-72 

L$TYP 

000063 

#6-72 

10-549 

LSUNT 

000003 

#6-72 

LSXCH 

000232 

#6-72 

♦20-886 

LSXMT 

000120 

#6-72 

♦31-1125 

L.COST 

000015 

#5-67 

L.CTL 

000012 

#5-67 

L.CVA 

177776 

#5-67 

L.DDM 

000002 

#5-67 

L.DDS 

000004 

#5-67 

L.DLC 

000003 

#5-67 

L.DLM 

000006 

#5-67 

L.DLS 

000010 

#5-67 

L.FLG 

000000 

#5-67 

L.<RBA 

000016 

#5-67 

L.LEN 

=  000022 

#5-67 

L.MPF 

000022 

#5-67 

L.NMST 

000020 

#5-67 

L.NSTA 

000014 

#5-67 

L.OUNR 

000021 

#5-67 

u.iJMT 

000013 

#5-67 

MAX"    N 

=  007777 

#7-76 

20-888 

ME$f IR 

000003 

10-545 

15-758 

ME.C5T 

177765 

15-762 

ME. FOR 

177776 

10-555 

ME.FuN 

1''7777 

10-538 

ME.  I  ID 

177767 

10-548 

15-757 

ME . PNA 

177752 

15-750 

ME.PVA 

177760 

15-753 

MFSAf  >■ 

177776 

10-549 

MOSClE 

000100 

10-539 

MS.MOR 

000002 

10-567 

MXBi'' 

001400  R 

#41-1304 

WXD^E 

=  000017 

117-77 

22-931 

.VIXBA'' 

001042  R 

#24-975 

MX*--.'  f 

001054   R 

#25-992 

♦20-887 


20-888 


15-763 


23-957 


CICHIN 
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000020 
000040 
000100 
000200 
000360 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
010000 
020000 
040000 
100000 


LPSWDV 
LPSWCN 
LPSWUN 
LPSWTR 
LPSWLD 


20 
40 
100 
200 


WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


LP$WDV!LP$WCNILf'$WUNILP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (LSFLG) 


LS$NTL= 
LS$STA= 
LS$COS= 
LS$OWN= 
LS$TAD= 
LS$ACT= 
LS$DEA= 
LC$NTL= 
LC$OWN= 
LS$DDT= 
LS$DLT= 
LS$PLT= 
LS$BBT= 
LS$NMT= 
LS$XMT= 
LS$SER= 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


NTL  SET  FUNCTION 

SET  SMTE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLED 


FLAGS  WORD  BIT  DEFINITIONS  (LSFLl) 

LS$BSA=1  ;  SET  ACTIVE  BASE 

LS$BSD=2  ;  SET  DYING  BASE 

LS$BSI=4  ;  SET  INACTIVE  BASE 

LS$INA=10  ;  SET  ACTIVE  INCREMENT 

LS$IND=20  ;  SET  DYING  INCREMENT 

LS$IN1=40  ;  SET  INACTIVE  INCREMENT 

LS$TH1=100  ;  SET  DEAD  THRESHOLD 

LS$TH2=200  ;  SET  DYING  THRESHOLD 

LS$TH3=400  ;  SET  INACTIVE  THRESHOLD 

LS$MXB=1000  ;  SET  MAXIMUM  BLOCKS 

LS$HTM=10000  ;  SET  HELLO  TIMER 

LS$MDT=20000  ;  SET  MODEM  TEST 

LS$LOO=40000  ;  SET  CONTROLLER  LOOPBACK 

LS$N0R=1 00000  ;  SET  CONTROLLER  NORMAL 
.IF  DF  R$$PRO  ;  PRO/DECNET 

LOOPBACK  TYPE  WORD  BIT  DEFINITIONS  (L$LTY) 


L'"«INT  =  0 
LbiEXl  =  1 


INTERNAL  LOOPBACK 
EXTERNAL  LOOPBACK 


MODEM  TEST  TYPE  WORD  BIT  DEFINITIONS  (L$MDT) 


LSSLCL  =  0 
LSSREM  =  1 
LSiOFF  =  2 
.ENDC   ;  DF  R$$PRO 


LOCAL  MODEM  TEST 
REMOTE  MODEM  TEST 
SHUT  OFF  MODEM  TESTS 


Flags  word  bit  definitions  for  X.25  circuits  and  lines  (LIFLX) 
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Symbol  table 


MP$ALB 

000036 

HP$DLI= 

001466 

MPSMAR 

001635 

MPSPCO 

000024 

MPSSVR 

000163 

MPSAMC 

001640 

MPSDLT 

002200 

MPSMAV 

006321 

MPSPCT 

000144 

MPSSWI 

002260 

UPtAMH 

001641 

MPSDRO 

001441 

HPSMBN 

001636 

MPSPDT 

002114 

MPSSYP 

002424 

nPSANB 

004420 

MPSDST 

000454 

HPSMBR 

001637 

HPSPHA 

sssns 

HPSTfL 

000156 

MPSASB 

000024 

MPSDTE 

002140 

MPSMBU 

001642 

MPSPHY 

000012 

HPSTHI 

002206 

MPtASC 

004432 

HP$DTY= 

001452 

MPSMC8 

000156 

MPSPLJ 

000025 

MP$TH2 

002205 

MPSAUS 

000512 

HPSDUA 

000207 

MPSHCO 

001632 

MPSPLN 

002140 

MP$TH3 

002202 

MPSBBT 

002165 

MPSDUC 

000210 

HPSMDE 

004421 

MPSPLO 

000012 

MPSTLN 

000202 

MPSBDF 

002164 

HPSDUM 

000202 

MPSMHO 

001633 

MPSPHC 

004374 

MPSTLO 

000172 

MPSBFQ 

002121 

MPtDUP 

002127 

MPSMLB 

000202 

MPSPNT 

002126 

MPSTPA 

004375 

MPSBLK 

001616 

HPSDVC 

002114 

HPSMLK 

001306 

MPSPRI 

004411 

HPSTRI 

002164 

MPSBLO 

001452 

MP$DWE 

001321 

MPSHLN 

001631 

MPSPRO 

002130 

MPSTST 

000144 

MPSBMX 

002176 

MPSELT 

000157 

MPSMLP 

006333 

HPSPSS 

001763 

MPSTYP 

002130 

MP$BNP 

006330 

MPIETY 

001605 

HPSMRB 

002171 

MPSPST 

001762 

MPSUCS 

004407 

MPSBRT 

001620 

MPSEVE 

000311 

HPSMRO 

001605 

MPSRET 

001631 

MPSUSR 

001750 

MPSBSA 

002176 

MPSFNC 

001752 

MPSMRP 

006322 

MPSRFA 

001323 

MPSVEC 

004410 

MPtBSD 

002203 

MPSGDT 

002222 

MPSMRT 

002153 

MPSRMX 

002201 

MPSVER 

004406 

1   1"    ^ftmj  ^  \^ 

MPSBSI 

002200 

MPSGNM 

002223 

MPSHRV 

006320 

MPSRPA 

004374 

MPSWDF 

002165 

MPSBSP 

006331 

MPSGRO 

002115 

MPSMSB 

000170 

HPSRPR 

223,§?§ 

HPSUMX 

002177 

MPSBUF 

000170 

MPSGRP 

000541 

MPSMVE 

000145 

MPSRRT 

002213 

MPSXMT 

002166 

MPSBUP 

006324 

MPSGTY 

002224 

MPSMVI 

001634 

MPSRST 

002212 

MPSXPF 

000242 

MPSBUS 

001643 

MPSHAD 

001757 

MPSMVR 

001751 

MPSRSV 

^^^l\h 

HPSXPL 

000244 

MPtCAC 

001750 

MPSHBT 

002142 

MPSHUN 

002154 

MPSRSZ 

001756 

MPSXPT 

000240 

MPSCAS 

001762 

MPSHDD 

000162 

HPSMXB 

002172 

MPSRTJ 

001616 

MPSXXX 

177777 

MPSCAT 

002210 

HPSHTH 

001612 

MPSMXC 

000466 

HPSRTM 

001611 

MP$5ST 

004406 

MPSCCS 

004406 

MPSHUA 

002210 

HPSMXR 

001630 

MPSRVE 

001604 

MSSACT 

000001 

MPSCHN 

002141 

MPS I AT 

001322 

MPSMXW 

002143 

MPSRVT 

000156 

MSSADU 

000010 

HPSCIR 

000144 

MPSIDE 

000144 

MPSNAA 

006335 

MPSSAC 

000514 

MSSALO 

000007 

MPSCLK 

002131 

MPSIDP 

006327 

MPSNAC 

001130 

MPSSAD 

000543 

MSSASE 

000006 

MPSCLN 

002126 

MPS I HO 

000215 

MPSNAP 

006326 

MPSSCA 

000310 

HSSATR 

00001 1 

HPSCLT 

002211 

MPSINA 

002177 

MPSNCT 

000240 

MPSSCO 

000144 

MSSAUT 

000000 

MPSCMB 

002142 

MPSIND 

002204 

MPSNET 

002114 

MPSSCT 

002176 

MSSCLE 

000003 

MP$CM< 

000537 

MPSINI 

002201 

MPSNLl 

000765 

MPSSDU 

000203 

MSSDED 

000004 

MPSCMX 

002153 

MPSITI 

000776 

MPSNNA 

000764 

MPSSDV 

000160 

HSSDIE 

000003 

MPSCND 

000310 

HPSLAA 

000231 

HPSNOD 

000500 

MPSSEH 

004401 

HSSDUM 

000004 

MPSCNU 

001753 

MPSLAN 

000234 

MPSNRA 

006334 

MPSSER 

9291^^ 

MSSFAI 

99991^ 

MPSCOB 

000311 

MPSLAR 

000202 

MPSNRB 

000214 

MPSSET 

000000 

MSSGLO 

000000 

MP$CON 

002126 

HPSLAS 

000012 

MPSNSA 

001617 

NPSSGZ 

001644 

MSSHOL 

000002 

MPSCOS 

001604 

MPSLBS 

000203 

MPSNTI 

002141 

MPSSID 

9991?§ 

MSSINA 

000002 

MPSCPF 

000230 

MPSLCO 

000226 

MPSNUM 

001642 

MPSSIN 

000310 

MSSLOA 

000003 

MPSCPL 

100232 

MPSLLT 

000156 

MPSNVE 

001274 

MPSSLI 

000156 

MSSLOO 

000002 

MPSCPT 

''26 

MPSLHL 

000232 

MPSNXN= 

001476 

MPSSLO 

9003,n 

HSSOFF 

000001 

HPSCPU 

•61 

MPSLLE 

000227 

MPSOAC 

000632 

MPSSMX 

002202 

MSSON 

000000 

MPSCSZ 

Ol-755 

MPSLLO 

004432 

MPSOAN 

000620 

MPSSND 

000500 

HSSPRO 

000006 

MPSCUS 

002127 

MPSLMB 

002152 

MPSOCO 

000776 

MPSSNP 

006332 

MSSREA 

000004 

MPSCVA 

000540 

MPSLMX 

002200 

MPSOHO 

000214 

MPSSNU 

2995^? 

MSSREF 

992221 

MPSDAL 

002570 

HPSLNA 

000144 

HPSONA 

000764 

MPSSOB 

000524 

MSSRES 

000003 

MP$DCO= 

001464 

MPSLNO 

000233 

MPSONR 

002114 

MPSSPA 

000157 

MSSRST 

000001 

MPSDDT 

002177 

MPSLOA 

000170 

HPSOQL 

001453 

MPSSPR 

999^^1 

MSSRSX 

000002 

MPSDEL 

001131 

MPSLOG 

004514 

MPSOTI 

000777 

MPSSPS 

000513 

MSSRT 

000005 

HPSDES 

000156 

MPSLOO 

000620 

MPSOTY 

001022 

MPSSTA 

000000 

HSSSER 

000002 

MPSDEV 

002114 

MPSLTM 

001613 

MPSOUS 

000777 

MPSSTI 

92?li9 

MSSSHU 

000002 

MPSDFA 

001320 

MPSLTY 

004533 

MPSOVE 

001010 

MPSSTT 

002201 

MSSSRV 

000007 

MP$DHO= 

001465 

MPSLUI 

000230 

MPSOWN 

004374 

MPSSTY 

000175 

MSSSTA 

000000 

MPSDIA 

000173 

MPSMAC 

004420 

MPSPAR 

000036 

MPSSUB 

99909] 

MSSSYN 

000012 

MPSDLB 

002571 

HPSMAD 

001630 

MPSPAS 

000513 

MPSSUR 

000156 

MSSTER 

000001 

MPSDLG 

004521 

MPSMAP 

006323 

MPSPCH 

002152 

MPSSUS 

000512 

MSSTOP 

000003 

MPSSTY 

000175 

MSSSTA 

000000 

MPSSUB 

000001 

MSSSYN 

000012 

MPSSUR 

000156 

MSSTER 

000001 

MPSSUS 

000512 

MSSTOP 

000003 
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267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 

283  000566 

284  000566 

285  000572 

286  000600 

287  000606 

288  000610 

289  0006H 

290  000620 

291  000626 

292  000634 

293  000636 

294  000642 

295  000650 
296 

297  000652 

298  000656 

299  000662 
500  000666 

301  000670 

302  000702 

303  000704 

304  000712 

305  000716 
306 

307  000720 

308  000722 

309  000726 

310  000730 

311  000732 
312 

313 
314 


.SBTTL  SETHTM  -  SET  HELLO  TIMER 

SETHTM  -  SET  HELLO  TIMER 

INPUTS: 

L$SLT(R4)  -  SLT  ADDRESS 
L$HTM(R4)  -  HELLO  TIMER 

OUTPUTS: 

RO  -  SUCCESS  CODE 

N.B.  *♦*  THIS  CODE  CHANGES  APR6  MAPPING  AND  MUST  RESIDE  IN  APR5  SPACE  •** 


012700 
012764 
022764 
001450 
016401 
012700 
012764 
032761 
001435 
012700 
012764 
000241 


103006 

000403 
016461 


103404 
005064 
000401 
000261 


177752 

001612  000072 

177777  000050 

000042 
177765 

000001  000072 
040000  000000 

177752 

001612  000072 


SETHTM:: 


000226  000030 


000072 


10$: 
20$: 


30$: 


40$: 
50$: 


MOV 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
BIT 
BEQ 
MOV 
MOV 
CLC 

SWSTK$ 

SAVMAP 

CALL 

BCC 

RETC 

BR 

MOV 

RESMAP 

RETURN 

BCS 

CLR 

BR 

SEC 

RETURN 

.ENDC 


#ME.PNA,RO 

#MP$HTM,L$PAR(R4) 

#-1,L$TPT(R4) 

40$ 

L$SLT(R4).R1 

*ME.CST,R0 

#HE$LIN,L$PAR(R4) 

#LF.RDY,L.FLG(R1) 

40$ 

#ME.PNA,RO 

#MP$HTM,L$PAR(R4) 

30$ 

FNDCTR 

10$ 

RO 

20$ 

L$HTM(R4),T$T5(R1) 


50$ 

L$PARCR4) 

50$ 


NDF  R$$11S 


ASSUME  PARAMETER  NOT  APPLICABLE 

IS'tHIS  A  PVC? 

BR  IF  YES 

GET  SLT  ADDRESS 

ASSUME  LINE  IS  IN  URONG  STATE 

is' THE  LINE  LOADED? 

BR  IF  NO 

ELSE  ASSUME  PARAMETER  NOT  APPLICABLE 

ASSUME  SUCCESS 

ENTER  SYSTEM  STATE 
SAVE  CURRENT  MAPPING 
FIND  COUNTER  BLOCK 
BR  IF  FOUND  IT 
ELSE  SET  USER  C-BIT 
AND  EXIT 

STORE  HELLO  TIMER 
RESTORE  PREVIOUS  MAPPING 


EXIT  IF  ERROR 
CLEAR  ERROR  DETAIL 
AND  EXIT 
ELSE  INDICATE  ERROR 
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LINOFF  -  TURN  CIRCUIT  OFF 


771 

772 

773 

77A 

775 

776 

777 

778 

779 

780 

781 

782 

783 

78A 

785 

786 

787 

788 

789  002AU 

790 

791  002AU 

792  002A20 

793  002422 
79A  002A26 

795  002A30 

796  002436 

797  002AA4 

798  002450 

799  002454 

800  002462 
801 

802  002466 

803  002500 
804 

805  002502 

806  002504 

807  002512 
808 

809  002514 

810  002520 

811  002526 

812  002530 

813  002534 

814  002542 

815  002546 

816  002550 
817 

818 
819 

820  002554 

821  002560 

822  002562 

823  002566 

824  002570 

825  002572 

826  002600 

827  002602 


.S8TTL  LINOFF  -  TURN  CIRCUIT  OFF 

••-LINOFF-TURN  CIRCUIT  OFF 

THIS  ROUTINE  IS  CALLED  TO  TURN  A  CIRCUIT  OFF 

INPUTS: 
R4 


ADDRESS  OF  THE  CONTEXT  BLOCK 


OUTPUTS: 

IF    CC,    CIRCUIT    TURNED   OFF, 
ELSE,   ERROR  RETURN   IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


010405 

103417 
116564 
116564 
005064 
005064 
012764 


103004 

000740 

016401 
032761 
001421 
016401 
1427b1 
116100 
010102 
062702 


132712 
001007 
062702 
005300 
003371 
042761 
000241 


LINOFF: 
10$: 


000055 
000054 
000004 
000012 
002006 


000007 
000006 


000010 


20$ 

;  ENTER  SYSTEM  STATE 

R4,R5 

;  SAVE  ADDRESS  OF  CONTEXT  BLOCK 

aCCSGT 

;  TRY  TO  ALLOCATE  A  CCB 

15$                 ; 

;  IF  CS,  ALLOCATION  FAILURE 

L$PDV(R5),C.STA(R4) 

;  SET  UP  PDV  AND 

L$CHN(R5),C.LIN(R4) 

CHANNEL  #  TO  TURN  OFF 

C.NSP(R4) 

;  SET  RETURN  TO  AUX 

C.STS(R4) 

;  TURN  CIRCUIT  OFF 

#FC.CTL!FS.STP,C.FNC(R4); 

;  SET  UP  FUNCTION  CODE 

aLLCRS 

;  QUEUE  CCB  TO  THE  LLC 

000042 
000020 

000050 
000200 
000014 

000022 


000000 
000000 


15$: 


20$: 


25$: 


40$: 


.ENABL  LSB 


SWSTK$ 

MOV 

CALL 

BCS 

HOVB 

MOVB 

CLR 

CLR 

MOV 

CALLR 


RETC  RO 
RETURN 

BCC  25$ 

WS1G$S 

BR  10$ 

MOV  L$SLT(R4),R1 

BIT  #LF.MTP,L.FLG(R1) 

BED  45$ 

MOV  L$TPT(R4),R1 

BIC8  #SF.ACT,S.FLG(R1) 

MOVB  L.NSTA(R1),R0 

MOV  R1,R2 

ADD  #L.MPF,R2 


;  RJK08 


RJK08 


000200 
000004 

100000  000000 


SCAN  ALL  STATIONS  ON  THIS  CIRCUIT 


43$: 


45$ 
50$ 
60$ 


BITB 

BNE 

ADD 

DEC 

BGT 

BIC 

CLC 

RETURN 


#SF.ACT,(R2) 

50$ 

#S.LEN,R2 

RO 

43$ 

#LF.ACT,L.FLG(R1) 


;  SET  USER  C-BIT 

;  LEAVE  SYSTEM  STATE 

IF  CC,  CCB  WAS  QUEUED 
ALLOCATION  FAILURE  ...  WAIT  A  BIT 
THEN  TRY  AGAIN 

GET  SLT  ADDRESS 

MULTI-POINT  CIRCUIT? 

BR  IF  NO 

POINT  TO  STATION  TABLE 

TURN  THE  CIRCUIT  OFF 

CHECK  IF  CIRCUIT  NO  LONGER  ACTIVE 

COPY  SLT  POINTER 

POINT  TO  MULTI-DROP  FLAGS  BYTE 


IS  THIS  STATION  ACTIVE  ? 
IF  MI,  YES  -  CIRCUIT  STILL  ACTIVE 
ELSE,  POINT  TO  NEXT  FLAGS  BYTE 
LOOP  STATION  #  TIMES 

ClRCUlfNO  LONGER  ACTIVE 


r  T  ruDn  -  r  i 
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MUSPER 

MVSIII 

MV$IV 

MXBTBI 

MXSACT 

MXtCIR 

MXSCLN 

MX$CNM 

MXSCON 

MXtDAC 

MXSDTE 

MXSFIL 

MXSLGC 

MXSLIN 

MXSLON 

MXSNMS 

MXtNOD 

MX $08 J 

•1X$0UN 

MXSPAR 

MXSPAS 

MXSRAC 

MXSRID 

MXSRPS 

MXSSID 

MXSSNK 

MXSTYP 

MXSUID 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$SMGE= 

M$$NET= 

M$$OVR= 

NF$ACC= 

NF$BLK= 

NF$0MO= 

NF$EVT= 

NF$MOU= 

NF$RST= 

NF$SCN= 

NFSSHU- 

NF$TIM= 

NF.ACC= 

NF.BCP= 

NF.END= 

NF.EVT= 

NF.LLI= 

NF.LV2= 

NF.SLI= 

NF.SMC= 

NF.SWP= 

NMTTBL 

NH.CLN 

NM.INI 

NM.OPR 

NM.VR2 


000000 

000000 

000001 

00031  OR 

000020 

000020 

000020 

000006 

000006 

000020 

000020 

000034 

000777 

000020 

000006 

000454 

000006 

000006 

000040 

000036 

000010 

000047 

000047 

000047 

000040 

000377 

000077 

000020 

000124 

000000 

000000 

000000 

000000 

000000 

100000 

000100 

000010 

040000 

000040 

000002 

000020 

000004 

000200 

000001 

000040 

000200 

000002 

000004 

000100 

000400 

000020 

000010 

0001 32R 

003400 

002400 

003000 

002401 


NM.VR3 

002402 

N$$MLL= 

000001 

P$LEN 

000052 

NODMSG 

000074R 

N$$HOV= 

000010 

P$LST 

000000 

NTLLIN 

000446R 

N$$NCT= 

000001 

PSNRNI 

000040 

NTLMSG 

000035R 

N$$PEM= 

000001 

PSOCCB 

5589J9 

NTLSND= 

**«*♦*  GX 

PDVJD  = 

*»♦♦*♦  GX 

PSPFQ 

000006 

NSACO 

000000 

PDVTA  = 

*»*«*♦  GX 

PSPKSZ 

000044 

N$ACTL 

000032 

PF$BLK= 

020000 

P$RHX1 

000016 

NSADJl 

000072 

PF$CLC= 

010000 

P$RMX2 

9S2S?S 

N$ADJ2 

000074 

PF$DLH= 

100000 

PSRPR] 

000042 

NSCACH 

000062 

PF$EIP= 

000002 

PSRTIM 

000003 

N$CIR 

000034 

PF$ENB= 

000001 

PSSTAl 

0089?? 

N$CRC 

000120 

PF$FAI= 

004000 

P$STA2 

000023 

N$DLA 

000020 

PF$FM1= 

000100 

PSTIM 

000010 

N$DLY 

000014 

PF$FM2= 

000200 

PSTSCT 

000026 

NSELEN 

000054 

PF$OFF= 

000000 

PSTSIZ 

9252?^ 

NSENC 

000042 

PF$RM1= 

000020 

PSTVP 

000001 

NSERRC 

000022 

PF$RI«I2= 

000040 

P$$P45= 

000000 

NSFLG 

000005 

PF$RVR= 

000010 

P$$URD= 

000000 

NSFNC 

000006 

PF$STA= 

000004 

P.ACTC 

29991? 

N$GENO 

000052 

PF$SVC= 

040000 

P.CFNC 

000034 

N$GTM 

000015 

PFSUP  = 

000004 

P. CHAR 

000042 

NSHCl 

000052 

PR$BED= 

000200 

P.CONT 

000067 

N$HC2 

000056 

PR$BEU= 

000100 

P.DEDT 

000100 

NSHIGH 

000033 

PR$BRD= 

000040 

P.DELT 

000076 

N$LLT 

000026 

PR$8RU= 

000020 

P.DISL 

000006 

NILLTM 

000024 

PR$DWN= 

000002 

P.DISR 

000004 

N$LVC 

000036 

PR$LCC= 

000010 

P.DVRF 

000047 

NSLVl 

000002 

PR$MOP= 

000004 

P.DVTH 

000046 

N$LV2 

000010 

PR SUP  = 

000001 

P.ECCB 

000064 

NSMBXO 

000050 

PS$CHR= 

000016 

P.ENBC 

99991] 

NSMHCl 

000036 

PS$FAI= 

000014 

P.HDER 

000056 

N$MHC2 

000044 

PS$NTI= 

000006 

P.INPQ 

000036 

N$PLD 

000016 

PS$OFF= 

000000 

P.LEN  = 

000154 

NSPLLT 

000030 

PS$STR= 

000002 

P.LERR 

000054 

N$PRI 

000076 

PSSUP  = 

000012 

P. LINE 

000010 

NSROAl 

000022 

PS$VER= 

000010 

P. MODE 

2222^9 

N$R0A2 

000030 

PSSWT  = 

000004 

P. MODI 

000061 

NSRTMX 

000014 

PT$BRO= 

000200 

P.MTER 

000057 

NSRTHI 

000014 

PT$DRT= 

000100 

P.0FFS= 

000046  G 

N$RTM2 

000015 

PT$END= 

000004 

P.PARM 

000070 

NSRTl 

000000 

PT$LV1= 

000002 

P.PIND 

000066 

N$RT2 

000006 

PT$LV2= 

000001 

P.POLT 

29919? 

N$SLA 

000016 

PT$PH3= 

000010 

P.RAQC 

000020 

NSSNOD 

000012 

PT$XAR= 

000020 

P.RASO 

000022 

NSTCTL 

000112 

PX$BLK= 

000040 

P.RBFC 

2222?! 

NSTIM 

000004 

PX$DLM= 

000200 

P.RERR 

000052 

NSTLC 

000100 

PX$SVC= 

000100 

P.SEL 

177776 

NSTNC 

000114 

PSCHN 

000004 

P.SPFC 

90912^ 

N$TRC 

000106 

PSCNT 

000005 

P.STAT 

000002 

NSTTCB 

000110 

PSCTR 

000034 

P. STMT 

000074 

N$VCB 

000010 

PSDRCT 

000015 

P.TBAD 

0999§? 

N$VER 

000066 

PSDRTR 

000036 

P.TIMC 

000050 

NSXLEN 

000124 

P$FLG 

000012 

P. TIME 

000001 

N$$ACC= 

000001 

PSFWD 

000030 

P.riMR 

000000 

N$$BUF= 

000001 

PSICCB 

000046 

P.TRIB 

000014 

N$$LDV: 

000001 

PSIPL 

000014 

P.VECT 

177732 

N$$MCP^ 

■  000001 

PSLCD 

000002 

P.VECl 

177752 

P.XAQC 

000026 

P.XAWQ 

000030 

P.XBFC 

000027 

Q$$0PT= 

000010 

RF.CTL= 

000003 

RF.LD1= 

000040 

RF.LD2= 

000100 

RF.T1M= 

177400 

RF.TMO= 

000400 

RF.WFC= 

000200 

RF.WTD= 

000020 

RF.WTM:^ 

000030 

RF.WTS= 

000010 

R$$DER= 

000000 

R$$K11= 

000001 

R$$SND= 

000000 

R$$11M= 

000000 

SETBBT 

000222RG 

0U2 

SETBSA 

000260RG 

002 

SETBSD 

000272RG 

002 

SETBSI 

000304RG 

002 

SETCOS 

002604RG 

SETHTH 

000566RG 

SETINA 

000316RG 

002 

SET  ND 

000330RG 

002 

SET.NI 

000342RG 

002 

SETMXB 

00041 2RG 

002 

SETNMT 

000234RG 

002 

SETNTL 

000322RG 

SETOUN 

OOOOOORG 

002 

SETSER 

000566RG 

002 

SETSTA 

000734RG 

SETTH1 

000354RG 

002 

SETTH2 

000366RG 

002 

SETTH3 

000400RG 

002 

SETXHT 

000246RG 

002 

SFSANM 

000001 

SFSDNM 

000002 

SF.ACT= 

000200 

SF.ENA= 

000100 

SF.LPB= 

000004 

SF.MFL= 

000040 

SF.PAC= 

000020 

SF.REA= 

000010 

SF.SER= 

000001 

SF.SVC= 

000002 

SF.UNL= 

000040 

SLTHA  = 

******  GX 

STAOFF 

0021 OOR 

STAON 

001534R 

STASER 

001706R 

S$IWRG= 

000000 

S$$YSZ= 

007600 

S.COST 

000001 

S.FLG 

000000 

S.LEN 

000004 

S.NMST 

000002 
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HH 

HH 

PP 

XX      XX 

cccccccc 

11 

III 

cccccccc 

HH 

HH 

PP 

XX      XX 

cccccccc 

I! 

III 

cccccccc 

HH 

HH 

PP 

XX      XX 

LL 

SSSS5SSS 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

_L 

5S 

LL 

SS 

LL 

SS 

_L 

SS5SSS 

LL 

SSSSSS 

LL 

SS 

LL 

3S 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

Miron   uni   n?h   <;AriirHav   ?<3-.lun-RS 


n   8 

1?:U 


CICHPX  - 
SETCTR  - 

300 
301 
302 
305 
30^ 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3K 
315 
316 
317 
318 
319 


\2-r 


Circuit  Change  Paramet  MACRO  V05.03b  Saturday  29-Jun-85  12:14  Page  12 
Set  flags  in  Line  Counter  block 

.SBTTL  SETCTR  -  Set  flags  in  Line  Counter  block 

♦*♦  SETCTR  -  Set  flags  in  Line  Counter  block 

INPUTS  ,  , 

R1  -  Aadress  of  line  counters  block 
R4  -  Address  of  context  area 

OUTPUTS  ,,   ,  .  .  ^ 

The  Blocking  flag  in  the  line  counters  block  is  set  as  required 


000662 

000662  032764  001000  000076 

000670  001412 

000672  142761  000040  000044 

000700  022764  000000  000262 


000706  001003 
000710  152761 
000716 


000040  000044 


SETCTR: 


10$: 


BIT 

BEQ 

BIC8 

CMP 

BNE 

BIS8 

RETURN 


#LS$BLK,L$FLX(R4) 

10$ 

#PX$BLK,T$FLAG(R1) 

#MB$ENA,L$BLK(Ri) 

10$ 

#PX$BLK,T$FLAG(R1) 


Is  the  blocking  parameter  set? 
Branch  if  not  to  be  changed 
Assume  blocking  disabled 
Is  blocking  to  be  enabled? 
If  not,  we  have  done  right 
Else,  restore  blocking  flag 


M   O 
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CICHPX     CREATED  BY  MACRO  ON  29-JUN-85  AI  12:15 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


LtMWN 

000252 

#6-104 

_$MXB 

000133 

#6-104 

L$HXR 

000253 

#6-104 

.$MXW 

000252 

#6-104 

-$NAM 

000000 

#6-104 

-$NLEN 

=  000020 

#6-104 

LtNMT 

000116 

#6-104 

.$NTI 

000256 

#6-104 

LtNTL 

00013^ 

#6-104 

LSNUM 

000240 

#6-104 

LSNUML 

000236 

#6-104 

LSNXT 

0000A4 

#6-104 

L$OPT 

000062 

#6-104 

LtOUN 

000102 

#6-104 

LSPAR 

000072 

#6-104 

LSPOV 

000055 

#6-104 

LSPFG 

000041 

#6-104 

LSPLT 

000112 

#6-104 

L$PRO 

000075 

#6-104 

LSPVC 

000004 

#6-104 

LSRET 

000256 

#6-104 

L$SCN 

000020 

#6-104 

LSSCR 

000166 

#6-104 

L$SER 

000230 

#6-104 

LSSLEN 

000074 

#6-104 

LSSLT 

000042 

#6-104 

LSSNM 

000046 

#6-104 

L$STA 

000100 

#6-104 

L$TAD 

000103 

#6-104 

L$TH1 

000130 

#6-104 

LSTH2 

000151 

#6-104 

L$TH3 

000132 

#6-104 

LSTNM 

000052 

#6-104 

LSTPT 

000050 

#6-104 

L$TRB 

000040 

#6-104 

L$TYP 

000063 

#6-104 

LSUNT 

000003 

#6-104 

LSXCH 

000232 

#6-104 

L$XMT 

000120 

#6-104 

L.COST 

000015 

#5-72 

L.CTL 

000012 

#5-72 

L.CVA 

177776 

#5-72 

L.DDM 

000002 

#5-72 

L.DDS 

000004 

#5-72 

L.DLC 

000003 

#5-72 

L.DLM 

000006 

#5-72 

L.DLS 

000010 

#5-72 

L.FLG 

000000 

#5-72 

L.KR8A 

000016 

#5-72 

L.LEN 

=  000022 

#5-72 

L.MPF 

000022 

#5-72 

L.NMST 

000020 

#5-72 

7-128 


8-148 


L  10 

PAGE  4 

CREF   04.00 


7-126  7-127 

7-124 

6-104  6-104 


7-130 
7-125 


»8-165  *8-169 

11-265  11-278 


*8-173 


»9-199 


*10-235 


*10-242         *11-294 


*1 5-407 


7-129 


11-261  15-392 


11-280 


15-386 


11-262  11-270 


11-272 
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CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  .05.03b  Saturday  29-Jun-85 
CIRECH  -  Read  circuit  characteristics 


It  11 

12:1 


5  Page  9-2 


217  000406 

218  000A10 

219  0004U 

220  000416 

221  000420 

222  000424 

223  000430 

224  000436 

225  000440 
226 

227 
228 

229  000444 

230  000452 

231  000454 

232  000460 

233  000462 

234  000464 

235  000470 

236  000476 

237  000500 
238 

239 
240 

241  000504 

242  000512 

243  000514 

244  000520 

245  000524 

246  000526 

247  000532 

248  00053'' 

249  Or.05"i', 

250  000;-  "• 

251  0'/(.5'.  . 

252  0CJ:.46 
^53  000552 

254  000554 

255  000560 

256  000564 

257  000570 

258  000574 
259 

260 
261 

262  000600 

263  000606 

264  000610 

265  000614 

266  000622 

267  000624 

268  000630 

269  000636 

270  000640 

271  000644 

272  000650 

273  000652 


001436 
004567 
001613 
000002 
116723 
116723 
032764 
001402 
000167 


026427 
001014 
004567 
001616 
000201 
116723 
032767 
001402 


032764 
001151 
116002 
105760 
001402 
116102 
005702 
001450 
004567 
002114 
000100 
067702 
011202 

016201 
010167 


026427 
001023 
112702 
032767 
001410 
112702 
032767 
001002 
112702 
004567 
002127 
000201 


OOOOOOG 


177370 
177365 
040000  000064 

000372 


000000  015355 
OOOOOOG 


BEQ  45$ 

JSR  R5,SETPAR 

.WORD  MPSLTM 

.WORD  2 

M0V8  LTIM,(R3)t 

MOVB  LTIM+1,(R3)t 

BIT  #LF$MLT,L$FLG(R4) 

BEQ  40$ 

JMP  80$ 


if  EQ,  none 

LISTEN  TIMER  PARAMETER 


STORE  LOW  BYTE  OF  LISTEN  TIMER 

STORE  'IGH  BYTE 

multiple  adjacency  sequence  ? 

if  EQ,  no 

if  NE,  yes  -  skip  other  parameters 


RETURN  BLOCKING,  MAXIMUM  RECALLS,  RECALL  TIMER 


177326 

000001  177322 


40$:    CMP  L$DDM(R4),**RDLM 

BNE  45$ 

JSR  RS.SETPAR 

.WORD  MP$BLK 

.WORD  MT$C0DI1 

MOVB  BLKING,(R3)+ 

BIT  #FL. SVC, FLAG 

BEQ  45$ 

CALL  SVCRCL 


RETURN  CIRCUIT  OWNER 


040000  000064  45$: 

000021 
000014 


000003 

OOOOOOG 

OOOOOOG 


000004 
177212 


000000  015355 

000000 

000001  177176 

000001 

000004  177162 

000002 
OOOOOOG 


50$: 


BIT 

BNE 

MOVB 

TSTB 

BEQ 

MOVB 

TST 

BEQ 

JSR 

.WORD 

.WORD 

ADD 

MOV 

SAVRG 

MOV 

MOV 

CALL 

RESRG 


RETURN  USAGE 


55$: 


CMP 

BNE 

MOVB 

BIT 

BEQ 

MOVB 

BIT 

BNE 

MOVB 

JSR 

.WORD 

.WORD 


*LF$MLT,L$FL6(R4) 

80$ 

L.NMSTt1(R0),R2 

L.NSTA(RO) 

50$ 

S.NMSTt1(R1),R2 

R2 

60$ 

RS.SETPAR 

MPiONR 

MT$ASC 

aPDVTA,R2 

(R2),rJ 

<R0,R1> 

Z.NAM(R2),R1 

Rl, OWNER 

FMTOWN 

<R1,R0> 


L$DDM(R4),*"RDLM 

60$ 

#MU$PER,R2 

*FL. SVC, FLAG 

55$ 

#MU$INC,R2 

#FL. INC, FLAG 

55$ 

*MU$0UT,R2 

RS.SETPAR 

MP$CUS 

MT$C0D11 


IS  THIS  A  DLM  CIRCUIT? 

BR  IF  NO 

BLOCKING  PARAMETER 

ONE  BYTE  CODED 
Store  blocking  value 
IS  THIS  AN  SVC  ? 
BR  IF  NO 
GET  SVC  RECALL  VALUES 


multiple  adjacency  sequence  ? 

if  NE,  yes  -  skip  remaining  params 

ASSUME  OWNER  IS  IN  LINE  SLT 

MULTIPOINT  ? 

IF  EQ,  NO 

ELSE,  YES  -  GET  OWNER  FROM  TRIB  EXTENTIONS 

IS  THERE  AN  OWNER  SET  ? 

IF  EQ,  NO  OWNER  -  SKIP  IT 

SET  OWNER  PARAMETER 


ASCII  IMAGE  FIELD 
INDEX  INTO  THE  PDV  TABLE 
GET  THE  PDV  ADDRESS 
SAVE  SOME  REGISTERS 
GET  THE  PROCESS  NAME 
save  it 

FORMAT  THE  IMAGE  FIELD 
RESTORE  REGISTERS 


IS  THIS  DLM? 

BR  IF  NO 

ASSUME  PVC 

IS  THIS  A  DLM  SVC? 

BR  IF  NO 

ASSUME  INCOMING  SVC 

INCOMING  SVC? 

BR  IF  YES 

ELSE  MUST  BE  OUTGOING  SVC 

SET  USAGE  PARAMETER 

ONE  BYTE  CODED  FIELD 


;   RJK10 


M  11 
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Format  SVC  recall  ualues 


L  12 

12:15 


800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
8U 
815 
816 

817  P03006 

818  003012 

819  003016 

820  003024 

821  003030 

822  003034 

823  003036 

824  003040 

825  003044 

826  003050 

827  003052 

828  003054 

829  003060 

830  003064 

831  003072 

832  003074 

833  003102 

834  003106 

835  003112 


016701 
004567 
001630 
000001 
116123 
004567 
001631 
000002 
116123 
116123 
032761 
001403 
052767 


.S8TTL  SVCRCL  -  Format  SVC  recall  values 

SVCRCL  -  MAXIMUM  RECALLS,  RECALL  TIMER 

INPUTS: 

R3  -  POINTER  TO  NEXT  AVAILABLE  BVTE  IN  OUTPUT  BUFFER 

R4  -  ADDRESS  OF  CONTEXT  AREA 

SVCMAP  -  SVC  DESCRIPTOR  MAPPING  BIAS 

SVCADD  -  SVC  DESCRIPTOR  VIRTUAL  ADDRESS 

OUTPUTS: 

FLAG  -  FL.INC  SET  IF  INCOMING  SVC 
R3  -  UPDATED 


174756 
OOOOOOG 


000013 
OOOOOOG 


000016 
000017 
000002  000010 


000004  174716 
010366  000010 


SVCRCL:  SWSTKS 
SAVMAP 
MAP 
MOV 
JSfi 
.WORD 
.WORD 
MUVB 
JSR 
.WORD 
.WORD 
MOVB 
MOVB 
BIT 
BEO 
BIS 

RESMAP 
MOV 
RETURN 


10$: 
20$: 


20$ 

SVCMAP 
SVCADD, R1 
R5,SETPAR 

mpImxr 

1 

S$RCL(R1),(R3)+ 

R5,SETPAR 

mpIret 

2 

S$TMR(R1),(R3)+ 

S$TMR+1{R1),(R3)+ 

#SF$INC,S$FLG(R1) 

10$ 

#FL.JNC,FLAG 

R3,10(SP) 


enter  system  state 

save  current  mapping 

map  to  svc  descriptor 

get  address  of  svc  descriptor 

set  maximum  recalls 

i'bvte  decimal  field 
store  maximum  recalls 
set  recall  timer 

2'byte  decimal  field 
store  recall  timer 

is'THIS  AN  INCOMING  SVC? 
BR  IF  NO 

ELSE  INDICATE  INCOMING  SVC 
RESTORE  PREVIOUS  MAPPING 
UPDATE  USER  R3 


nn  APi  r  T  ciri 
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N  12 

.liin-«S     U-IS 


Panp    iq 


L$SLEN 

L$SLT 

LtSNM 

LtSYL 

L$TNM 

L$TPT 

LSTRB 

L$TSZ 

LtTYP 

L$UNT 

LSXLEN 


CIRECH     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:16 
SYMBOL  CROSS  REFERENCE 


L  13 

PAGE  k 

CfiEf   04.00 


SYMBOL  VALUE 


.COST 

,CTL 


L.CVA 


,DDM 
,DDS 
,OLC 
.DLM 
,DLS 
.FLG 
.KRBA 


L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MAPADD 

MBSDIS 

MBSENA 

MP$ADJ 

HPSBLK 

MPSCMB 

MPSCOS 

MPSCUS 

MPSDRO 

MPSHTM 

MPSLTM 

MPSMAC 

MP$MRO 

HPSMXR 

MPSMXW 

MPSNUM 

MPSONR 

MPSRET 

MPSRPR 

MPSSER 

MPSTRI 

MPSTYP 

MS. PAR 

MS. sue 

MTPCHA 


000066 
0000A2 
000046 
000122 
000052 
000050 
000040 
000070 
000063 
000003 
000124 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
:  000022 
000022 
000020 
000014 
000021 
000013 

000001 
000000 
001440 
001616 
002142 
001604 
002127 
001441 
001612 
001613 
004420 
001605 
001630 
002143 
001642 
002114 
001631 
001606 
000144 
002164 
002130 
000003 
000001 
001164  R 


GX 


REFERENCES 

#6-81 
#6-81 
#6-81 
#6-81 
#6-81 
#6-81 
#6-81 
#6-81 
#6-81 
#6-81 
#6-81 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 

16-689 

13-479 

13-482 

9-158 

9-232 

19-872 

9-183 

9-272 

9-178 

9-211 

9-219 

11-415 

9-201 

18-822 

19-880 

19-863 

9-250 

18-826 

9-205 

20-903 

11-402 

9-281 

14-575 

14-580 

9-322 


9-123 


9-124 
17-748 


9-186 


9-142 


9-243 
9-187 
17-729 


20-915 
20-905 


17-728 


17-736 


9-180 


9-244 


9-287 


9-293 


9-290 


17-734 


9-320 


20-906 


17-730 


17-732 


20-908 


#11-383 
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CIRECO  -  READ/AND  OR  ZERO  CIRCU  MACRO  V05.03b  Saturday  29-Jun-85 
BIT  DEFINITIONS 


70 


000001 
000002 
OOOOOA 
000010 
000020 
000040 
000100 
000200 
000360 


000001 
000002 
OOOOO'i 


000010 
000020 
OOOOAO 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


L  U 

12:17  Page  7 

SBTTL  BIT  DEFINITIONS 


PARSE  FLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LP$TR8 
LP$MUX 
LPSMPT 
LPSWDV 
LPSWCN 
LPSWUN 
LPSWTR 
LPSWLD 


1 

2 

4 

10 

20 

40 

100 

200 


UNIT  NUMBER  FOUND 

TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILi)  CARD  TRIBUTARY  NUMBER  FOUND 


=  lp$wdv!lp$wcn:lp$wunilpIwtr  ,-  wild  card  field  mask 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA  =  1 

LFSZER  =  2 

LFSSKP  =  4 


LF$VR2  =  10 

LFSEND  =  20 

LFSSIG  =  40 

LF$MLT  =  40000 
LFSSEG  =  100000 

BIT  POSITION  DEFINJTIONS 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NOP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFICANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 


BITO  = 
BIT1  = 
BIT2  = 
BIT3  = 
BIT4  = 
BITS  = 
BIT6  = 
BIT7  = 
BITS  = 
BIT9  = 
BIT10 
BIT11 
BIT12 
BIT13 
BIT14 
BIT15 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 
=  2000 
=  4000 
=  10000 
=  20000 
=  40000 
=  100000 


n  K 
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MACRO  CROSS  REFERENCE  CREF        OA.OO 


MACRO  NAME 

REFERENCES 

BIAS 

#5-59 

CALL 

10-UA 

1U-1 

CAILR 

10-166 

CIRCXS 

#5-60 

6-69 

MANDFt 

#5-60 

S-ftr- 

MAP 

#5-59 

PDVDfS 

#5-60 

5-6^ 

RESMAP 

#5-59 

RESRG 

#5-59 

RETURN 

10-172 

SAVMAP 

#5-59 

SAVRG 

#5-59 

SLTDFt 

#5-60 

5-63 

11  15 
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SYMBOL    CROSS  REFERENCE 


L  16 

PAGE  2 

CREF       Ci.OO 


SYMBOL 

VALUE 

REFERENCES 

L$FLX 

000070 

#5-62 

-$LEN 

0001 2-; 

#5-62      6-101 

LtLTM 

000070 

#5-62 

LtMSG 

000056 

#5-62 

.tMTYP 

000067 

#5-62 

LtNAM 

000000 

#5-62 

LtNLEN 

=  000020 

#5-62      5-62 

5-62 

LSNOD 

000112 

#5-62 

LSNXT 

00004A 

#5-62 

LtOPT 

000062 

#5-62     •6-95 

6-1U 

LtPAR 

000120 

#5-62     •6-133 

6-166 

LtPOV 

000055 

#5-62 

LtPFG 

0000A1 

#5-62 

LtPLB 

000116 

#5-62 

L$PRQ 

000067 

#5-62 

LtPVC 

OOOOOA 

#5-62 

LISCN 
LISCR 

000020 

#5-62 

000072 

#5-62 

LtSLEN 

000066 

#5-62 

LSSLT 

000042 

#5-62 

LSSNM 

0000A6 

#5-62 

LSSYL 

000122 

#5-62 

LSTNM 

000052 

#5-62 

LSTPT 

000050 

#5-62 

LSTRB 

OOOOAO 

#5-62 

LtTSZ 

000070 

#5-62 

LSTYP 

000063 

#5-62 

LSUNT 

000003 

#5-62 

ME$CIR 

000003 

6-133 

ME. FOR 

177776 

6-123 

ME. FUN 

177777 

6-113 

ME.MPR 

177773 

6-100 

MFtSlG 

177773 

6-129 

MOSCOU 

000060 

6-1U 

MS.MOR 

000002 

6-136 

NF.END 

=  000200 

6-158 

R$$MPL 

r  *«♦**• 

6-U1 

R$$11S 

—  »  *  t  •  ♦  » 

6-116 

U.CW3 

oooou 

6-158 

SMBLJN 

-  ******      (3)( 

6-15-; 

tSAvRG 

r  *♦♦*♦*   Q> 

6-9^1 

6-167 
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SYMBOL    CROSS   RffERENCE 


M     1 

PAGE   7 

CREF        OA.OO 


SvMBCl 

NW'Af 

NODACT 

NODNAM 

NODOWN 

NUMAC 

NXT$$$ 

Ntt'.'C^ 

OWNACT 

PARENC 

PCK.BCD 

PD\/ID 

PDVTA 

pltac 

PNAERR 
PVAERR 

RETACT 

R$PC 

R$$EIS 

RtiPRO 

R$$11D 

RltHM 

RttHS 

SACT 

SALL 

SALL^ 

SBB^ 

SBLK 

SBSA 

SBSD 

SBS! 

SCHN 

SCMB 

SCuS 

sens 
;d^e 

SE'CIR 
SF.AC 
5F.FNA 
S'.lPB 
SF.MFL 
SF .PAT 
Sr.Bfi 
cf    5f c 

shtm 

SiSA 
SIMD 

s;n: 
slct 

SLOf 


»alue 


REFERENCES 


001222  R 

#30-1106 

000230  R 

#13-652 

00077A   R 

#9-287 

000760  R 

#9-284 

00077A   R 

#23-950 

=  OCOOOO 

#8-82 

r     ****** 

13-697 

00C256  R 

#13-661 

000536  R 

11-613 

001104  R 

22-932 

=    •♦•••»      GX 

13-689 

=    ......      GX 

13-693 

001176  R 

#28-1070 

000462   R 

14-720 

000470  R 

11-609 

#15-753 

001066  R 

#26-1009 

I   •«>><«      GX 

•22-934 

r     ♦♦♦♦** 

27-1046 

r     ****** 

6-72 

=     *••*** 

5-65 

=  000000 

5-65 

-    ♦****• 

5-65 

001022  R 

#9-299 

000462  R 

#9-215 

000466  R 

#9-218 

001126  R 

#9-322 

001 500  R 

#9-413 

001214   R 

#9-343 

00'256  R 

#9-350 

001260   R 

#9-357 

001542   R 

#9-422 

001564   R 

#9-429 

000550  R 

#9-238 

001606   R 

#9-436 

001662  R 

#9-446 

000000  R 

#8-82 

=  000200 

#5-67 

=  000100 

#5-67 

=  000004 

#5-67 

=  000040 

#5-67 

=  000020 

#5-67 

^  0CO010 

#5-67 

=  onoooi 

#5-67 

=  00C002 

#5-67 

r  000040 

#5-67 

000654  R 

#9-261 

00' 302  R 

#9-364 

001324  R 

#9-371 

OC'346  R 

#9-378 

000626  R 

#9-253 

001042  R 

#9-306 

13-700 
23-958 


#15-750 
11-611 
17-814 

*23-960 

6-72 
27-1046 

8-87 


14-728 
#27-1031 


17-812 
13-656 
20-889 


10-559 


#16-787 


19-859 
13-658 


11-588 


17-816 


13-667 


18-835 


13-684 


13-701 


14-722 


14-726 


10-556 


CICHIN 


CREATED  BV  MACRO  ON  29-JUN-85  AT  12:11 
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Context  area  definition 


000001 
000002 
OOOOOA 
000010 
000020 
OOOO'.O 
000100 
000200 
001000 
lOOCOO 

OOOAOO 
000002 
000020 
000040 
000200 
010000 

020000 

020053 
000362 
001004 


Circuits: 

LSSCHN 

= 

1 

Set  PVC  channel 

LSSCMB 

= 

2 

Set  maximum  data 

LSSCUS 

= 

i, 

Set  circuit  usage 

LSSDTE 

= 

10 

Set  DTE. 

LSSMXR 

= 

20 

Set  maximum  recalls 

LSSMXW 

= 

40 

Set  maximum  window 

LSSNUH 

= 

100 

Set  DLM  number 

LSJRET 

z 

200 

Set  recall  timer 

LSSBLK 

= 

1000 

Set  blocking 

LPSNXC 

r 

100000 

Circuit  is  a  new  X.25  circuit 

Lines: 

LS$H8T 

= 

400 

Set  holdback  timer 

LSSLMB 

= 

LSSCMB 

Set  max  block 

LSSMRT 

r 

LSSMXR 

Set  max  retransmits 

LS$MUN 

= 

LSSMXW 

Set  max  window 

LSSNTI 

~ 

LSSRET 

Set  retransmit  timer 

LSSPRO 

= 

10000 

Set  line  protocol 

Common: 

LSSLCT 
Groupings: 

LSSPVC 

= 

20000 

;  Set  counter  timer 

^ 

LSSCHN 

LSSCMB 

LSSDTEILSSMXWIlSSLCT 

LSSSVC 

r 

LSSCMB 

LSSMXR 

LSSMXUILSSNUMILSSRET 

LSSDLM 

= 

LSSBLK 

LSSCUS 

N  2 
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HStTRI 

HStUNR 

MStVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MT$ASC 

MTSBIL 

MTSBYS 

MT$CI 

MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

MTSETH 

MTSHEX 

MTSLPB 

MTSMAX 

MTSMUL 

MTSNLE 

MTSNON 

MT$NR4 

MT$NTY 

MTSOCT 

MTSPHA 

MT$POI 

MT$QP2 

MTSROU 

MT$R04 

MTI5EC 

MTSSGD 

MTSSYS 

MTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

MT$X25 

MUSINC 

MUSOUT 

MUSPER 

MVSIII 

MVSIV 

MXSACr 

MXSCIR 

MXSCLN 


000005 

000005 

000004 

177600 

000002 

000003 

000001 

000003 

000100 

000001 

000011 

000007 

000077 

000200 

000001 

000004 

000006 

OOOOAO 

000005 

000037 

000100 

000017 

000001 

000005 

000060 

000060 

000002 

000000 

000010 

000000 

000004 

000000 

000020 

000002 

000001 

000002 

007777 

000000 

000003 

000001 

000002 

000000 

000000 

000001 

000020 

000020 

000020 


.  ABS.   177776 
001004 
Errors  detected: 


000 
001 
0 


MXSCNM 

000006 

NSRIMX 

MX$CON 

000006 

N$RTM1 

MXSDAC 

000020 

N$RTM2 

MXSDTE 

000020 

N$RT1 

MXSFIL 

000034 

N$RT2 

MXSLGC 

000777 

N$TC7L 

MXSLIN 

000020 

NJTLC 

HXSLON 

000006 

NSTNC 

MXSNMS 

000454 

NJTRC 

MXtNOD 

000006 

NSTTCB 

MX$OBJ 

000006 

NIVER 

HXSOWN 

000040 

NSXLEN 

MXSPAR 

000036 

N$IACC= 

MXSPAS 

000010 

N$$BUF= 

MXSRAC 

000047 

N$$LDV= 

MXSRID 

000047 

N$$MCP= 

MXSRPS 

000047 

N$$MLL= 

MXSSID 

000040 

N$$M0V= 

MXJSNK 

000377 

N$$NCT= 

MXSTYP 

000077 

N$$PEM= 

MXSUID 

000020 

PDVTA  = 

H$$CR8= 

000124 

P$$P45= 

M$$CRX= 

000000 

P$$WfiD= 

M$$FCS= 

000000 

Q$$OPT= 

,:';mge= 

000000 

R$$DER= 

r'iMET= 

000000 

R$$K11- 

•"'.OVR= 

000000 

R$$SND= 

NM.CLN 

003400 

R$$11M= 

NM.INI 

002400 

SETACT= 

NM.OPP 

003000 

SET88T= 

NM.VR2 

002401 

SETBSA= 

NM.VR3 

C02402 

SET8SD= 

NXTCIR= 

»»»*«*  GX 

SETBSI= 

N$ADJ1 

000072 

SETCOS= 

N$ADJ2 

000074 

SETHTM= 

NSCACH 

000062 

SETJNA= 

NSCRC 

0001 20 

SET1ND= 

NIHC1 

000052 

SETIN1= 

N$HC2 

000056 

SETMXB= 

N$LV1 

000002 

SETNMT= 

N$LV2 

000010 

SETNTL= 

N$MHC1 

000036 

SET0WN= 

NtMHC2 

000044 

SETSER= 

N$PLD 

000016 

SETSTA= 

N$PRI 

000076 

SETTAD= 

NSROAI 

000022 

SETTH1= 

N$R0A2 

000030 

(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


♦•»  Assembler  statistics 


u/ork  file  reads:  282 
Work  file  writes:  185 


000014 
000014 
000015 
000000 
000006 
0C0112 
000100 
000114 
000106 
000110 
000066 
000124 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
****** 

000000 
000000 
000010 
000000 
000001 
000000 
000000 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


GX 


******  GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****«♦  GX 

******  GX 


SEITH2= 

SETTH3= 

SETUP 

SETXHT= 

SFSANM 

SFSDNM 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S . OUNR 

TSFLAG 

TSLIF 

TSLIFL 

TSLIFO 

TJLIFS 

TSLIN 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 

TSLTIH 

TSLTPR 

TSLTPS 

TSNAPL 

l$NFE 

TSNLEN 

TINNUL 

TSNOPL 


******  GX 

******  GX 

000476R 

******  GX 

000001 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  GX 

000000 

007o00 

000001 

000000 

000004 

000002 

000003 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 

000010 

000002 

000006 


TSNRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRl 

TSSVC 

T$T5 

T$T6 

T$$KMG= 

7$$MIN= 

V$$CTR= 

X$$DBT= 

X$$TLC= 

ZF.COU= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.OVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.MFL= 

ZF.MTM= 

ZF.HUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM=^ 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

$ADPVC= 

$SAVRG= 

$$$SYS= 

$$$SYX= 


000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000000 
000000 
001000 
000000 
000001 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
0200  ■> 
000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
140000 
000014 
000016 
000000 
000010 
000016 
000006 
000020 
000004 
000012 
000007 


004374 
000000 


GX 
GX 
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1 
2 
3 
C 
5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
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SETSTA  -  SET  A  NEW  CIRCUIT  STATE 
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316 

317 

318 

319 

320 

321 

322 

323 

I2k 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A  000734 

335 

336  000734 

337  000742 

338  000744 

339  000750 

340  000756 
341 

342 
343 
344 
3',5  000762 

346  000766 

347  000772 

348  001000 

349  001006 
350 

351  001010 

352  001016 

353  001020 

354  001024 
355 

356  001030 

357  001034 

358  001036 

359  001044 

360  001046 

361  001054 

362  001056 

363  001062 

364  001066 

365  001070 

366  001074 

367  001102 

368  001104 

369  001112 

370  001114 

371  001120 

372  001124 


022764 
001007 
012700 
012764 
000167 


016402 
012700 
012764 
032762 
001010 

126427 
001402 
000167 
000167 

105762 
001015 
032762 
001006 
126427 
001002 
000167 
062702 
000432 
012700 
032762 
001006 
132764 
001002 
000167 
016402 
132762 


.S8TTL  SETSTA  -  SET  A  NEW  CIRCUIT  STATE 

**-SETSTA-SET  A  NEW  CIRCUIT  STATE 

THIS  ROUTINE  IS  CALLED  TO  SET  A  NEW  CIRCUIT  STATE 

INPUTS: 

R4  =   ADDRESS  OF  CONTEXT  BLOCK  WITH: 

L$STA(R4)  =  THE  DESIRED  CIRCUIT  STATE 

OUTPUTS: 

IF  CC,  THE  STATE  WAS  CHANGED, 
ELSE,  ERROR  CODE  IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


SETSTA:: 


177777  000050 

177752 

000000  000072 

000546 


000042 
177765 

000003  000072 
040000  000000 


000100  000001 

000504 
000502 

000014 

100000  000000 

000100  000001 

000450 
000020 

177767 

000400  000000 

000002  000041 

000410 
000050 
000200  000000 


.IF  NDF  R$$11S 


CMP 
BNE 
MOV 
MOV 
JMP 
.ENDC 


#-l,L$TPT(R4) 

10$ 

#ME.PNA,RO 

#MP$STA,L$PAR(R4) 

170$ 


IS  THIS  A  PVC? 

BR  IF  NO 

INDICATE  INVALID  PARAMETER 

AND  EXIT 


POINT  TO  THE  NETWORK  HANAGENEMT  WORD  IN  THE  SLT 


10$:    MOV  L$SLT(R4),R2 

MOV  #ME.CST,RO 

MOV  #ME$CIR,L$PAR(R4) 

BIT  *LF.RDY,L.FLu(R2) 

BNE  30$ 

CMPB  L$STA(R4),*MS$0FF 

BEQ  20$ 

JMP  170$ 

20$:    JMP  180$ 

30$:    TSTS  L.NSTA(R2) 

BNE  50$ 

BIT  #LF.ACT,L.FLGCR2) 

BNE  40$ 

CMPB  L$STA(R4),*MS$0FF 

BNE  40$ 

JMP  180$ 

40$:    ADD  #L.NMST,R2 

BR  80$ 

50J:    MOV  #ME.IID,RO 

BIT  #LF.8R0,L.FLG(R2) 

BNE  60$ 

BITB  #LP$TRB,L$PFG(R4) 

BNE  60$ 

JMP  170$ 

60$:    MOV  L$TPT(R4),R2 

BITB  #SF.ACT,S.FLG(R2) 


POINT  TO  THE  SLT 

ASSUME  CIRCUIT  IS  IN  WRONG  STATE 

is'THE  CIRCUIT  LOADED  ? 
IF  NE,  YES  -  CONTINUE 

Turning  circuit  off  ? 
If  EQ,  yes,  no-op 
Else,  no,  error 
No-op 

MULTIPOINT  CIRCUIT  OR  ETHERNET  ? 

IF  NE,  YES 

IS  THE  CIRCUIT  OFF? 

BR  IF  NO 

TURNING  CIRCUIT  OFF? 

BR  IF  NE 

No-op 

ELSE,  POINT  TO  LINE  MANAGEMENT  WORD 

ASSUME  INVALID  CIRCUIT-ID 

ETHERNET  CIRCUIT  ? 

IF  NE  YES  -  NO  TRIB  REQUIRED 

ELSE,  WAS  A  TRIB  EXPLICITLY  GIVEN  ? 

IF  NE,  yes  -  OK 

ELSE  INVALID  CIRCUIT-ID 

POINT  TO  TRIB  FLAGS 

IS  THE  CIRCUIT  OFF? 
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LINOFF  -  TURN  CIRCUIT  OFF 


828 
829 
830 
831 


.DSA8L  LS8 
.IF  NDF  R$$11S 
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S.OWNR 

S1.DEC= 

S1.DPR= 

S1.DSI= 

S1.ESC= 

S1.!BF= 

S1.1BY= 

S1.0BY= 

S1.PTH= 

S1.RES= 

S1.RNE= 

S1.RNF= 

S1.RSP= 

S1.RST= 

S1.TNE= 

S1.TSY= 

S1.USI= 

S2.BEL= 

S2.BRQ= 

S2.CR  -■ 

S2.CT0= 

S2.CTS= 

S2.ELF= 

S2.FLF= 

S2.IRQ= 

S2.0BF= 

S2.0RQ= 

S2.PCU= 

S2.RCU= 

S2.SRQ= 

S2.WAL= 

S2.URA= 

S2.WRB= 

S3.ACR= 

S3.CTC= 

S3.FDX= 

S3.ICE= 

S3.MHE= 

S3.I\(EC  = 

S3.PPT= 

S3.PTH= 

S3.RAL= 

S3.RES= 

S3.RUB= 

S3.TAB= 

S3.TME= 

S3.TSY= 

S3.8BC= 

SA.ABD= 

S^.ANI= 

S'i.AVO= 

S'i.BL<  = 

S4.DEC= 

SI.DLO: 

SA.EDT= 

SA.HFFr 

S'!i.HFL  = 


000003 

001000 

000400 

OOAOOO 

000002 

002000 

000200 

000100 

000010 

010000 

000020 

020000 

000004 

000001 

040000 

000040 

100000 

020000 

000020 

002000 

040000 

100000 

001000 

000400 

000200 

004000 

000100 

010000 

000001 

000040 

000010 

000006 

000002 

000001 

000004 

000200 

001000 

000400 

000020 

020000 

004000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 

004000 

000100 

010000 

000020 

000007 


S4.HHT= 

S4.HSY= 

S4.RGS= 

S4.SFC= 

S4.VFL= 

S5.ABP= 

S5.BCC= 

S5.DA0= 

S5.HPC= 

S5.HP0= 

S5.ITI= 

S5.0XF= 

S5.RP0= 

S5.SW1= 

S5.TMM= 

:5.VER= 

S5.X0F= 

S5.X0N= 

S6.EI0= 

:6.RDI= 

S6.RLU= 

THITBL 

TH2IBL 

TH3TBL 

TS.BLK= 

TS.CKP= 

TS.CKR= 

TS.EXE= 

TS.HLD= 

TS.MSG= 

TS.NRP= 

TS.OUT= 

TS.RDN= 

TS.RUN= 

TS.STP= 

TWKLIN 

TSFLAG 

T$LIF 

TSLIFL 

TSLIFO 

TSLIfS 

T$LIN 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

T$LLEN 

TSLOPR 

TSLTCL 

^$LTIM 

l$LTPR 

TSLTPS 

TSNAPL 

T$NFE 

TSNLEN 


000040 

000200 

020000 

040000 

000010 

100000 

020000 

040000 

000014 

000020 

000100 

000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

000252R 

000264R 

000276R 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 

004000 

001000 

0021 16RG 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

OOOOOC 

000010 


TSNNUL 

000002 

TSNCPL 

000006 

T$NRN] 

000042 

TSNRPL 

000005 

TSNRUL 

000007 

T$NVR 

000001 

TSRPRI 

000040 

T$SVC 

000034 

T$T5 

000030 

T$T6 

000032 

T$$KMG= 

000000 

T$$MJN= 

000000 

T.ACTL 

000052 

T.ASTL 

000016 

T.ATT 

000062 

T.8TTC 

000074 

T.BUF 

000006 

T.CPCB 

000004 

T.DELT 

000056 

T.DIN 

000044 

T.DOUT 

000042 

T.DPR] 

000040 

I.EFLG 

000022 

T.ERRC 

000020 

T.IOC 

000003 

T.LBF 

000046 

T.L8N 

000041 

T.LDV 

000044 

T.LNK 

000000 

T.LIM 

000054 

T.MXS2 

000050 

T.NAH 

000006 

T.NDM 

000066 

T.OFF 

000066 

T.PCB 

000046 

T.PIND 

000007 

T.PRI 

000002 

T.QRAC 

000060 

T.QRIN 

000062 

T.QRPD 

000064 

T.RBF 

000050 

T.RBTC 

000020 

T.RCVL 

000012 

T.RDAT 

000034 

T.RRFL 

000072 

T.RTM 

000055 

T.SAST 

000054 

T.SEL 

000040 

T.SELT 

000052 

T.SFNC 

000014 

T.snc 

000072 

T.SRCT 

000071 

T.STAT 

000002 

T.ST2 

000034 

T.ST3 

000036 

T.TC8L 

000030 

T.TIMC 

000016 

T.TIO 

T.TKSZ 

T.TOD 

T.TRLG= 

T.TRLN 

T.TRPN 

T.UCB 

T.XASQ 

T.XBTC 

T.XDAT 

T2.AB0= 

T2.AST= 

T2.CAF= 

T2.CHK= 

T2.CKD= 

T2.DST=: 

T2.FXD= 

T2.HLT= 

T2.REX= 

T2.SEF= 

T2.SPN= 

T2.STP= 

T2.WFR= 

T3.ACP= 

T3.CAL= 

T3.CL1= 

T3.GFL= 

T3.MCR= 

T3.NET= 

T3.NSD= 

T3.PMD= 

T3.PRV= 

T3.REH= 

T3.R0V= 

T3.RST= 

T3.SLV= 

T3.SUS= 

UC.ALG= 

UC.ATTr 

UC.KIL= 

UC.LGH= 

UC.NPR= 

UC.PWF= 

UC.QUE= 

UD.UNS= 

UD.160= 

UD.200= 

UD.556= 

UD.625= 

UD.8K  = 

UD.800= 

UM.CLI= 

UH.DSB= 

UH.NBR= 

UM.OVR= 

US.ABO= 

US.BSP= 


000057 
000060 
000070 
000076 
000005 
000004 
000026 
000010 
000024 
000030 
000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 
000004 
000020 
000001 
100000 
000100 
001000 
000010 
004000 
000020 
000200 
040000 
010000 
020000 
000040 
000400 
002000 
000002 
000200 
000010 
000004 
000003 
000100 
000020 
000040 
000000 
000004 
000001 
000002 
000005 
000006 
000003 
000036 
000200 
000400 
000001 
000001 
000002 


US.BSY= 

US.F0R= 

US.FRK= 

US.KPF= 

US.LAB= 

US.MDE= 

US.HDM= 

US.MNT= 

US.OFL= 

US.PUB= 

US.PWF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

uS.WCK= 

UU.ABO= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKT= 

U.BUF 

U.CBF  = 

U.CLI 

U.CNT 

U.COTQ 

U.CTCB 

U.CTL 

U.CTYP 

U.CW1 

U.CW2 

U.CU3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 

U.FNUri= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.MLUN= 

U.MUP 


000200 
000040 
000002 
000001 
000004 
000002 
000020 
000100 
000001 
000004 
000010 
000002 
000001 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
0C0040 
000062 
000032 
000066 
000064 
000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
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321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 

333  000720 

334  000720 
33b  000726 

336  000730 

337  000736 

338  00074A 

339  000746 

340  000754 

341  000762 

342  000764 

343  000^72 

344  00^000 

345  001002 

346  001010 


.SBTTL  SVCFLG  -  Set  flags  in  SVC  block 

•**  SVCFLG  -  Set  flags  in  SVC  block 

INPUTS 

R4  -  Address  of  context  area 

R5  -  Address  of  SVC  descriptor  (mapped) 

OUTPUTS 

Blocking  and  Incoming  SVC  flags  set  as  required 


032764 
001412 
042765 
022764 
001003 
052765 
032764 
001412 
042765 
022764 
001003 
052765 


000004  000076 


SVCFLG: 


000002 
000001 

000002 
001000 

000001 
000000 


000010 
000260 

000010 
000076 

000010 
000262 


000001  000010 


10$: 


20$: 


BIT 
BEQ 
BIC 
CMP 
BNE 
BIS 
BIT 
BEQ 
SIC 
CMP 
BNE 
BIS 
RETURN 


#LS$CUS 

10$ 

#SF$INC 

#MU$INC 

10$ 

*SF$INC 

#LS$8LK 

20$ 

#SF$8LK 

#M8$ENA 

20$ 

#SF$BLI<; 


L$FLX(P4) 

,S$FLG(R5) 
,L$CUS(R4) 

,S$FLG(R5) 
,L$FLX(R4) 

,S$FLG(R5) 
,L$BLK(R4) 

,S$FLG(R5) 


Is  USAGE  change  specified? 

Branch  if  USAGE  unchanged 

Assume  OUTGOING  circuit 

Was  If'OMING  specified? 

If  no   we  were  right 

...  01  jrwise  reset  INCOMING  flag 

Was  BLOCKING  change  requested? 

Branch  if  no  change 

Assume  blocking  disabled 

Was  ENABLED  requested? 

If  not,  right  again 

Else  set  ENABLED  flag 


riTHPy    -    rirr 
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SYMBOL  VALUE 


L.NSTA 

L.OWNR 

L.UNT 

MBSENA 

MESCIR 

ME.CST 

ME.GRO 

HE.IID 

ME.PNA 

ME.PVA 

MPSBLK 

MPSCUS 

MPtLCT 

MS.MOR 

MUSINC 

MUSPER 

N$$VCT 

PSIPT 
PXSBLK 

px$dl;i 
pxssvc 

R$PC 

R$RO 

R$R1 

R$R2 

R$R3 

R$R4 

R$R5 

R$$PRO 

R$$11S 

SETCTR 

SETLCT 

SETPVC 

SETSVC 

SFSBLK 

SFSI'IC 

SF.ACT 

SF.ENA 

Sf.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SVCFLG 

SVCMAP 

S$A1)SZ 

SSDTE 

S$FLG 

S$LEN 


OOOOU 
000021 
000013 
000000 
000003 
177765 
177745 
177767 
177752 
177760 
001616 
002127 
000156 
000002 
000001 
000000 


=  ****** 

=  000040 

=  000200 

=  000100 

=  000016 

=  000002 

=  000004 

=  000006 

=  000010 

=  000012 

=  000014 

=  ****** 

-   ****** 

000662 

001070 

000326 

000400 

=  000001 

=  000002 

=  000200 

=  000100 

=  000004 

=  000040 

=  000020 

=  000010 

=  000001 

=  000002 

=  000040 

000720 

000000 

000007 

000020 

000010 

C00032 


GX 


REFERENCES 

#5-72 
#5-72 
#5-72 

12-316 

10-235 

10-234 

8-164 

11-293 

8-168 

8-172 

8-169 

8-173 

15-407 

8-146 

13-337 

8-157 

10-218 

15-401 

15-396 

12-315 

14-365 

14-367 
#5-100 
#5-94 
#5-95 
#5-96 
#5-97 
#5-98 
#5-99 

6-104 

4-1 

10-225 

9-195 

8-150 

8-162 

13-342 

13-336 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 

10-228 
#7-122 

7-125 

7-130 
» 13-336 

7-131 


13-343 
11-294 
11-288 
9-198 

15-406 


10-227 
15-403 

12-318 


*10-236 


6-104 

#12-312 

#15-386 

#9-187 

#10-213 

13-345 

13-339 

11-281 


#13-333 
10-230 
7-126 

•13-339 
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10-241 


10-238 


14-362 


14-369 


14-370 


15-391 


15-392 


15-400 


*13-342 


*13-345 


roFiTFh  Hv     MArpn     nn  PQ-.iiiN-RS  AT   1?:15 


PAGE    6 


N  10 


M  11 

CIRECH  -  READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85  12:15 
CIRECH  -  Read  circuit  characteristics 


Page  9-3 


274  00065A 

275 

276 

277 

278  000656 

279  000664 

280  000666 

281  000672 

282  000674 

283  000676 

284  000702 

285  000710 

286  000712 

287  000716 

288  000724 

289  000726 

290  000732 

291  000740 

292  000742 

293  000746 

294  000752 

295  000754 

296  000760 
297 

298 
299 
300 
301 
302 

303  000762 

304  000770 

305  000772 

306  001000 

307  001002 

308  001006 

309  001010 

310  001012 

311  001016 
312 

313 

314 

315  001022 

316 

317 

318 

319 

320  001022 

321  001030 

322  001032 
323 

324 
325 
326 
327 
328 

329  001036 

330  001044 


110223 


026727 
001456 
004567 
002130 
000201 
112702 
022764 
001423 
112702 
032760 
001015 
112702 
032760 
001407 
112702 
105760 
001002 
112702 
110223 


026427 
001014 
032767 
001403 

000413 
005000 
156700 


032760 
001402 


042764 
032764 


HOVB 


R2,(R3)+ 


177120     074361 
OOOOOOG 


000003 

015355  000000 

000006 

000400  000000 

000000 

000020  000000 

000001 
000014 

000002 


000000  015355 

000001  177020 

176772 


RETURN  LINE  TVPE  INDICATOR 


60$: 


65$: 


CMP 

BEO 

JSR 

.UORD 

.WORD 

M0V8 

CMP 

BEO 

MOVB 

BIT 

BNE 

MOVB 

BIT 

BEO 

MOVB 

TSTB 

BNE 

MOVB 

MOVB 


OWNER, **RSNA 

75$ 

R5,SETPAR 

MP$TYP 

MT$C0D!1 

#MT$X25,R2 

#*RDLM,L$DDM(R4) 

65$ 

*MT$ETH,R2 


#LF.BRO 

65$ 

#MT$POI 


,L.FLG(RO) 

_-.R2 

#LF.MTP,L.FLG(RO) 

65$ 

#MT$C0N,R2 

L.NSTA(RO) 

65$ 

#HT$TRI,R2 

R2,(R3)t 


STORE  USAGE 


is  this  an  SNA  circuit  ? 
if  EO,  yes-  not  applicable 
SET  LINE  TYPE  PARAMETER 

ONE  CODED  BYTE 

ASSUME  X25 

IS  THIS  DLM? 

BR  IF  YES 

ASSUME  ETHERNET 

BROADCAST  CHANNEL  ? 

IF  NE,  YES 

ASSUME  POINT-TO-POINT 

MULTIPOINT  LINE  ? 

IF  EQ,  NO 

ELSE  ASSUME  MULTIPOINT  CONTROLLER 

MULTIPOINT  CONTROLLER  ? 

IF  NE,  YES 

ELSE,  MULTIPOINT  TRIBUTARY 

SET  LINE  TYPE  BYTE  IN  MESSAGE 


RETURN  DTE, MAXIMUM  DATA,  MAXIMUM  WINDOW 


70$: 


75$: 


000020  000000 


.IF  NDF  R$$PR0  ;  PRO/DECNET 

CMP  L$DDM(R4),#*RDLM 

BNE  75$ 

BIT  *FL. SVC, FLAG 

BEQ  70$ 

CALL  SVCBLK 

BR  80$ 

CLR  RO 

BISB  PVCPRT,RO 

CALLR  PVC8LK 

.IFTF  ;  NDF  R$$PRO 


.IFT  ;  NDF  R$$PRO 

.IF  NDF  S$$BAS  &  R$$RTR 

BIT  #LF.MTP,L.FLG(RO) 

BEQ  80$ 

CALL  MTPCHA 


IS  THIS  DLM? 

BR  IF  NO 

IS  THIS  AN  SVC? 

BR  IF  NO 

GET  SVC  BLOCK  INFO 

CONTINUE 

Get  PLI  port  number  (no  sign  extend) 

Get  PVC  block  information  and  exit 


.ENDC 
.ENDC 


NDF  R$$PRO 


040000  000064  80$: 
100000  000064 


BIC 
BIT 


#LF$MLT,L$FLG(R4) 
#LF$SEG,L$FLG(R4) 


MULTI-POINT  LINE  ? 

IF  EQ,  NO  -  SKIP  PARAMETERS 

get  multipoint  characteristics 


Assume  no  multiple  adjacencies 
Partial  response  in  progress? 


Ttrn  MArnn 
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837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 

853  003114 

854  003120 

855  003124 

856  003132 
857 

858 
859 

860  003136 

861  003142 

862  003144 

863  003150 

864  003152 

865  003154 

866  003156 

867  003162 
868 

869 
870 

871  003166 

872  003172 

873  003174 

874  003176 

875  003202 
876 

877 
878 

879  003206 

880  003212 

881  003214 

882  003216 

883  003222 

884  003226 

885  003232 
886 


.S8TTL  SVC8LK  -  Get  SVC  block  parameters 

SVCBLK  -  GET  SVC  BLOCK  PARAMETERS 

INPUTS: 

R3  -  ADDRESS  OF  NEXT  AVAILABLE  BYTE  IN  OUTPUT  BUFFER 

R4  -  ADDRESS  OF  CONTEXT  AREA 

SVCMAP  -  APR  BIAS  FOR  SVC  DESCRIPTOR 

SVCADD  -  APR  6  VIRTUAL  ADDRESS  OF  SVC  DESCRIPTOR 

OUTPUTS: 

R3  -  UPDATED 


016700  174650 


§VCBLK;  SWSTKS  20$ 
SAVHAP 

MAP  SVCMAP 

MOV  SVCADD, RO 

FORMAT  DTE  ADDRESS 


116002 
001411 
004567 
001642 
000100 
010001 
062701 


004567 
002142 
000002 
116023 
116023 


004567 
002143 
000001 
116023 

010366 


000007 
OOOOOOG 

000020 
OOOOOOG 


000004 
000005 


OOOOOOG 

000006 

000010 


MOVB 

BEO 

JSR 

.WORD 

.WORD 

MOV 

ADD 

CALL 


S$ADSZ(R0),R2 

10$ 

R5,SETPAR 

MP$NUM 

MT$ASC 

RO.RI 

#S$DTE,R1 

BCDASC 


FORMAT  MAXIMUM  DATA 
0$: 


JSR  R5,SETPAR 

.WORD  MPSCMB 

.WORD  2 

MOVB  S$PKSZ(R0),(R3)+ 

MOVB  S$PKSZt1(R0),(R3)< 


FORMAT  MAXIMUM  WINDOW 

JSR  RS.SETPAR 

.WORD  MPIMXW 

.WORD  1 

MOVB  S$WND(R0),(R3)t 
RESMAP 

MOV  R3,10(SP) 
20$:    RETURN 


ENTER  SYSTEM  STATE 
SAVE  CURRENT  MAPPING 
HAP  TO  SVC  DESCRIPTOR 
GET  ADDRESS  OF  DESCRIPTOR 


GET  LENGTH  OF  DTE  ADDRESS 
BR  IF  INCOMING  SVC 
Set  NUMBER  parameter 

ASCII  IMAGE  FIELD 
POINT  TO  SVC  DESCRIPTOR 
POINT  TO  DTE  ADDRESS 
STORE  ASCII  DTE  ADDRESS 


SET  MAX  DATA  PARAMATER 

two  BYTE  DECIMAL  FIELD 
STORE  MAX  DATA 


SET  MAX  WINDOW 

ONE  BYTE  DECIMAL  FIELD 
STORE  MAX  WINDOW 
RESTORE  PREVIOUS  MAPPING 
STORE  UPDATED  R3 


;[TD001] 
.-LTDOOI] 


QC  APi      r  I  DP 
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CREf   0^.00 


SYMBOL  VALUE 


MTSASC 

MTSCOD 

MTtCON 

MTSETH 

MTtMUL 

MT$POI 

MT$TRI 

MTSUSO 

MT$X25 

MUtINC 

HUSOUT 

MU$°ER 

M$$MGE 

NODE 

N$ADJ1 

N$ADJ2 

N$PLD 

N$TLC 

N$SVCT 


OWNER 

POVID 

PDVTA 

PS$UP 

PTSBRO 

PTSDRT 

PVCBLK 

PVCCHA 

PVCPRT 

PXSBLK 

PXSDLM 

PX$SVC 

PSDRTR 

PSLST 

PSNRNI 

PSRPRI 

PSTYP 

RBIAS 

RX.NXM 

RX.OVR 

R$R1 

R$R2 

R$R3 

R$$EIS 

R$$PRO 

R$$RTR 

R$$11D 

R$$11M 

R$$ns 

R.CSR 
R.FLG 


000100 
000200 
000001 
000006 
000100 
000000 
000002 
000000 
000003 
000001 
000002 
000000 
000000 
000000  R 

00f''^7? 

00 

OOOUiL 

000130 


000002  R 

******  Gx 

******  Gx 

000012 

000200 

000100 

•»*♦**  GX 

*♦*♦**  GX 

000010  R 

OOOO'iO 

000200 

000100 

000036 

000000 

000040 

000042 

000001 

000002 

000020 

000010 

*♦♦»**  GX 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

000000 

****** 

000056 
000064 


REFERENCES 

9-251 

9-233 

9-292 

9-286 

16-685 

9-289 

9-295 

9-201 

9-283 

9-267 

9-270 

9-264 

6-74 
#8-89 

14-531 

14-536 

10-358 

17-752 

10-366 

14-530 

17-783 
#8-90 

10-351 

9-252 

9-164 

9-166 

9-172 

9-311 

9-131 
#8-93 

13-480 

17-773 

17-775 

9-168 

9-164 

9-252 

m 

#6-79 

#6-74 

*6-74 

•14-538 

*10-363 

*n-419 

14-588 

9-129 

9-318 

6-69 

6-69 

6-69 
#6-74 


16-698 
9-273 


16-691 
9-205 


6-74 
9-156 
15-624 
15-639 
10-362 
17-760 
11-385 
14-551 
17-785 
*9-256 
14-515 
10-355 

9-196 


9-310 


9-171 


9-170 


M4-552 
♦11-388 


19-864 
9-282 


14-532 
*14-535 


17-761 
11-396 
14-578 
17-791 
9-278 

14-519 

14-541 


•17-795 


9-196 


♦14-57" 
♦11-392 


16-685 


16-691 


20-904 


14-537 
♦14-553 


11-397 
15-623 
18-818 


17-738 


17-765 
♦  14-571 


11-410 
15-624 
18-819 


17-782 


11-418 
15-639 
18-833 


13-473 
15-643 
19-854 


13-476 
17-750 
19-855 


13-483 
17-760 
19-883 


14-541 


9-301  10-369 

10-369 

14-588 

14-532  14-537 


17-765 


17-782 
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LOCAL    DATA 


72 
7? 
7A 
75 
76 
77 


000000 


.SBTTL      LOCAL    DATA 
•    LOCAL    DATA 
SCRATC;    .BLK,W        1 


;    SCRATCH  AREA 


N  K 

rnn     (/AC     ATU      C -.  «■<  .^,J -..,     OQ_iiirx-Q^      1  ^  •  1  7         Da 


1 


••f  lLE<•ID"CIflBI^^ 


rt  15 


ccccccrc 

lUUl 

RRRRRRRR 

EEEEEEEEEE 

mill 

NN     NN 

ccccccc 

11  in 

RRRRRRRR 

EEEEEEEEEE 

mill 

NN     NN 

cc 

I 

RR      RR 

EE 

NN      NN 

RR      RR 

EE 

NN      NN 

cc 

RR      RR 

EE 

NNNN    NN 

:i^ 

RR      RR 

EE 

NNNN    NN 

RRRRRRRR 

EEfEEEEE 

I 

NN  NN  NN 

't 

RRRRRRRR 

EEEEEEEE 

NN  NN  NN 

'? 

RR  RR 

EE 

NN    NNNN 

LL 

RR  RR 

EE 

NN    NNNN 

r? 

RR    RR 

EE 

NN      NN 

CC 

RR    RR 

EE 

NN      NN 

cccccccc 

M 

M 

RR      RR 

EEEEEEEEEE 

11  II 

NN      NN 

cccccccc 

III 

in 

RR      RR 

EEEEEEEEEE 

mm 

NN      NN 

LL 

SSSSSS5S 

TTITT 

TTTTT 

.L 

SSSSSSSS 

TTTTT 

ITTTT 

.L 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSS5S5 

.L 

SSSSSS 

.L 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

N  15 

_  DC      1  T  .  1  7 


n  16 

CIREIN  CREATfD  Qi     MACRO     ON  ?9-JUN-85  At    12:1?'  PAGE    ? 

MACRO  CROSS  REFERENCE  CREf        04.00 


MACRO  NAME 

REFERENCES 

CALL 

6-13A 

CIRCXt 

#5-59 

5-6,^ 

HDRDft 

#5-59 

5-6^ 

MAN;)rt 

#5-59 

5-64 

NSFDFl 

#5-50 

5-65 

RESMAP 

#5-63 

RESRG 

#5-59 

RETURN 

6-171 

SAVMAP 

#5-60 

SAVRG 

#5-59 

SOB 

6-109 

UCBDft 

#5-59 

5-6' 

CICHIN 

CREATED  Bv 

MACRO     ON  2 

S>MBOv.    I 

RQS5   REFERENCE 

5VM6L, 

VALUE 

REFERENCES 

Si  T"! 

000702  R 

#9-269 

SMXB 

00K56  R 

#9-406 

SMXR 

001710  R 

#9-454 

SMxg 

001752  R 

#9-461 

SNMT 

001150  R 

#9-329 

SNUM 

001 75A   R 

#9-468 

SOWN 

000720  R 

#9-276 

SPLT 

001104  R 

#9-315 

SRE^ 

002002  R 

#9-476 

SSER 

000570  R 

#9-245 

SSTA 

0OOA7A  R 

#9-225 

STAD 

001002  R 

#9-292 

STHl 

001370  R 

#9-385 

STH2 

001412  R 

#9-392 

STH3 

00H3A   R 

#9-399 

SXMT 

001172  R 

#9-336 

S.COST 

000001 

#5-67 

S.fLG 

000000 

#5-67 

S.LEN 

000004 

#5-67 

S.NMST 

000002 

#5-67 

S.OWNR 

000003 

,r5-67 

-ADACT 

000420  R 

#14-718 

-H-ACT 

001342  R 

#38-1250 

•-JACT 

001354  R 

#39-1268 

THSACT 

001366  R 

#40-1286 

TRSBYT 

=  000004 

,»8-82 

TRSEOH 

=  000010 

#8-82 

TRSERR 

=  000016 

#8-82 

TRSIMG 

=  000000 

#8-82 

TRSMAT 

=  000020 

#8-82 

TRSMBY 

=  000006 

#8-82 

TRSNUL 

=  000012 

#8-82 

TRSPAR 

=  000002 

#8-82 

TRSSUB 

=  000014 

#8-82 

XWTACT 

001234  R 

#31-1124 

X$$MCB 

=  ****** 

5-65 

ZF.COU 

=  001000 

#5-65 

ZF.DDM 

=  000001 

#5-65 

ZF.DIA 

=  004000 

#5-65 

ZF.DLC 

=  000002 

#5-65 

ZF. DVP 

=  100000 

#5-65 

ZF.INI 

=  040000 

#5-65 

ZF.KMX 

=  000020 

#5-65 

ZF.LLC 

=  000004 

#5-65 

ZF.lMC 

=  000100 

#5-65 

ZF.MAN 

=  020000 

#5-65 

ZF.MFL 

=  0000  ■■: 

#5-65 

ZF.MTM 

=  C00400 

#5-65 

ZF.MUX 

=  000040 

#5-65 

Z    .PSE 

^  002000 

#5-65 

ZF.SLI 

=  010000 

#5-65 

ZF.TIM 

=  000200 

#5-65 

ON  29-JUN-85  AT  12:11 


N  1 

PAGE  8 

CREF   04.00 


5-65 


13-695 


N  2 
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Page  8 


75 

76 

77 

78 

79 

80 

81 

82 

83  000000 

8^ 

85 

86  000000 

87 

88  000004 

89  000010 
90 

91  OOOOU 

92  000020 
93 

94 

95  000024 

96 

97 

98  000030 

99  000034 

100  000040 

101  000044 
102 

103  000050 

104 

105  000054 

106 

107 

108 

109 

110 

111  000056 

112  000056 

113  000062 

114  000066 

115  000072 

116  000076 

117  000102 

118  000106 

119  000112 

120  000116 

121  000122 
122 

123 

12-^  000126 

125  000132 

126 

^2^ 

128 


.SBTTL  DISPATCH  TABLE  FOR  OPERATE  ROUTINES 

R$$1 1 S 

NIXCOD  ;  CODE  MAY  RESIDE  IN  APR  6 

DISPATCH  TABLE  FOR  OPERATE  ROUTINES  (L$FLG) 


.IF  DF 
.PSECT 
.ENDC 


D1ST8L: 


000001  OOOOOOG 

000004  OOOOOOG 

000010  OOOOOOG 

000020  OOOOOrT 

000040  000000 


000002  OOOOOOG 


000200 
010000 
020000 
040000 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


100000  OOOOOOG 
000000 


.IF  NDF  R$$11S 

.IF  NDF  S$$eAS  8  R$$RTR 

.WORD  LS$NTL,SETNTL 

.IFTF  ;  S$$BAS  8  R$$RTR 

.WORD  LS$COS,SETCOS 

.WORD  LS$OUN,SETOWN 

.IFT  ;  S$$BAS  8  R$$RTR 

.WORD  LS$TAD,SETTAD 

.WORD  LS$ACT,SETACT 

.ENUC  ;  NDF  S$$BAS  8  R$$RTR 

.IFTF  ;  NDF  R$$11S 

.WORD  LS$STA,SETSTA 

.IFT  ;  NDF  R$$11S 

.IF  NDF  S$$8AS  8  R$$RTR  8  R$$PRO 

.WORD  LC$NTL,CLENTL 

.WORD  LS$8BT,SETBBT 

.WORD  LS$NMT,SETNMT 

.WORD  LSSXMT.SETXMT 

.ENDC  ;  NDF  SStBAS  8  R$$RTR  8 

.I'ORD  LS$SER,SETSER 

.ENDC  ;  NDF  R$$11S 

.WORD  0 

.IF  NDF  R$$11S 


NTL  SET  FUNCTIONS 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE  RATIO 


SET  STATE 


NTL  CLEAR  FUNCTION 
;  SET  BABBLE  TIMER 
;  SET  NORMAL  TIMER 
;  SET  TRANSMIT  TIMER 
R$$PRO 
;  SET  SERVICE 

;  END  OF  TABLE 


DISPATCH  TABLE  FOR  OPERATE  ROUTINES  (L$FLl) 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 


010000 
000000 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000000-^ 
OOOOOOG 


OOOOOOG 


DIST81:  .IF  NDF  S$$8AS  8  RiSRTR  8  R$$PRO 

.WORD  LS$BSA,':'"^BSA 

.WORD  LS$6?D  -LriSD 

.WORD  LSiJS;  '   bSI 

.WORD  LSSlNi,  MNA 

.WORD  LS$IND,SET.IND 

.WORD  LS$INI,SETINI 

.WORD  LS$TH1,SETTH1 

.WORD  lS$TH2,SETTH2 

.WORD  LS$TH3,SETTH3 

.WORD  LSSMXB.SETMXB 


SET 
SET 
SET 
SET 
SET 

se; 

SET 
SET 
SET 
SET 


.ENDC   :  NDF  S$$BAS  8  R$$RTR  £  R$IPRO 


ACTIVE  BASE 
DYING  BASE 
INACTIVE  BASE 
ACTIVE  INCREMENT 
DYING  INCREMENT 
INACTIVE  INCREMENT 
DEAD  THRESHOLD 
DYING  THRESHOLD 
INACTIVE  THRESHOLD 
MAXIMUM  BLOCKS 


.WORD   LS$HTM,SETHTM 
.WORD   0 


SET  HELLO  TIMER 
END  OF  TABLE 


.ENDC 


NDF  R$$11S 
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A9 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64  000000 

65 

66 

67 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 

74  000000 

75  000000 

76  000000 

77  000000 

78  000000 

79  000000 

80  000000 

81  000000 
82 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 


MACRO  LIBRARY  CALLS 


.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 


.IF  NDf  R$$PRO 
.MCALL  DMPDFS 


MANDf$,SAVRG,RESRG,NTLDF$,PDVDF$ 

HESAG$,SLTDF$,NSFDF$ 

ECDDB$,ALUN$S,WSIG$S,CEACC$ 

CC8DF$, MAP, BIAS, RETC, MAP, SAVMAP.RESMAP.CTRDFS 

XPrD8$,UCBDF$,HDRDF$,PL8DF$,TCBDF$,DH8DF$ 

C1CCX$,CALL,CALLR,CALLX 


PRO/DECNET 


DMPDFS 

.ENDC   ;  NDF  R$$PRO 

CTRDFS 
MANDFS 
NSFDFS 
NTLDFS 
PDVDFS 
SLTDFS 
ECDDBS 
XPDDBS 
CCBDFS 
HDRDFS 
UCBDFS 
PLBDFS 
TCBDFS 
DHBDFS 


DEFINE  DMP  LINE  TABLE  OFFSETS 


DEFINE  COUNTER  BLOCK  OFFSETS 

DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

DEFINE  NS:  FEATURES  MASKS 

DEFINE  NETWORK  LOADER  SYMBOLS 

DEFINE  PDV  OFFSETS 

DEFINE  SLT  OFFSETS 

DEFINE  ECL'S  DDB  SYMBOLS 

DEFINE  XPT'S  DDB  SYMBOLS 

DEFINE  CCB  OFFSETS 

DEFINE  TASK  HEADER  OFFSETS 

DEFINE  UCB  OFFSETS 

DEFINE  PLB  OFFSETS 

DEFINE  TCB  SYMBOLS 

DEFINE  DECNET  HOME  BLOCK  SYMBOLS 
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373  001132 
37A  001134 

375  001 K2 

376  001144 

377  001150 
378 

379 
380 

381  001154 

382  001160 

383  001164 

384  001166 

385  001174 
386 

387  001176 

388  001202 

389  001222 
390 

391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 

403  001224 

404  U01230 
405 

406 
407 

408  001234 

409  001242 
410 

411 
412 

413  001244 

414  001250 
415 

416  001256 

417  001264 
418 

419  001266 

420  001274 
421 

422  001276 

423  001302 

424  001304 

425  001310 
426 

427  001312 
42£  001314 
429  001320 


001006 
126427 
001002 
000167 
062702 


116203 
067703 
011303 
026327 
001121 


103500 


000100  000001 

000362 
000002 


000001 
OOOOOOG 

000004  114224 


70$: 


BNE  70$ 

CMP8  L$STA(R4),#HS$0FF 

BNE  70$ 

JMP  180$ 

ADD  #S.NMST,R2 


BR  IF  NO 

TURNING  CIRCUIT  OFF? 

BR  IF  NO 

ELSE,  NOOP 

POINT  TO  TRJB  MANAGEMENT  WORD 


IF  THE  CIRCUIT  OWNER  IS  TRANSPORT,  MAKE  SURE  THE  NODE  IS  ON 


§0$: 


017701 
016101 


132761 
001070 


012700 
012764 

032761 
001465 

126427 
001061 

116301 
00U50 
062703 
005301 


022723 
001004 


85$: 


OOOOOOG 
OOOOOOC 


000120  000005 

177765 

000003  000072 

000200  000014 

000100  000000 

000006 
000022 

100000 


90$: 


HOVB 

ADD 

MOV 

CMP 

BNE 

CALL 

ALUN$S 

BCS 

.IF 

SWSTK$ 

SAVMAP 

MOV 

MOV 

MOV 

RE SWAP 

RETURN 

.IFF 

MOV 
MOV 

.ENDC 


1(fi2),3 

aPDVTA,R3 

(R3),fi3 

Z.NAM(R3),#*RXPT 

130$ 

DEALUN 

#$TMLUN,#"NS 

110$ 

DF,R$$MPL 

85$ 

aSAHDB,SKSAR6 

aSAHPT,R1 

H.LUN+«$TMLUN-1>*4> 


(R1) 


;  DF  R$$MPL 

aHEADR,R1 
H.LUN+«$TMLUN-I>»4> 

;  DF  R$$MPL 


(R1) 


GET  THE  OWNER'S  PDV  INDEX 

INDEX  INTO  PDV  TABLE         ;  RJK08 

POINT  TO  PDV 

IS  THE  OWNER  TRANSPORT  ? 

IF  NE,  NO  -  BYPASS  STATE  CHECK 

ELSE,  DEASSIGN  THE  TEMPORARY  LUN 

ASSIGN  THE  LUN  TO  NS: 

IF  CS,  NETWORK  IN  WRONG  STATE 


;  SAVE  CURRENT  KISAR6  MAPPING 

;  MAP  TO  MY  EXTERNAL  HEADER 

;  POINT  TO  THE  HEADER 

R$R1+2(SP)  ;  POINT  TO  THE  NS:  UCB 

;  RESTORE  PREVIOUS  KISAR6 

;  RETURN  TO  USER  STATE 


;  ELSE,  GET  OUR  HEADER  ADDRESS  ;  RJK08 
.R1  ;  POINT  TO  THE  NS:  UCB 


;ts(ri 
if  endnode  then  check  for  other  active 


BITS 
BNE 


#<US.MNT!US.MDM>,U.ST 
110$ 


MOV  #ME.CST,RO 

MOV  #ME$CIR,L$PAR(R4) 

BIT  #NF.END,U.CW3(R1) 

BEQ  130$ 

CMPB  L$STA(R4),#MS$0N 

BNE  130$ 

MOVS  Z.LLN(R3),R1 

BEQ  110$ 

ADD  #Z.MAP+2,R3 

DEC  R1 

SAVRG  R5 

CMP  #ZS.ASN,(R3)t 

BNE  100$ 


)  ;  IS  THE  NODE  ON  ? 
IF  NE,  NO  -  ILLEGAL  OPERATION 

XPT  OWNED  CIRCUITS 

ELse,  assume  circuit  is  in  wrong  state 


Is  this  an  Endnode  ? 
If  EQ,  no 

Else,  are  we  turning  state  ON  ? 
If  NE,  no,  by-pass  further  checks 

Set  up  count  of  channels  in  list 

No  channels hope  this  newer  happens  I 

Compute  XPT  channel  list  address 
and  skip  first  list  entry 

Saue  register 

Is  channel  free  to  assign? 

If  NE,  then  no,  check  if  circuit  active 
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835 

83A 

835 

836 

837 

838 

839 

8A0 

841 

8A2 

8A3 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853  002604 

854 

855 

856 

857  002604 

858  002610 

859  002616 

860  002624 

861  002626 

862  002632 

863  002640 

864  002646 

865  002650 

866  002656 

867  002660 

868  002664 

869  002670 

870  002676 

871  002700 

872  002704 

873  002710 

874  002714 
875 

876  002716 

877  002724 

878  002732 

879  002734 
880 

881  002736 

882  002742 

883  002750 

884  002756 
885 

886 
887 

888  002760 

889  002764 


012700 
012764 
022764 
001540 
012700 
012764 
132764 
001404 
132764 
001523 
016401 
012700 
032761 
001513 
012700 
005064 
105761 
001010 

116461 
032761 
001476 
000411 

016402 
116462 
132762 
001464 


017701 
005761 


177752 
001604 
177777 

177767 
000003 
000010 


000001 
000072 
000014 


000101 
100000 


000050 
000101 
000200 


.SBTTL  SETCOS  -  SET  COST  FOR  A  CIRCUIT 

♦*SETCON-SET  COST  FOR  A  CIRCUIT 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  COST  FOR  A  CIRCUIT. 

IF  THE  CIRCUIT  IS  ON,  AND  ASSIGNED  TO  TRANSPORT  AN  EVENT  IS  POSTED 

TO  THE  ROUTING  TASK. 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA  WITH: 
L$C0S(R4)  =  NEW  COST 

OUTPUTS: 

IF  CC,  cos:  CHANGED, 
ELSE,  ERROR  CODE  IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


000072 
000050 


000072 
000041 


000002  000041 


000042 
177,65 
040000 


000000 


000015 
000000 


000001 
000000 


SETCOS:: 

CHECK  THE  CIRCUIT  STATE 


MOV  #ME.PNA,RO 

MOV  #HP$C0S,L$PAR(R4) 

CMP  #-1,L$TP":(R4) 

BEQ  90$ 

MOV  mS.lJ'J.RO 

MOV  #ME$CIR,L$PAR(R4) 

BIT8  *LP$MPT,L$PFG(R4) 

BEQ  10$ 

BITS  #LP$TRB,L$PFG(R4) 

BEQ  90$ 

MOV  L$SLT(R4),R1 

MOV  #ME.CST,RO 

BIT  #LF.RDY,L.FLG(R1) 

BEQ  90$ 

MOV  (CMS.  sue,  RO 

CLR  L$PAR(R4) 

TSTB  L.NSTA(RI) 

BNE  20$ 

MOVB  L$C0S(R4),L.C0ST(R1) 

BIT  #LF.ACT,L.FLG(R1) 

BEQ  100$ 

BR  30$ 


10$: 


20$: 


MOV  L$TPT(R4),R2 

MOVB  L$COS(R4),S.COST(R2) 

BITS  #SF.ACT,5.FLG(R2) 

BEQ  100$ 


ASSUME  INVALID  PARAMETER 

is'THIS  A  PVC? 

BR  IF  YES 

ASSUME  INVALID  CIRCUIT-ID 

is'THIS  A  MULTI-POINT  CIRCUIT  ? 

IF  EQ,  NO 

ELSE,  WAS  A  TRIB  NUMBER  GIVEN  ? 

IF  EQ,  NO  -  INVALID  CIRCUIT-ID 

GET  THE  SLT  ADDRESS 

ASSUME  CIRCUIT  IN  WRONG  STATE 

IS  THE  CIRCUIT  LOADED  ? 

IF  EQ,  NO  -  WRONG  STATE 

ASSUME  SUCCESS 

NO  ERROR  DETAIL 

IS  THIS  A  MULTIPOINT  MASTER  ? 

IF  NE,  YES 

ELSE,  SET  THE  NEW  COST 

IS  THE  CIRCUIT  ACTIVE  ? 

IF  EQ,  NO  -  BYPASS  TASK  ACTIVATION 

AND  CHECK  IF  CIRCUIT  IS  OWNED  BY  XPT 

ELSE  POINT    THE  TRIB  FLAGS 

SET  THE  NEW   ST 

IS  THIS  TRIBlIARY  ACTIVE  ? 

IF  EQ,  NO  -  BYPASS  TASK  ACTIVATION 


SEE  IF  THE  CIRCUIT  IS  OWNED  BY  TRANSPORT 


OOOOOOG 
000060 


^0$: 


MOV 
TST 


SDECPT.RI 
D$NN(R1) 


POINT  TO  DEC  HOME  BLOCK 
IS  THIS  A  NON-ROUTING  NODE 


RJK08 
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U.OWN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

.  ABS. 


177776 
000112 
000113 
000110 
000002 
00003'. 
000020 
000076 
000071 
000036 
000005 
000007 
000036 
000012 
000013 
000010 
000036 
000060 
000053 
000017 
000100 
000026 
000051 
000056 
000050 


U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UT]L= 

U.VCB  = 

U.VSER= 

U.2ME0= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJl= 

U2.DZ1= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LWC= 

U2.L3S= 


000016 
000021 
000107 
000011 
000052 
000006 
000111 
000060 
000106 
000036 
000031 
000120 
000070 
000020 
002000 
100000 
010000 
000100 
001000 
010000 
000010 
000100 
000001 
000001 


U2.L8S= 

iJ2.NEC  = 

U2.PRi/= 

U2.RMT= 

U2.R01= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U1.CR  = 

VF$RCV= 

VF$XMT= 

VSFLG 

V$LEN 

V$RCV 

nmj 

V$iCTR= 

U.8ATT 

U.BFPD 

W.BHVR 

W.8LGH 


010000 

W.BLPD 

000016 

ZF.X3P= 

000000 

001000 

W.BLVR 

000002 

ZS.ASN= 

00000 

000010 

W.BNPD 

0000  5 

ZS.BSY= 

10000 

020000 

W.BOFF 

0000  2 

Z.AVL 

000011 

100000 

W.8PCB 

000000 

Z.DAT 

000016 

000001 

W.BSI7 

000010 

Z.DSP 

000000 

000200 

XMTTBL 

000111R 

Z.FLG 

000010 

000002 

X$$DBTr 

000000 

Z.LEN  = 

000016 

010000 

ZF.COU= 

001000 

Z.LLN 

000006 

lOOOOC 

ZF.DDH= 

000001 

Z.HAP 

000020 

010000 

ZF.DJA= 

001000 

Z.NAM 

000001 

020000 

ZF.DLC= 

000002 

Z.PCB 

000012 

OOOICO 

ZF.DVP= 

100000 

Z.SCH 

000007 

100000 

ZF.1NJ= 

010000 

$DHPST= 

♦»«**«  GX 

010000 

ZF.KMX= 

000020 

$HEADR= 

«»»*»*  GX 

000000 

ZF.LLC= 

000001 

$TMLUN= 

******  GX 

000022 

ZF.LMC= 

000100 

$$LCNT= 

000151 

000002 

ZF.MAN= 

020000 

$$LLIN= 

000076 

000012 

ZF.MFL= 

000010 

$$$   = 

000062 

001000 

ZF.MTM= 

000100 

$$$L  = 

980023 

000006 

ZF.MUX= 

000010 

$$$SVS= 

001371 

000011 

ZF.PSE= 

002000 

$$$SVX= 

000000 

000001 

ZF.SLI= 

010000 

.$$$$.= 

02921^ 

000020 

ZF.TII»I= 

000200 

..0FF.= 

177732 

177776 
003132 
%t$rm  000711 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
tRW,I,LCL,REL,CON) 
CR0,I,LCL,REL,C0N) 


'♦*  Assembler   statistics 


Work      file     reads:  367 

Work      file  writes:  286 

Size  of   work   file:  51705   Words     (   211   Pages) 

Size  of   core  pool:  17608  Words     (   67  Pages) 

Operating     system:  KSX-11M/PLUS 


Elapsed  time:   00:01:15.57 
SY:CICHPD.V2,[135,131]ClCHPD/CR/-SP=SY:[i 


,1]RSXMCM.SML/ML,[130,110]NETLI8/ML,[130,10]RSXMCM/PA:1,[135,10]CICHPD 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
■58 
J9 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.IF  NDF  R$$11S  ^r       .  ■   , 

.TITLE  CICHPX  -  Circuit  Change  Parameters  Operate  (X.25  subroutines) 
.IDENT  /V05.00/ 
.NLIST  BEX 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIES  BY  DIGITAL. 


OF   ITS 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  CIRCUIT  CHANGE  PARAMETERS  OPERATE  ROUTINE  (X.25> 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  8-May-83 

[Tim  Dixon  EDSSEC] 

Split  from  CICHOP  (see  history  in  CIHOP)  to  permit  heavier  overlaying 

DLM  management  functions  added. 

Fix  bug  in  COUNTER  TIMER  routine  for  channels  >  127 

4.00  07-NOV-83 

DECNET-11M  V4.: 
DECNET-11M-PLUS  ,'2.0 

5.00  22-JUL-85 

DECnet-1 iM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  Vl.O 
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CKDSVC  -  Check  for  DIM  SVC 


Page  T< 


348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 


.SBTTL  CKDSVC  -  Check  for  DLM  SVC 

•**  CKDSVC  -  Check  for  DLM  SVC 

INPUTS 

R4  -  Address  of  context  area 

L$SLT(R4)  -  Address  of  SLT  entry  for  disguised  tine 

OUTPUTS 

Carry  clear  if  circuit  is  a  DLM  SVC 


001012 

001012 

001016 

001022 

001026  103410 

001030  132761  000200  000044 

001036  001404 

001040  132761  000100  000044 

001046  001005 

001050 

001062 

001066 


CKDSVC: 


10$ 
20$ 
30$ 


SWSTK$ 

SAVMAP 

CALL 

BCS 

BITS 

BEQ 

BUB 

BNE 

RETC 

RESMAP 

RETURN 


30$ 

FNDCTR 

10$ 

*PX$DLM,T$FLAG(R1) 

10$ 

#PX$SVC,T$FLAG(R1) 

20$ 

RO 


Enter  system  state 

Save  mapping 

Find  counter  block  for  line 

Can't  be  DLM  if  no  counters 

Check  for  DLM  circuit 

Flag  not  set  if  not  DLM 

If  DLM,  ensure  this  is  an  SVC 

Correct  if  SVC  flap  set 

Indicate  circuit  not  DLM  SVC 

Restore  mapping 


CICHPX     CREATED  tiY  MACRO  ON  29-JUN-85  AT  12:15 
SYMBOL  CRO'.   REFERENCE 
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PAGE  6 

CREF   OA.OO 


SYMBOL  VALUE 


REFERENCES 


S$LFT 

000012 

7-126 

S$P<SZ 

OOOOOA 

7-123 

S$RCL 

000013 

7-127 

StTIM 

OOOOU 

7-128 

SSTMR 

000016 

7-129 

S$UND 

000006 

7-124 

S.COST 

000001 

#5-72 

S.FLG 

000000 

#5-72 

S.LEN 

OOOOOA 

#5-72 

S.NMST 

000002 

#5-72 

S.OWNR 

000003 

#5-72 

TSFLAG 

000044 

#5-67 

TSLIF 

000013 

#5-67 

TSLIFL 

000013 

#5-67 

T$L1F0 

000013 

#5-67 

TSLIFS 

000013 

#5-67 

T$LIN 

000000 

#5-67 

TSLIPS 

000006 

#5-67 

TSLLD 

000012 

#5-67 

TSLLDC 

000045 

#5-67 

T$LLDL 

00001? 

#5-67 

TSLLDC 

0000  V 

#5-67 

TSLLDS 

0000:2 

#5-67 

T$LLEN 

000046 

#5-67 

TSLOPR 

000002 

#5-67 

TtLTCL 

000024 

#5-67 

TtLTIM 

000026 

#5-67 

TSLTPR 

000014 

#5-67 

TSLTPS 

000020 

#5-67 

TSNAPL 

000004 

#5-67 

TSNFE 

000000 

#5-67 

rSNLEN 

000010 

#5-67 

TSNNUL 

000002 

♦  5-67 

TSNOPL 

000006 

#5-67 

TSNRNI 

000042 

#5-67 

TSNRPL 

000005 

#5-67 

TSNRUL 

000007 

#5-67 

TSNVR 

000001 

#5-67 

TSRPRI 

000040 

#5-67 

TSSVC 

000034 

#5-67 

T$T5 

000030 

#5-67 

T$T6 

000032 

#5-67 

XSCTIH 

000060 

»1  5-402 

SADPVC 

001222  RG 

#16-418 

SCEACC 

=  **♦**♦  Gx 

15-392 

SHEADR 

=  ♦»♦»«»  GX 

14-369 

SSTPAR 

=  »*♦♦•♦  GX 

10-231 

SXLBOV 

=  000000 

#5-89 

7-127 
7-124 
7-128 
7-129 
7-130 
7-125 

11-281 

11-283 

*12-315 


»12-318 


14-365 


14-367 


10-226 


15-400 


10-227 


15-401 
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CIRECM  -  Read  circuit  -harac terist ics 


351  001052 
332  001054 
333 

334  001062 


001403 
052764 


040000  000064 


90$: 


BEQ 
BIS 

RETURN 


90$ 
#LF$MLT,L$FLG(R4) 


BR  i  f  no 

Else  set  multiple  adjacency  flag 
for  next  time 


CIRECH  - 
SETSER  - 

888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
9U 
915 
916 
917 


N  12 

READ  CIRCUIT  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85  12:15  Page  20 
Set  Service  oarameter 

.SBTTL  SETSER  -  Set  Service  parameter 
I- 
•»  SETSER  -  Set  service  parameter 


Inputs: 


Output: 


SETSER: 


003234 

00323',  026A27  000000  015355 

003242  001425 

003244  004567  OOOOOOG 

003250  000144 

003252  000201 

003254  112723  000000 

003260  105760  000014 

003264  001005 

003266  032760  000040  000000 

003274  001005 

003276  000407 


003300  132761  000001  000000  10$: 

003306  001403 

003310  112763  000001  \nm     20$: 

003316  30$: 


R3 


CMP 

BEQ 

JSR 

.WORD 

.WORD 

MOVB 

TST8 

BNE 

BIT 

BNE 

BR 

BITB 
BEQ 

MOVB 

RETURN 


=  SLT  pointer 
=  Tribs  pointer 
=  buffer  pointer 


Service  parameter  in  message.  R3  updated. 


L$DDM(R4),#*RDLM 

30$ 

R5,SETPAR 

MPiSER 

MT$C0DI1 

#M8$ENA,(R3)+ 

L.NSTA(RO) 

10$ 

#LF.SER,L.FLG(RO) 

20$ 

30$ 

#SF.SER,S.fLGCR1) 
30$ 

#Ma$DIS,-1(R3) 


DLM  circuit  ? 

if  EQ,  parameter  not  applicable 

Service  parameter 

one  byte  coded 

assume  enabled 

multipoint  controller  or  Ethernet  ? 

if  NE,  yes 

is  Service  disabled  ? 

if  NE,  yes 

else  done 

is  service  disabled  for  circuit  ? 
if  EQ,  no 

else  set  parameter  to  disabled  value 


CIRECH     CREATED  BV  MACRO  ON  29-JUN-85  AT  12:16 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


R.LST 

R.MAP 

R.QUE 

R.SLN 

R.SRV 

R.STA 

R.STBL 

SETNAM 

SETNOD 

SETPAR 

SETSER 
SFSINC 
SF.ACT 
SF.ENA 
SF.LPB 
SF.MFL 
SF.PAC 
SF.REA 


SER 
SF.SVC 
SF.UNL 
SLTMA 
SVCADD 
SVCBLK 
SVCMAP 
5VCRCL 
SSADSZ 
S$OTE 
SSFLG 
SSPKSZ 
SSRCL 


000104 

000110 

000062 

000070 

000060 

000066 

000210 

003320  R 

002266  R 

003234  R 
=  000002 
=  000200 
=  000100 
=  000004 
=  000040 
=  000020 
=  000010 
=  000001 
=  000002 
=  000040 


000006  R 
003114  R 
000004  R 
003006  R 
000007 
000020 
000010 
000004 
000013 


GX 


REFERENCES 

#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 

16-699 

9-157 

9-182 

11-401 

9-151 

17-787 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 

17-743 
#8-92 

9-307 
#8-91 

9-237 

19-860 

19-866 

17-787 

19-874 

18-824 


#21-937 
9-177 
9-200 
11-414 

#20-899 
18-830 


20-912 


*1 7-779 
#19-853 
*17-778 
#18-817 


18-830 
19-875 
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CREf       04.00 


#16-661 
9-204 
18-821 


9-210 
18-825 


9-218 
19-862 


9-231 
19-871 


9-249 
19-879 


9-271 
20-912 


9-280 


17-780 
17-785 


.17-782 
18-819 


•17-782 
19-855 


17-786 


18-P20 


19-856 


SSTMR 

000016 

18-828 

18-829 

SSWNID 

000006 

19-882 

S$$BAS 

=;      ****** 

9-318 

10-369 

S.COST 

000001 

#6-70 

9-189 

S.CTL 

000006 

#6-74 

S.ERR 

OOOPIO 

#6-74 

S.FLG 

000000 

#6-70 

20-912 

S.LBE 

000044 

#6-74 

S.LEN 

000004 

#6-70 

S.LGTH 

=  000050 

#6-74 

S.LIN 

OOOOO'. 

#6-74 

S.LINK 

177776 

#6-74 

6-74 

S.LSA 

000005 

#6-74 

-.NMST 

000002 

#6-70 

9-246 

S.OWNR 

000003 

#6-70 

17-737 

S.PLA 

000010 

11-417 

S.PSA 

000003 

#6-74 

11-392 

S.R8E 

000042 

#6-74 

S.RCB 

000020 

#6-74 

S.RCV 

000014 

#6-74 

N  U 

CIRECO  -  READ/AND  OR  ZERO  CIRCU  MACRO  V05.03b  Saturday  29-Jun-85  12:17 

olc  line  counters  dispatch  table 


Page  9 


80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 

91  000000 

92  000000 
93 

9A 

95  000000 

96 

97 

98 

99  OOOOOA 

100  000010 

101  OOOOU 

102  000020 

103  00002^. 
104 

105 
106 
107 

108  000000 

109  000000 
110 

111 
112 
113  000002 


.SBTTL  DLC  LINE  COUNTERS  DISPATCH  TABLE 

DISPATCH  TABLE  FOR  LINE  COUNTERS  BASED  ON  DLC 

THIS  TABLE  CAN  BE  ADDED  TO  BY  A  USER  DEFINING  AN  ENTRY 

IN  THE  PSECT  $$DLREA.  THE  ENTRIES  CONTIST  OF  RAD50  DLC 

PROCESS  NAME  FOLLOWED  BY  THE  ADDRESS  OF  THE  LINE  COUNTERS 

ROUTINE. 


DLCTBL; 


0H610  OOOOOOG 


0KA50  OOOOOOG 

015A30  OOOOOOG 

015436  OOOOOOG 

015355  OOOOOOG 

062204  OOOOOOG 


000000 


.IF  NDF  R$$11S 

.PSECT  $$DLC0 
.IF  NDF  S$$8AS  &  R$$RTR 
.WORD   *fiDCP,DCPCIR 
.IF  NDF  R$$PR0 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


♦RDA.DACIR 

•RDMP.DMPCIR 

*RDMV,OMPCIR 

•RDLM.DLMCOU 

♦RPCL.PCLCIR 


.ENDC  ;  NDF  R$$PRO 


.ENDC 

.PSECT 

.WORD 

.ENDC 

.PSECT 


$$DLC1 
0 


THESE  PSECTS  ARE  DEFINED  IN  THE 
NIXE  MODULE  FOR  IIS  NICE 

DATA  LINK  COUNTERS  TABLE 


READ  CIRCUIT  COUNTERS  ENTRYPOINT 

PRO/DECnet 

READ  CIRCUIT  COUNTERS  ENTRYPOINT 

FOR  DMP  DLC  COUNTERS 

FOR  DMV  DLC  COUNTERS 

READ  CIRCJIT  COUNTERS  ENTRYPOINT 

READ  CIRCUIT  COUNTERS  ENTRYPOINT 


END  OF  TABLE 


N  1S 

CIREIN  -  CIRCUIT  READ  IN'ORMATl  MACRO  VO5.03b  Saturday  29-Jun-85  12:17 
Table  of  content? 

S-   5S    MACRO  CALLS  AND  LOCAL  DATA 

5-   ti  BIT  DEFINITIONS 

t-.   68    CIRflN  -  CIRCUIT  READ  INFORMATION  INITIALIZE 


.J 


B 
C 
D 
f 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
1 
J 
K 
L 
M 
N 
B 
C 
D 
E 

F 

G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
< 
L 
M 
N 
B 
C 
D 
E 
F 
G 


CICHOP 


CICHPD 


B  10 

g]8 


CICHPX 


CIRECH 


CIRECO 


M  U 
N  U 
B  15 
C  15 

0  15 

l]l 
G  l-i 
H  n 

1  15 
J  15 
K  15 
L  15 
M  15 
N  15 
6  16 
C  16 
D  16 
E  16 
F  16 
G  16 
H  16 
I  16 
J  16 
K  16 
L  16 
H  16 


CIREIN 


